Discussion :

[adridech]

Bonjour à tous,

Toujours dans le cadre de la réalisation de mon TFE (crf autres posts), j'essaie maintenant de gérer les différentes erreurs qui plantent mon programme.

Et je commence avec la plus évidente, lorsque l'utilisateur oublie de rentrer une information dans une textbox/combobox/listbox.

Le procédure de calcul commence lorsque l'utilisateur clic sur "suivant" mais si un champs d'entrée est incomplet, je veux donc afficher un msgbox indiquant " veuillez compléter les champs".

Donc :

Code :

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

1
2
3
If combobox = false Then 
msgbox "veuillez compléter les champs", vbOKOnly
End if

La msgbox s'affiche bien mais mon code continue quand mm sa route sans prendre des valeurs parfois essentielles à la suite du calcul.
Il faut donc que je contrôle si tous les champs sont complétés en début de procédure (juste après le clic suivant) et si ce n'est pas le cas msgbox -> retour à l'userform où l'on rentre les données -> effectuer le contrôle à nouveau. Si mtn tout est rempli, les calculs s’enchaînent avec les bonnes valeurs rentrées.

J'ai essaye la façon suivante mais sans succès :

Code :

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

1
2
3
4
5
Do While Combobox = False
 
        MsgBox "veuillez compléter les champs ", vbOKOnly
 
Loop

Mais ça ne fonctionne pas nn plus.

Pouvez-vous m'aider ?

Merci beaucoup.

[Menhir]

Code :

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

1
2
3
If combobox = false Then 
msgbox "veuillez compléter les champs", vbOKOnly
End if

La msgbox s'affiche bien mais mon code continue quand mm sa route sans prendre des valeurs parfois essentielles à la suite du calcul.

Code :

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

1
2
3
4
If combobox = false Then 
   msgbox "veuillez compléter les champs", vbOKOnly
   Exit Sub
End if

[adridech]

Bonjour Menhir,

Désolé j'avais laissé ce problème de côté...
Merci de ta réponse, cependant, si je "exit sub" alors tout mes calculs se trouvant dans ce sub ne sont pas pris en compte..

il faudrait donc qu'une fois l'utilisateur ait appuyer sur "suivant", le code vérifie les données rentrées.
Si tous les champs d'entrées ne sont pas complets ou complété de manière incorrecte, le code effectue la vérification et renvoie le message d'erreur tant que tout les champs ne sont pas corrects.

Mais peut être serait-il plus simple de dégriser le bouton "suivant" avant que toute les cases ne soient remplies. Je vais donc analyser cette piste.
Peut être auriez vous un code adéquat ?

Merci de votre aide.

[kiki29]

Salut, à lire : Utiliser les contrôles dans un UserForm, en VBA Excel

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
 
Msg="1"
Do while msg=""
Msg =inputbox("entrez valeur")
If trim("" & msg)<> "" then exit do
msgbox "veuillez compléter les champs", vbOKOnly
Loop

[adridech]

Bonsoir,

merci pour vos réponse.

dysorthographie, désolé mais je n'ai pas compris votre code, je n'ai donc pas réussi à l'appliquer à ma situation...

Ayant lu les explications dans le lien de kiki29, je vais effectivement dégriser la commande "suivant" une fois que tous les champs sont remplis.

pour le moment voici comment ca fonctionne :

Code :

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

1
2
3
4
sub userforme_initialize
'charge toute les infos necessaire dans combobox et listbox, c'est ces infos que l utilisateur doit séléctionner
suivant2.Enabled = False
en sub

ensuite, le calcul se lance avec :

Code :

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

1
2
3
4
Private Sub Suivant2_click()
'Msd=ql^2/8
'...
End sub

dois-je rajouter une étape de vérification entre les deux sub présents ? si oui, quel est élément déclencheur ? un Change ? Est-ce possible demander le dégrisement de la commande "suivant" une fois que tous les champs aient "changé" ? si oui comment ?

Car pour le moment j'ai grisé le bouton de commande "suivant" et tous les champs d'entrées sauf le premier.

Une fois le premier "changé", le deuxieme champs se dégrise,... ainsi de suite jusqu'au dernier champs d'entrée qui dégrise la bouton "suivant".
Mais j'ai du créer un sub pour chaque "listbox1_change", "listbox2_change",... De plus je force l'utilisateur à remplir les champs dans un certaine ordre, ce qui n'est pas tjrs intéressant.

J'espere que vous avez bien compris mon probleme et que vous trouverez une chouette solution

Merci beaucoup.

[adridech]

Voila ce que j'ai fait : (sacahnt que tout ce qui est "choix..." sont les noms de combobox)

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
Private Sub choixresistancebeton2_AfterUpdate()
 
If choixresistancearmature2 <> "" Then
Suivant4.Enabled = True
End If
 
End Sub
 
Private Sub choixresistancearmature2_AfterUpdate()
 
If choixresistancebeton2 <> "" Then
Suivant4.Enabled = True
End If
 
End Sub

Vu que j'ai que 2 ou 3 listbox, combobox par userform, ca reste cette technique reste possible, mais elle n'est pas adapté pour des userform avec bcp de de choix a faire...

Si vous avez d'autres solutions, c'est tjrs interessant merci

[Invité]

Bonjour,
on ne teste pas un booléen pour affecter la même valeur à un autre booléen

Code :

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

Suivant4.Enabled =choixresistancearmature2 <>""

!