Discussion :

[the-geut]

Bonjour!
Sous VBA j'essaye de faire une boucle dans une boucle
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
Merci de votre aide @+

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

[Minick]

Salut,

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

[the-geut]

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

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

[the-geut]

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

Dsl de vous avoir fait perdre votre temp.

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