Bonjour!
J'essaie d'exécuter cette boucle, mais rien ne fonctionne... j'aimerais votre avis, à savoir si quelqu'un peut trouver l'erreur...:

Code VBA : 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
 
Sheets("_back").Range("C2").Value = txtIndic.Value
    Dim i As Integer
    i = 2
        Do
            If Sheets("_back").Range("B" & i).Value = 1 Then
                lblProduction.Caption = "La carte sera produite le " & Sheets("_black").Range("A" & i).Value
                Exit Sub
            End If
            If Sheets("_back").Range("B" & i).Value = 0 Then
                i = i + 1
            End If
        Loop Until i = 30
 
 
Exit Sub