[VBA/Excel] - Envoyer une selection variable dans une sous fonction ?

Marsh Posté le 05-08-2010 à 10:35:36

Bonjour ! [:dawa]

voila ce que je cherche à faire mais je n'ai pas encore trouvé la solution.

j'ai une macro qui me rempli des cellules avec des valeurs mais leur nombre est variable.
Je souhaite ensuite faire une mise en forme (cadre, couleur, etc...) mais pour éviter d'avoir 10 000 lignes de codes, je souhaite passer par l'utilisation d'une sous fonction.

Est il possible de faire un truc comme ça :

-Remplissage de mes cellules (nombre inconnu au départ)
- selection (Range.select ?)
- envoi de cette sélection dans une sous fonction (du style call fonction_mise_en_forme (RANGE PRECEDEMENT SELECTIONNE) )

Sachant que ma selection est variable et ressemble à ça :

range(cells(1, (3 + (3 * NbObject))), cells(1, (2 + (6 * NbObject)))).Select

merci

Marsh Posté le 05-08-2010 à 10:35:36

Marsh Posté le 05-08-2010 à 18:01:37

Salut, peut-être un début de réponse

Option Explicit

Sub Tst()
Dim R As String
R = Feuil1.UsedRange.Address
MEF R
End Sub

Private Sub MEF(s As String)
' Traitement
Feuil1.Range(s).Select
' .....
End Sub

Message édité par kiki29 le 05-08-2010 à 19:26:01

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *