boucles for next

[David59]

Bonjour forum

Mon problème je voudrais voir que quelque ligne d'une liste
J’ai donc créé un userform

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 70

If Sheets("feuil1").Range("c" & i) = "oui" Then
TextBox1 = Sheets("feuil1").Range("a" & i)
TextBox2 = Sheets("feuil1").Range("b" & i)
 CommandButton1.Caption = "suivant"

End If
 Next i
 CommandButton1.Caption = "Fini"
End Sub

Avec cette formule j'ai la dernière ligne
J’aimerais qu'il s'arrête des la 1er info trouvé et ensuite en recliquant sur le bouton CommandButton1 continuer la recherche
Quand je mets un Msgbox après CommandButton1.Caption = "suivant"
Ça fonctionne
Peut-on faire sans le mgsbox

Merci d'avance
David @+

 

[soenda]

Re : boucles for next

Bonjour le fil, David59

L'utilisation d'une variable Static devrait résoudre le problème.
Par exemple :

Private Sub CommandButton1_Click()
    [B][COLOR=blue]Static[/COLOR][/B] L As Integer
 
    With Feuil1
 
        Do While .[C1].Offset(L).Value <> "oui" And L <= 69
            L = L + 1
        Loop
 
        If L = 70 Then
            CommandButton1.Caption = "Fini"
        Else
            TextBox1 = .[A1].Offset(L).Value
            TextBox2 = .[B1].Offset(L).Value
            CommandButton1.Caption = "Suivant"
            L = L + 1
        End If
 
    End With
End Sub

L qui est une variable Static, conserve sa valeur entre chaque clic sur CommandButton1
La première boucle incrémente L, si L < 70 et tant que la cellule <> "oui"

A plus

 

[David59]

Re : boucles for next

Bonsoir soenda

Merci pour ta réponse

@+
David