aide vba boucle for each avec paramétrage

[legotlieb]

bonjour tout le monde ,
(je recommence mon post car j'avais pas lu comment insérer du code encore désolé)

j'ai un petit soucis en vba

je voudrais faire une boucle en for each en paramétrant ; ci-dessous un exemple simplifié


[cpp]
Sub Macro1()
Dim casse As Range

Set toto1 = Range("B10:G10" )
Set toto2 = Range("b11:g11" )


For i = 1 To 2
titi = "toto" & i
For Each casse In titi
casse.Value = 2
Next
Next i
End Sub
[/cpp]

voila le probleme est que titi n'est plus en range grrrrrrrrrrrrrr
je ne vois pas comment faire si qq'un a une idée merci

en fait j'ai plein de lignes paramétrées (du type toto_indicé)
et je veux faire une boucle sur certaines ...ca marche si j'ecris 100 fois la meme boucle mais bon c'est plus de la programmation c'est du labeur )

merci a ceux qui prendront le temps de lire ce post.
eric

 

[la7su]

Salut,

Mon VB est un peu rouille, mais je pense que tu te compliques la tache.
Au lieu d'intialiser 2 toto pour de Range, pourquoi ne pas boucler pour chaque Range : passe d'une case à une autre en changeant de colonne.

Et pour t'éviter de coder 100x la meme boucle, une petite fonction qui prend en parametre la Range à parcourir et la valeur à écrire, ca devrait resoudre ton pb.