aide vba boucle for each paramétrée en range

Version imprimable

bonjour tout le monde ,
j'ai un petit soucis en vba

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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
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 :o)

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

as tu essayer de faire juste après titi = "toto" & i une selection de titi:
titi.select
puis tu continue avec ton code

as tu essayer de faire juste après titi = "toto" & i une selection de titi:
titi.select
puis tu continue avec ton code soit:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Macro1() Dim casse As Range Dim titi as range Set toto1 = Range("B10:G10" ) Set toto2 = Range("b11:g11" ) For i = 1 To 2 Set titi = "toto" & i titi.select For Each casse In titi casse.Value = 2 Next Next i End Sub

tiens j'ai un peu modifié ton code ...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Macro1()
Dim casse As Range
Dim titi As Range
Dim MesTotos As Range
Set MesTotos = Range("B10:G10,b11:G11,B20:G30")
For Each titi In MesTotos.Rows
    Debug.Print titi.Address ' Voir Fenêtre exécution
      For Each casse In titi
        titi.Value = 2
      Next
Next
End Sub

27/07/2006, 09h30
gotlieb

merci biggione,

je viens d'essayer mais il ne veut pas plus tourner
j'ai même enlever le set devant titi car c'est la que cela bloqué mais ca ne change rien. Je pense que de concatener un byte avec un range le titi devient lui aussi un byte ou un string je sais pas.

gotlieb.

Une autre piste:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
  Dim i As Integer
  Dim casse As Range
  Dim titi As Range
  Dim toto(1) As String
 
  toto(0) = "B10:G10"
  toto(1) = "b11:g11"
 
 
  For i = 0 To 1
    Set titi = Range(toto(i))
    For Each casse In titi
      casse.Value = 2
    Next
  Next i
End Sub

Testé, ça marche.

27/07/2006, 09h38
gotlieb

merci bbil et alain tech

vos deux versions marchent bien effectivement mais je préfére celle de alain car j'ai déja crée 81 totos et ca me parait plus simple de modifier mon code avec cette maniére.

encore bravo et merci a tous les 2.

ps: j'essaie pour m'amuser de faire un petit truc sur excel qui résolu les sudokus. Il existe plein de gens qui l'ont déja fait je sais mais le seul intêret est de le faire sois-même.

gotlieb.
27/07/2006, 09h55
conconbrr

Pour le solveur de sudoku j'en ai fait un qui marche pas mal, si tu veux on pourra confronter ;)