Est-ce un bug ou un erreur dans un userform ?

Version imprimable

1 pièce(s) jointe(s)

Bonjour a vous,

J'ai fais un userform avec compteur afin d'avisé l'utilisateur qu'il y a des champs manquant qu'il aurais dû remplir. Lorsqu'un champs est vide, on augmente de 1 le compteur. Si le compteur est a 0, on exécute le code si le compteur est plus grand que 1, on ouvre un msgbox en avisant le nombre de champs a remplir

J'ai un probleme avec les boutons options. J'ai dans un cadre, 2 boutons options, 1 pour oui et 1 pour non.

Si j'exécute mon code sans avoir coché un des deux options, mon code compte 1 et tout va sur des roulettes. Si je coche le non, le code ne le compte pas et tous fonctionne a merveille. Si je selectionne le oui, il le compte malgré dû fait qu'il ne devrais pas ajouté.

voici le code en question
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 Private Sub cmdOK_Click() Dim compteur As Integer [nom_dossier] = txtNom_dossier [numero_dossier] = txtNumero [nom_precedent] = textNom_anterieur [date_demarrage] = DTPDate_rencontre [nom_conseiller] = cmbNom_conseiller [nom_technicien] = cmbNom_tech [nom_chef] = cmbNom_chef [type_de_dossier] = cmbType_dossier [porte_du_dossier] = cmbPortee If optOui = True Then [premiere_fois] = "OUI" ElseIf optNon = True Then [premiere_fois] = "NON" End If If txtNom_dossier = Empty Then compteur = compteur + 1 End If If txtNumero = Empty Then compteur = compteur + 1 End If If textNom_anterieur = Empty Then compteur = compteur + 1 End If If DTPDate_rencontre = Empty Then compteur = compteur + 1 End If If cmbNom_conseiller = Empty Then compteur = compteur + 1 End If If cmbNom_tech = Empty Then compteur = compteur + 1 End If If cmbNom_chef = Empty Then compteur = compteur + 1 End If If cmbType_dossier = Empty Then compteur = compteur + 1 End If If cmbPortee = Empty Then compteur = compteur + 1 End If If optOui And optNon = False Then compteur = compteur + 1 End If If compteur > 1 Then MsgBox "Il manque" & Chr(32) & compteur & Chr(32) & "champ(s) a remplir", vbCritical Else Unload Me End If End Sub
Pièce jointe 420066

merci pour votre aide !!!!!

17/10/2018, 17h19
MarcelG

Bonjour,

Sur la structure du code.
Plutôt balayer les contrôles à partir d'un array et en incrémentant ainsi le compteur.

Sur ta difficulté.
Je ne comprends pas

Citation:

Si je selectionne le oui, il le compte malgré dû fait qu'il ne devrais pas ajouté.

Dans ton code, tu sembles compter une erreur si OptOui = True et OptNon = False.
(Au passage, même si cela paraît redondant, affecter la valeur True est parfois utile à la lisibilité du code)
Je ne vois pas pourquoi.

L'array te serait d'autant plus utile pour alimenter ta feuille de travail.
A une condition : que tes noms de contrôle et que les noms de ta feuille soient homogènes.
Dans mes développements,
Les contrôles se nomment Txt_lacellulemarcel
Dans ma feuille de travail, ma cellule informée se nomme lacellulemarcel.
Une fois cette discipline réalisée, l'alimentation devient plus claire donc plus facile.
Ce en bouclant sur un array comportant, entre autres, "lacellulemarcel"

Reviens si nécessaire

Bonjour le fil, bonjour le forum,

Plutôt qu'un compteur, pourquoi ne pas rendre les contrôles obligatoires avec un code du style :

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
Private Sub cmdOK_Click()
With txtNom_dossier
    If .Value = "" Then
    MsgBox "Vous devez remplir le champ " & Chr(34) & "Nom du dossier" & Chr(34) & " !"
    .SetFocus
    Exit Sub
End With
 
If optOUI.Value = False And optNON = False Then
    MsgBox "Vous devez choisir l'option " & Chr(34) & "oui" & Chr(34) & " ou l'option " & Chr(34) & "non" & Chr(34) & " !"
    optOUI.SetFocus
    Exit Sub
End If
'faire pareil avec les autres contrôles txtNumero, textNom_anterieur, DTPDate_rencontre, cmbNom_conseiller, cmbNom_tech, cmbNom_chef, cmbType_dossier, cmbPortee
 
'chaque fois qu'un contrôle sera vide, il prendra le focus (le curseur sera dans lui) et le code s'arrêtera
 
'si tous les contrôles obligatoires sont remplis les données sont renvoyées dans l'onglet
[nom_dossier] = txtNom_dossier
[numero_dossier] = txtNumero
[nom_precedent] = textNom_anterieur
[date_demarrage] = DTPDate_rencontre
[nom_conseiller] = cmbNom_conseiller
[nom_technicien] = cmbNom_tech
[nom_chef] = cmbNom_chef
[type_de_dossier] = cmbType_dossier
[porte_du_dossier] = cmbPortee
Unload Me
End Sub

17/10/2018, 17h39
MarcelG

Salut Thautheme,

Personnelement, dans ta proposition, je placerais un Exit Sub si une condition s'avère vraie.
Car inutile de passer à la suivante.

D'autre part, multiplier les conditions me semble lourd.
Je privilégierais le balayage d'un Array avec un Exit For si l'un des contrôles balayés n'étaient pas informés.
17/10/2018, 17h45
jpvba

MErci beaucoup pour vos réponses

il fallait que je spécifie également optOui = False

Pour la array, je vais faire un test car effectivement, c'Est redondant les conditions !!!
17/10/2018, 17h57
MarcelG

Une indication;
Tu déclares ton array en lui affectant une variable.
Cette précaution te servira au balayage, mais aussi à l'alimentation de ta feuille à la condition que j'ai évoquée plus haut.

Tu reviens si nécessaire.
17/10/2018, 18h02
jpvba

Bonjour MArcel,

Pour etre honete avec vous, je n'ai jamais travailler avec les array ... J'ai posté un post a ce sujet mais bref ca viré dans un autre solution.

Code:

liste_obligatoire = Array(txtNom_dossier, txtNumero, txtNom_anterieur, DTPDate_rencontre, cmbNom_conseiller, cmbNom_tech, cmbType_dossier, cmbPortee)

JE dois faire un For each (je ne sais pas comment dire ou dois je faire une variable) in liste_obligatoire

if (je ne sais pas comment dire, un element est false) then

gros merci pour votre aide et instruction et formation !!!

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
Private Sub cmdOK_Click()
 
Dim compteur As Integer
Dim liste_obligatoire As Variant
Dim elements As Variant
 
[nom_dossier] = txtNom_dossier
[numero_dossier] = txtNumero
[nom_precedent] = txtNom_anterieur
[date_demarrage] = DTPDate_rencontre
[nom_conseiller] = cmbNom_conseiller
[nom_technicien] = cmbNom_tech
[nom_chef] = cmbNom_chef
[type_de_dossier] = cmbType_dossier
[porte_du_dossier] = cmbPortee
 
If optOui = True Then
    [premiere_fois] = "OUI"
ElseIf optNon = True Then
    [premiere_fois] = "NON"
End If
 
liste_obligatoire = Array(txtNom_dossier, txtNumero, txtNom_anterieur, DTPDate_rencontre, cmbNom_conseiller, cmbNom_tech, cmbType_dossier, cmbPortee)
 
For Each elements In liste_obligatoire
If elements = Empty Then
compteur = compteur + 1
End If
Next elements
 
 
' If txtNom_dossier = Empty Then
' compteur = compteur + 1
' End If
'
' If txtNumero = Empty Then
'compteur = compteur + 1
' End If
'
' If txtNom_anterieur = Empty Then
'compteur = compteur + 1
' End If
'
' If DTPDate_rencontre = Empty Then
'compteur = compteur + 1
' End If
'
' If cmbNom_conseiller = Empty Then
'compteur = compteur + 1
' End If
'
' If cmbNom_tech = Empty Then
'compteur = compteur + 1
' End If
'
' If cmbNom_chef = Empty Then
'compteur = compteur + 1
' End If
'
' If cmbType_dossier = Empty Then
'compteur = compteur + 1
' End If
'
'If cmbPortee = Empty Then
'compteur = compteur + 1
' End If
'
If optOui = False And optNon = False Then
compteur = compteur + 1
 End If
 
If compteur > 1 Then
MsgBox "Il manque" & Chr(32) & compteur & Chr(32) & "champ(s) a remplir", vbCritical
Else
Unload Me
End If
 
End Sub

Voici ce que ça donne mais sans aucun résultats !!!! (j'ai gardé mes nombreuses conditions en commentaire pour l'instant)

Edit 1

Voic mon code finale ... ça fonctionne a merveille !!!!

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
Private Sub cmdOK_Click()
 
Dim compteur As Integer
Dim liste_obligatoire As Variant
Dim elements As Variant
 
[nom_dossier] = txtNom_dossier
[numero_dossier] = txtNumero
[nom_precedent] = txtNom_anterieur
[date_demarrage] = DTPDate_rencontre
[nom_conseiller] = cmbNom_conseiller
[nom_technicien] = cmbNom_tech
[nom_chef] = cmbNom_chef
[type_de_dossier] = cmbType_dossier
[porte_du_dossier] = cmbPortee
 
If optOui = True Then
    [premiere_fois] = "OUI"
ElseIf optNon = True Then
    [premiere_fois] = "NON"
End If
 
liste_obligatoire = Array(txtNom_dossier, txtNumero, txtNom_anterieur, DTPDate_rencontre, cmbNom_conseiller, cmbNom_tech, cmbNom_chef, cmbType_dossier, cmbPortee)
 
For Each elements In liste_obligatoire
If elements = Empty Then
compteur = compteur + 1
End If
Next elements
 
If optOui = False And optNon = False Then
compteur = compteur + 1
 End If
 
If compteur > 1 Then
MsgBox "Il manque" & Chr(32) & compteur & Chr(32) & "champ(s) a remplir", vbCritical
Else
Unload Me
End If
 
End Sub

Salut,

Voici, voilou.

Après l'avoir regardé et compris
Essaie d'adapter ce code à ton cas.
(Attention aux noms!)

Tu reviens au moindre détail.

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
Private Sub Btn_Valid_Click()
 
Dim listectr As Variant
Dim ctr As Variant
Dim compterrr As Byte
Dim lefocus As Variant
 
listectr = Array("lenom", "leprénom")
compterr = 0
 
For Each ctr In listectr
        If Controls("Txt_" & ctr).Value = "" Then _
            compterr = compterr + 1
        If compterr = 1 Then lefocus = ctr
Next ctr
 
If compterr > 0 Then
        MsgBox "Il vous reste " & compterr & " champ(s) à compléter"
        Controls("Txt_" & lefocus).SetFocus
        Exit Sub
Else
        For Each ctr In listectr
                Worksheets("lafeuille").Range(ctr).Value = Controls("Txt_" & ctr).Value
        Next ctr
        MsgBox "Traitement OK"
        Unload Me
End If
 
End Sub

Code:

Exit Sub

est une précaution dans le cas où tu aurais du code qui suivrait la condition.

17/10/2018, 18h32
Thautheme

Re,

Citation:

Envoyé par MarcelG

Personnelement, dans ta proposition, je placerais un Exit Sub si une condition s'avère vraie.
Car inutile de passer à la suivante.

Oui t'as certainement raison :mouarf: ... Problème de lunettes sans doute.

Je persiste à penser, avec un Array ou pas, que je trouve un compteur inutile et qu'il vaudrait mieux arrêter le code chaque fois qu'un contrôle, qui nécessite l'édition de l'utilisation, est vide. Ce n'est qu'à la fin que les données seront renvoyées dans l'onglet.
17/10/2018, 19h33
jpvba

Bonjour Marcel,

Étant donné que j'ai des combo box, et que je veux garder les préfixes, devrais-je ajouté une condition ou un autre solution serais plus envisageable ???

en vous remerciant !!!

Voici la tentative de modification mais j'ai un erreur -2147024809(80070057): Objet spécifié introuvable

à la ligne

Code:

If Controls("txt" & ctr).Value = "" Then

du code

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
Private Sub cmdOK_Click()
 
Dim listetxt As Variant
Dim listecmb As Variant
Dim ctr As Variant
Dim cmb As Variant
Dim compteur As Byte
Dim lefocus As Variant
 
If optOui = True Then
    [premiere_fois] = "OUI"
ElseIf optNon = True Then
    [premiere_fois] = "NON"
End If
 
listetxt = Array([nom_dossier], [numero], [nom_anterieur])
listecmb = Array([nom_conseiller], [nom_tech], [nom_chef], [type_dossier], [portee], [nom_anterieur])
 
 
compteur = 0
 
For Each ctr In listetxt
        If Controls("txt" & ctr).Value = "" Then
            compteur = compteur + 1
        End If
        If compteur = 1 Then
        lefocus = ctr
        End If
Next ctr
 
For Each cmb In listecmb
        If Controls("cmb" & cmb).Value = Empty Then
            compteur = compteur + 1
        End If
        If compteur = 1 Then
        lefocus = cmb
        End If
Next cmb
 
If compteur > 0 Then
        MsgBox "Il vous reste " & compteur & " champ(s) à compléter"
        Controls("Txt_" & lefocus).SetFocus
        Exit Sub
Else
        For Each ctr In listetxt
                Worksheets("Form. démarrage").Range(ctr).Value = Controls("txt" & ctr).Value
        Next ctr
        For Each cmb In listecmb
                Worksheets("Form. démarrage").Range(cmb).Value = Controls("cmb" & ctr).Value
        Next cmb
        MsgBox "Traitement OK"
        Unload Me
End If
 
End Sub

merci beaucoup !!!

(Je trouve cela plus complexe que mon code et plus de boucle...)

17/10/2018, 21h16
Thautheme

1 pièce(s) jointe(s)

Re,

Un exemple de ce que l'on peut faire avec la propriété [Tag] du contrôle qui correspond à la colonne où doit être renvoyée sa valeur et avec les labels renommées.
La boucle permet de s'arrêter sur le contrôle non renseigné en temps réel puis, de renvoyer les données dans l'onglet au bon endroit. Les boutons d'option sont traités à part...
18/10/2018, 09h44
MarcelG

Bonjour JPVBA, Bonjour le Forum,

Attention, les éléments composant les array sont sous la forme String (avec ""). Voir ma proposition.
Sinon
Place un Debug.Print ctr avant cette ligne en anomalie et assure toi que le contrôle Txt & ctr existe bien (avec cet orthographe)
18/10/2018, 19h18
jpvba

Bonjour a vous,

Le code de thautheme est géant !!!

J'ai jamais utilisé le debug.print je vais faire quelques recherche la-dessus !!!

un gros merci a vous deux, c'est vriament apprécié !!!