faire une boucle dans une boucle VBA

Version imprimable

27/04/2010, 14h11
the-geut

faire une boucle dans une boucle VBA

Bonjour!
Sous VBA j'essaye de faire une boucle dans une boucle :roll:
J'ai un tant que la collone n'est pas fini. Si une certaine condition alors il fait un autre tant que etc...
Je me demandais si c'était possible car le programme est simple mail il bute:cry:
Merci de votre aide @+
27/04/2010, 14h20
rvtoulon

Slt,
je pense ne pas être le seul à n'avoir rien compris, peux-tu faire un effort de rédaction stp et expliquer clairement ce que tu souhaites, merci.
Cela Donneras envie à ceux qui vont te lire de t'apporter leur aide.
27/04/2010, 14h20
Minick

Salut,

Montre nous ce que tu as fait.
On pourra te montrer ou est ton erreur.

ok :ccool: Cependant les lignes sont simples mais "lourdes" car je travail sur plusieur classeur en même temp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub actualiser_Click()
 
Dim i, j, t, m As Integer
i = 1
j = 10
t = 15
m = 10
 
If CH(Workbooks, "statistiques motif de retour.xls") = True Then 'on vérifie si le fichier statistiques est ouvert
 
    Do While Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Cells(j, 2).Value <> "" 'on lit tout les motifs de la Motifs jusqu'a la fin
 
        If ActiveSheet.Shapes("CheckBox" & i).OLEFormat.Object.Object.Value = True Then 'Si le checkbox i est cocher alors on incrémente la valeur j
 
            Do While Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Cells(m, 2).Value <> ""
                    If Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Cells(m, 1).Value = i Then
 
                    Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Cells(m, 3).Value = Application.Workbooks("statistiques motif de retour").Sheets("Motifs").Cells(m, 3).Value + 1 'Incrémentation
 
                    m = m + 1
 
                    Else
 
                    m = m + 1
 
                    End If
            Loop
 
           Sheets("rendu").Cells(t, 1).Value = Application.Workbooks("statistiques motif de retour").Sheets("feuil1").Cells(j, 2).Value 'On recopie la valeur cochée dans la feuille "rendu"
 
           i = i + 1
           j = j + 1
           t = t + 1
 
        Else
 
    i = i + 1
    j = j + 1
 
        End If
 
    Loop
    actualiser.Enabled = False 'Le boutton est verrouillé pour empecher l'utilisateur d'incrémenter 2 fois
 
Else: MsgBox ("Veuillez ouvrir le fichier statistiques motif de retour")
End If
 
End Sub

27/04/2010, 15h06
the-geut

:oops::oops::oops::oops::oops::oops::oops::oops:

9a marche le problème ne venais pas de la boucle mais d'un problème de syntaxe. :lol:

Dsl de vous avoir fait perdre votre temp.

Mais pour répondre à mon problème. Oui on peut faire une boucle dans une boucle