Formulaire MsgBox VBA

Bonjour à tous,

Je cherche à améliorer un formulaire que j'ai fait.
Est il possible de créer un MsgBox spécifiant à l'utilisateur qu'il a oublié de renseigner un "input".

Il y a un unique bouton go sur lequel l'utilisateur doit cliquer pour exécuter le code.
Et je souhaiterais que si ce dernier clique dessus alors qu'il a oublier de mentionné un "input" un MsgBox apparaisse: "Assurez vous d'avoir mentionner toutes les infos", par exemple.

Est ce possible?
Cordialement.

Oui, il suffit de vérifier le contenu des "inputs" au début de la procédure appelée par le "Go". Outre le fait que ce ne soit pas renseigné, tu peux d'ailleurs en profiter pour faire d'autre vérification (par exemple si un input est un nombre, s'assurer que l'utilisateur n'a pas entré du texte...).
Maintenant pour une aide plus précise, il nous faudrait un peu plus de détails.

Bonjour,

Pour compléter la réponse de ZebreLoup, après la ligne du MsgBox dans ton code tu mets Exit Sub pour stopper la progression de la macro

En résumé ça donne

Code:

---

1 2 3 4

If conditionpasremplie Then MsgBox "Le message" Exit Sub End If

---

Merci à vous pour vos réponse.

J'ai 3 types de "input".

-Certains où l'utilisateur doit entrer des nombres.
Je l'ai ai tous coder sous cette forme : A=Val(MaValeur.VAlue)

-Des boutons radio.
Eux correspondent tous à des fonction stocker dans un modules.
Donc je teste si le bouton radio a été coché puis j'appelle la fonction correspondantes.

Et des listes déroulantes.(j'en ai mis lorsque je pouvais en mettre).

J'aimerais bien indiquer à l'utilisateur qu'il doit tout cocher avant d'appuyer sur GO.
Et si je pouvais aussi éviter les erreurs de compilation lorsque l'utilisateur tape du texte comme dit Zebreloup...

Mais je n'ai aucune idéé de la manière dont je dois m'y prendre.

En fait pour les boutons radio c'est une simple ribambelle de tests:

Code:

---

1 2 3 4 5

If PremierBouton.Value = true Then Valeurrechercher = Fonction1 Else If SecondBouton.Value = true Then Valeurrechercher = Fonction2 Else If ...

---

Toutes les valeur demander à l'utilisateur doivent être des valeur numérique mais comment puis je faire alors que je récupère ces valeurs de la sorte :

Code:

---

A=Val(MaValeur.VAlue)

---

, pour mettre une condition dessus?

Je ne sais pas si ma requête est clair.
Désolé.
Si ce n'est pas le cas, dites le moi.

Merci de votre aide.
Cordialement.

Un fonction pour vérifier que c'est une valeur numérique :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Function VerifNombre(inputVal As String, ByRef outputVal As Double) As Boolean   On Error GoTo ErrorManagement   outputVal = CDbl(inputVal)   VerifNombre = True Exit Function   ErrorManagement:   outputVal = 0 VerifNombre = False     End Function

---

Qu'on peut utiliser de la manière suivante par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub Test()   Dim d As Double Dim s As String   s = Range("A1").Value   If Not VerifNombre(s, d) Then MsgBox "L'Input en A1 doit être un nombre" Exit Sub End If   'Utiliser d...   End Sub

---

il y a peut-être plus simple pour vérifier si la valeur est numérique

Code:

---

1 2 3 4 5 6

If IsNumeric(TextBox1.Value) Then MaVal = Val(Replace(TextBox1.Value, ",", ".")) '<-- Replace(...) pour remplacer la virgule par un point en cas de valeur décimale Else MsgBox "veuillez introduire une valeur numérique dans la case ..." Exit Sub End If

---

Il va également falloir vérifier les ListBox une à une

Code:

---

1 2 3 4 5 6

If LisBox1.Value = "" then Msgbox "veuillez choisir une valeur dans la liste X" Exit Sub Else MaVal = ListBox1.Value End If

---

Et pour les boutons d'option

Code:

---

1 2 3 4 5 6 7 8 9 10

If Bouton1 = True Then 'à faire si bouton 1 ElseIf Bouton2 = True Then 'à faire si bouton 2 ElseIf Bouton3 = True Then 'à faire si bouton 3 Else MsgBox "veuillez choisir une option" Exit Sub End If

---

Oui, c'est vrai, j'avais oublié le IsNumeric. J'utilise ma fonction plutôt pour les Integer en général effectivement.