Boucle dans et sur USERFORM

Version imprimable

Bonjour à tous,

Je vous expose mon Pb, j'ai créé une Userform pour rentré des données utilisé dans la Userform,

et je cherche à faire de paramètres de validation avant exécution. C'est la que mon PB ce pose avec seulement des paramètre if/end if ça marche très bien, mais je voudrais que mon Userform ce relance si les paramètre ne sont pas valide.

voici le code effectué après appel simple sur un bouton de ruban par .show

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Private Sub annul_button_Click()
 
    Unload Me
 
End Sub
 
Private Sub ligne_fin_Change()
 
End Sub
 
Private Sub ligne_init_Change()
 
End Sub
 
Private Sub ok_button_Click()
    Dim i As Integer
    Dim form As String
    Dim k As Integer
    Dim l As Integer
 
    If ActiveSheet.Name <> "Etude" And ActiveSheet.Name <> "Etude opt" Then
    MsgBox "Selection non valide pour cette opération", vbCritical
    Else:
 
    k = RechercherLignesDebutOuFin("Deb")
    l = RechercherLignesDebutOuFin("Fin")
 
        Do While (ligne_init = 0 Or ligne_fin = 0)
            If ligne_init.Value = "" Then GoTo fin
            If ligne_fin.Value = "" Then GoTo fin
            If (IsNumeric(ligne_init.Value) = False) Then ligne_init = 0
            If (IsNumeric(ligne_fin.Value) = False) Then ligne_fin = 0
            If (ligne_init.Value.Value < 0) Or (ligne_init.Value - Int(ligne_init.Value) <> 0) Then ligne_init = 0
            If (ligne_fin.Value < 0) Or (ligne_fin.Value - Int(ligne_fin.Value) <> 0) Then ligne_fin = 0
            If ligne_init.Value < ligne_fin.Value Then ligne_init = 0 And ligne_fin = 0
            If ligne_fin.Value < l Then ligne_fin = 0
            If ligne_init.Value > k Then ligne_init = 0
 
        Loop
 
        ActiveSheet.Unprotect
        Application.ScreenUpdating = False
 
        form = "O" & ligne_init.Value & "*N" & ligne_init.Value
 
        For i = ligne_init.Value + 1 To ligne_fin.Value
            form = form & "+O" & i & "*N" & i
 
        Next i
            Range("M" & ligne_init.Value - 1).Value = "Ens."
            Range("N" & ligne_init.Value - 1).Value = 1
            Range("O" & ligne_init.Value - 1).Formula = "=round(" & "(" & form & ")" & "/" & "n" & ligne_init.Value - 1 & ",nbarpu)"
            Range("P" & ligne_init.Value - 1).Value = "=round(" & "O" & ligne_init.Value - 1 & "*" & "n" & ligne_init.Value - 1 & ",2)"
            Range("P" & ligne_init.Value & ":P" & ligne_fin.Value).ClearContents
            Range("M" & ligne_init.Value & ":O" & ligne_fin.Value).Font.ColorIndex = 2
            Rows(ligne_init.Value & ":" & ligne_fin.Value).Select
            Selection.Rows.Group
 
            Application.ScreenUpdating = True
            ActiveSheet.Protect
 
        Else:
        MsgBox "Paramètres non valides", vbCritical
 
        End If
fin:
    End If
    Unload Me
End Sub

merci de votre aide et de votre temps passé.

CRDL.

22/12/2014, 14h48
Kimy_Ire
Bonjour jokobugs,

Je pense que la plus simple des méthodes est de simplement passer par un booléen avant de fermer ton Form.
"Tant que la variable n'est pas valide => Bool = False".
"Dès que la variable est valide => Bool = True".
Et donc :
Code:

1 2 3 If Bool then Unload Me End If
Mais la meilleure méthode serait surement la suivante :
Puisque tu es dans un "Do While", il me semble que tu peux placer ton "Unload" seulement au moment où ta variable est valide.

Cordialement,
Kimy
22/12/2014, 15h06
jokobugs

Bonjour Kimy_Ire ,

Et bien en fait non rien à faire ca ne marche pas car les condition à vérifié sont les donné rentré dans l'userform.

pour être claire description étape par étape :

click sur ruban
→ Ouverture du userform,
→ Remplissage des champs ligne de début et ligne de fin,
→ Click sur ok et exécution de la macro, mais si condition non respecté msgbox d'erreur,
→ Soit annulation,
→ Soit click sur ok et relancement du userform pour nouvelle valeurs.

voila merci.

CRDL

2 pièce(s) jointe(s)

Bonjour,

Il me semble que ne pas respecter les obligations structurelles de programmation par des sortie d'itération avec des "goto" ne peut que provoquer des pb! Je n'ai pas été plus loin mais il faudrait essayer de donner une bonne entrée de l'itération par un test qui règle l'élément suivant. Peut-être un booléen dans la boucle...

j'ai essayé de faire un userform qui utilise votre "Ok" et utiliser quelques fausses données pour l'essai :

J'ai modifié quelques lignes de la procédure "OK"
- une erreur d'écriture : Value.value
- suppression du goto par exit sub
- ...

Le userform fonctionne sans erreurs mais je ne sais pas si les données sont bonnes...

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub ok_button_Click()
    Dim i As Integer
    Dim form As String
    Dim k As Integer
    Dim l As Integer
 
    'If ActiveSheet.Name <> "Etude" And ActiveSheet.Name <> "Etude opt" Then
   ' MsgBox "Selection non valide pour cette opération", vbCritical
   ' Else:
    If ActiveSheet.Name <> "Feuil1" Then
       MsgBox "Selection non valide pour cette opération", vbCritical
       Exit Sub
    End If
 
    k = RechercherLignesDebutOuFin("Deb")
    l = RechercherLignesDebutOuFin("Fin")
    If ligne_init.Value = "" Or ligne_fin.Value = "" Then Exit Sub
        Do While (ligne_init = 0 Or ligne_fin = 0)
            'If ligne_init.Value = "" Then GoTo fin
            'If ligne_fin.Value = "" Then GoTo fin
            If (IsNumeric(ligne_init.Value) = False) Then ligne_init = 0
            If (IsNumeric(ligne_fin.Value) = False) Then ligne_fin = 0
            If (ligne_init.Value < 0) Or (ligne_init.Value - Int(ligne_init.Value) <> 0) Then ligne_init = 0 'erreur sur cette ligne(.value 2 fois)
            If (ligne_fin.Value < 0) Or (ligne_fin.Value - Int(ligne_fin.Value) <> 0) Then ligne_fin = 0
            If ligne_init.Value < ligne_fin.Value Then ligne_init = 0 And ligne_fin = 0
            If ligne_fin.Value < l Then ligne_fin = 0
            If ligne_init.Value > k Then ligne_init = 0
 
        Loop
 
        ActiveSheet.Unprotect
        Application.ScreenUpdating = False
 
        form = "O" & ligne_init.Value & "*N" & ligne_init.Value
 
        For i = ligne_init.Value + 1 To ligne_fin.Value
            form = form & "+O" & i & "*N" & i
 
        Next i
            Range("M" & ligne_init.Value - 1).Value = "Ens."
            Range("N" & ligne_init.Value - 1).Value = 1
            Range("O" & ligne_init.Value - 1).Formula = "=round(" & "(" & form & ")" & "/" & "n" & ligne_init.Value - 1 & ",nbarpu)"
            Range("P" & ligne_init.Value - 1).Value = "=round(" & "O" & ligne_init.Value - 1 & "*" & "n" & ligne_init.Value - 1 & ",2)"
            Range("P" & ligne_init.Value & ":P" & ligne_fin.Value).ClearContents
            Range("M" & ligne_init.Value & ":O" & ligne_fin.Value).Font.ColorIndex = 2
            Rows(ligne_init.Value & ":" & ligne_fin.Value).Select
            Selection.Rows.Group
 
            Application.ScreenUpdating = True
            ActiveSheet.Protect
 
 
End Sub

regardez et voyez si ça fonctionne chez vous.

Pièce jointe 164567

je vous joins mon essai :Pièce jointe 164568

a+

geogeo70

Bonjour,

je comprend votre point de vu et merci pour l'erreur, mais les vérifications à réaliser et relancer le Userform sont dans la boucle Do While / Loop.

en l'occurrence votre code ne marche pas du tout mieux que le mien en ce qui concerne ces sécurités.

Pour les GoTo, ici ils ne servent qu'à pouvoir sortir de la boucle dans certaine condition non rempli.

Le but est de vraiment pouvoir rechargé vierge le Userform tout comme un ImputBox compris dans une boucle.

Merci par avance à celui qui trouveras une solution.

Le code corrigé et complété ci après :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
 
'Callback for BT16 onAction
Sub ins_sous_ttx(control As IRibbonControl)
ins_sous_ttx_2
End Sub
 
Function RechercherLignesDebutOuFin(ByVal MotRecherche As String) As Long
 
Dim i As Range
 
    RechercherLignesDebutOuFin = 0
    Set i = Cells.Find(what:=MotRecherche, LookIn:=xlValues)
    If Not i Is Nothing Then RechercherLignesDebutOuFin = i.Row
    Set i = Nothing
 
End Function
 
Sub ins_sous_ttx_2()
 
    Dim i As Integer
    Dim k As Integer
    Dim l As Integer
 
    ins_sttx.Show
 
End Sub
 
Private Sub annul_button_Click()
 
    Unload Me
 
End Sub
 
Private Sub ligne_fin_Change()
 
End Sub
 
Private Sub ligne_init_Change()
 
End Sub
 
Private Sub ok_button_Click()
    Dim i As Integer
    Dim form As String
    Dim k As Integer
    Dim l As Integer
 
    If ActiveSheet.Name <> "Etude" And ActiveSheet.Name <> "Etude opt" Then
    MsgBox "Selection non valide pour cette opération", vbCritical
    Else:
 
    k = RechercherLignesDebutOuFin("Deb")
    l = RechercherLignesDebutOuFin("Fin")
 
        Do While (ligne_init = 0 Or ligne_fin = 0)
            If ligne_init.Value = "" Then GoTo fin
            If ligne_fin.Value = "" Then GoTo fin
            If (IsNumeric(ligne_init.Value) = False) Then ligne_init = 0
            If (IsNumeric(ligne_fin.Value) = False) Then ligne_fin = 0
            If (ligne_init.Value < 0) Or (ligne_init.Value - Int(ligne_init.Value) <> 0) Then ligne_init = 0
            If (ligne_fin.Value < 0) Or (ligne_fin.Value - Int(ligne_fin.Value) <> 0) Then ligne_fin = 0
            If ligne_init.Value < ligne_fin.Value Then ligne_init = 0 And ligne_fin = 0
            If ligne_fin.Value < l Then ligne_fin = 0
            If ligne_init.Value > k Then ligne_init = 0
 
        Loop
 
        ActiveSheet.Unprotect
        Application.ScreenUpdating = False
 
        form = "O" & ligne_init.Value & "*N" & ligne_init.Value
 
        For i = ligne_init.Value + 1 To ligne_fin.Value
            form = form & "+O" & i & "*N" & i
 
        Next i
            Range("M" & ligne_init.Value - 1).Value = "Ens."
            Range("N" & ligne_init.Value - 1).Value = 1
            Range("O" & ligne_init.Value - 1).Formula = "=round(" & "(" & form & ")" & "/" & "n" & ligne_init.Value - 1 & ",nbarpu)"
            Range("P" & ligne_init.Value - 1).Value = "=round(" & "O" & ligne_init.Value - 1 & "*" & "n" & ligne_init.Value - 1 & ",2)"
            Range("P" & ligne_init.Value & ":P" & ligne_fin.Value).ClearContents
            Range("M" & ligne_init.Value & ":O" & ligne_fin.Value).Font.ColorIndex = 2
            Rows(ligne_init.Value & ":" & ligne_fin.Value).Select
            Selection.Rows.Group
 
            Application.ScreenUpdating = True
            ActiveSheet.Protect
 
        Else:
        MsgBox "Paramètres non valides", vbCritical
 
        End If
fin:
    End If
    Unload Me
End Sub

Merci par avance du temps passé.

CRDL

1 pièce(s) jointe(s)

suite de l'essai...

J'essaie de comprendre vos vérifications des lignes init et fin : J'ai vu je pense une erreur la fin doit être plus grande que le début...

et est-ce que vos bornes de "Deb" et "Fin" sont bonnes : sont-elles minimum ou maximum, il me semble que c'est inverse je les ai gardées comme vous les avez définies.

j'ai supprimé votre itération par "si ... alors ...sinon" et j'ai converti les valeur texte en nombre :

Code:

1
2
3
4
5
6
7
8
 If linit = 0 Or lfin = 0 Or _
       linit < 0 Or Int(linit) <> linit Or _
       lfin < 0 Or Int(lfin) <> lfin Or _
       linit >= lfin Or _
       lfin < l Or linit > k Then
                x = MsgBox("Précisez les lignes!", vbCritical)
                Exit Sub
    End If

J'ai repris votre recherche des limites qui fonctionne bien mais j'ai ajouté les textbox init et fin : je les ai programmés pour ne saisir que des chiffres. j'ai mis un "Controlsource" en B2 et C2 (ça permet l'utilisation du nombre saisi)

Code:

1
2
3
4
5
6
7
Private Sub ligne_fin_Change()
If Not IsNumeric(ligne_fin.Value) Then ligne_fin.Value = ""
End Sub
 
Private Sub ligne_init_Change()
If Not IsNumeric(ligne_init.Value) Then ligne_init.Value = ""
End Sub

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
 
Private Sub ligne_fin_Change()
If Not IsNumeric(ligne_fin.Value) Then ligne_fin.Value = ""
End Sub
 
Private Sub ligne_init_Change()
If Not IsNumeric(ligne_init.Value) Then ligne_init.Value = ""
End Sub
 
 
Private Sub ok_button_Click()
    Dim i As Integer
    Dim form As String
    Dim k As Integer
    Dim l As Integer
    Dim linit As Integer, lfin As Integer  'transformer les chiffres en nombres
 
    'If ActiveSheet.Name <> "Etude" And ActiveSheet.Name <> "Etude opt" Then
   ' MsgBox "Selection non valide pour cette opération", vbCritical
   ' Else:
    If ActiveSheet.Name <> "Feuil1" Then
       MsgBox "Selection non valide pour cette opération", vbCritical
       Exit Sub
    End If
 
    k = RechercherLignesDebutOuFin("Deb")
    l = RechercherLignesDebutOuFin("Fin")
    If ligne_init.Value = "" Or ligne_fin.Value = "" Then Exit Sub
 
    linit = CInt(ligne_init.Value)
    lfin = CInt(ligne_fin.Value)
    If linit = 0 Or lfin = 0 Or _
       linit < 0 Or Int(linit) <> linit Or _
       lfin < 0 Or Int(lfin) <> lfin Or _
       linit >= lfin Or _
       lfin < l Or linit > k Then
                x = MsgBox("Précisez les lignes!", vbCritical)
                Exit Sub
    End If
        'Do While (ligne_init = 0 Or ligne_fin = 0)
            'If ligne_init.Value = "" Then GoTo fin
            'If ligne_fin.Value = "" Then GoTo fin
            'If (IsNumeric(ligne_init.Value) = False) Then ligne_init = 0
            'If (IsNumeric(ligne_fin.Value) = False) Then ligne_fin = 0
            'If (ligne_init.Value < 0) Or (ligne_init.Value - Int(ligne_init.Value) <> 0) Then ligne_init = 0 'erreur sur cette ligne(.value 2 fois)
            'If (ligne_fin.Value < 0) Or (ligne_fin.Value - Int(ligne_fin.Value) <> 0) Then ligne_fin = 0
 
            'If ligne_init.Value < ligne_fin.Value Then   !!!!erreur ->inverse
            '    ligne_init = 0
            '    ligne_fin = 0
            'End If
            'If ligne_fin.Value < l Then ligne_fin = 0   Faut-t-il plus grand? ...
            'If ligne_init.Value > k Then ligne_init = 0  Faut-t-il plus petit? ...
        'Loop
 
        ActiveSheet.Unprotect
        Application.ScreenUpdating = False
 
        form = "O" & linit & "*N" & linit
 
        For i = linit + 1 To lfin
            form = form & "+O" & i & "*N" & i
 
        Next i
            Range("M" & linit - 1).Value = "Ens."
            Range("N" & linit - 1).Value = 1
            Range("O" & linit - 1).Formula = "=round(" & "(" & form & ")" & "/" & "n" & linit - 1 & ",nbarpu)"
            Range("P" & linit - 1).Value = "=round(" & "O" & linit - 1 & "*" & "n" & linit - 1 & ",2)"
            Range("P" & linit & ":P" & lfin).ClearContents
            Range("M" & linit & ":O" & lfin).Font.ColorIndex = 2
            Rows(linit & ":" & lfin).Select
            Selection.Rows.Group
 
            Application.ScreenUpdating = True
            ActiveSheet.Protect
 
            Unload UserForm1
End Sub

voici l'essai :
Pièce jointe 164659

bon noel

geogeo70

24/12/2014, 11h11
jokobugs

Bonjour,

Merci pour l'info je pense que cela devrait marché en rajoutant quelque nettoyage de Textbox en plus, je test et vous tien au courant.

Je vous souhait à tous de joyeuse fête.

CRDL