Discussion :

[thedarkman]

tout d'abord, bonjour à toutes et à tous sur ce forum. je tiens à préciser que je débute en VBA.

j'ai créé une macro avec boucle qui lance une macro de résolution de mon problème. ci dessous on peut voir quelle tête elle a.

Code :

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

1
2
3
4
5
6
7
8
Sub macro1()
    Dim i As Integer
       i = 0
      Do
      i = i + 1       
         Call Module1.resol 
    Loop Until i = 100
End Sub

tout fonctionne, mais je voudrais pouvoir définr le nombre de boucles (valeur de i) depuis une cellule donnée de mon tableau excel (pourtant je cherche et je trouve pas). si quelqu'un pouvait me donner une piste...

merci d'avance.

[Mimosa777]

salut,

pour definir a partir d'une cellule, tu appelles la cellule comme cela :

Code :

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

cells(x,y).value

[Le Pierre]

bonjour

et pour compléter la réponse de Mimosa777 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub macro1()
    Dim i As Integer
    dim NbIteration as integer
 
    NbIteration=cells(Lig,Col).value       
    i = 0
    Do
         i = i + 1       
         Call Module1.resol 
    Loop Until i = NbIteration
End Sub

à plus

[thedarkman]

OK.
plusieurs solutions sont envisageables en effet et c'était pas très compiqué.

merci pour tout.
à bientot

[wilfried_42]

Bonjour

un autre type de boucle : la cellule est A1 dals la feuille : Feuil1

Code :

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

1
2
3
4
5
6
Sub macro1()
     Dim i As Integer
     for i = 1 to sheets("Feuil1").range("A1").value       
         Call Module1.resol 
     next i
End Sub

sinon pour reprendre ta boucle (avec les memes references)

Code :

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

1
2
3
4
5
6
7
8
9
Sub macro1()
      Dim i As Integer, limite as integer
      limite = sheets("Feuil1").range("A1").value
      i = 0
      Do
         i = i + 1       
         Call Module1.resol 
     Loop Until i = limite
End Sub

cordialement