Boucle avec Userform

Version imprimable

Bonjour,

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

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.

28/08/2010, 12h24
ctac_
Bonjour,

Ajouter un bouton dans le UserForm
Code:

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

Bonjour,

Avec des conditions dans les boucles, précise si tu veux plus :

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
 
 
Option Explicit
 
Sub edition()
 
Dim iLin As Integer
Dim iCol As Integer
 
    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
 
            'sortir de la boucle secondaire
            If iCol = 10 Then Exit For
 
        Next iCol
 
        'sortie de la boucle primaire
        If iLin = 5 Then Exit For
 
    Next iLin
 
End Sub

Hervé.

28/08/2010, 15h06
flamel

Merci.
Ça marche.
J'avais essayé un bouton,, mais avec exit etc.., sans penser au simple 'End' ! ! ! c'est bête !

Bonjour,

OK, c'est un peu violent, mais je pense que c'est dans le cas d'un petit débuguage simpliste.

Donc un peu moins violent :

Ajouter un bouton dans le UserForm

Code:

1
2
3
4
5
 
Private Sub CommandButton2_Click()
    Me.Tag = "Stop"
    Me.Hide
End Sub

Et la proc devient

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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
            If UserForm1.Tag = "Stop" Then
                Unload UserForm1
                Exit Sub
            End If
        Next iCol
    Next iLin
End Sub

ctac