Discussion :

[flamel]

Bonjour,

Je voudrais pouvoir arrêter une boucle dans laquelle j'utilise un userform pour l'affichage. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub edition()
    For iLin = 1 To 24
        For iCol = 1 To 20
            a = Sheets("Feuil7").Cells(iLin, iCol).Value
            UserForm1.TextBox1.Value = "Ligne           Colonne "
            UserForm1.TextBox2.Value = a & b
            UserForm1.TextBox3.Value = iLin
            UserForm1.TextBox4.Value = iCol
            UserForm1.TextBox5.Value = "Couleur"
            UserForm1.Show
        Next iCol
    Next iLin
End Sub

Dans l'userform, il y a un bouton "Userform1.hide" qui permet de stpoer la boucle à chaque pas.
Je n'arrive pas à trouver comment placer une commande pour sortir de la boucle.
Merci si vous pouvez m'aider.

[ctac_]

Bonjour,

Ajouter un bouton dans le UserForm

Code :

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

1
2
3
4
 
Private Sub CommandButton2_Click()
    End
End Sub

ctac