Discussion :

[gotlieb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[biggione]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[AlainTech]

Une autre piste:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[conconbrr]

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