Discussion :

[jokobugs]

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 :

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
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.

[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 :

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

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

[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

[geogeo70]

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 :

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
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.



je vous joins mon essai :essais.xlsm

a+

geogeo70

[jokobugs]

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 :

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
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

[geogeo70]

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 :

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

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 :

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

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 :

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
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 :
essais.xlsm

bon noel

geogeo70

[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