msgbox si certain ComboBox sont vide

Bonjour
Pièce jointe 603792
dans le Form ci-dessus j'ai plusieurs combobox

je veux quand j'ai rempli le combobox produit et les autres combobox (*) sont vide a message sera affiché " Veuillez remplir les champs(*) "

j'ai essayé plusieurs commande VBA, mais quand j'ai remplis Produit et le Marché , par exemple Produit : Bitumes , Marche : National
un tableau sera crée dans la feuille National et puis il m'affiche un message " Veuillez remplir les champs(*) "
Note:
01- le nom d'utilisateur : admin, Mot de passe : P123
pour afficher la Form ci-dessus, il faut cliquer sur l'onglet RA1Z, puis Consultation puis Chiffre d'Affaire

Bonjour,
Je ne suis pas partisan d'afficher un MsgBox après chaque encodage erroné
Je privilégie le contrôle des saisies après validation de l'utilisateur parla touche ok soit juste avant la fermeture du formulaire

Exemple La fonction ci-dessous met en rouge les contrôles TextBox et/ou ComboBox qui ne seraient pas remplis et dont la propriété Tag contient "-1"

Code:

---

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

Function IsOk() ' Contrôle si les contrôles dont la propriété Tag est égal à - sont remplis Dim Ctrl As Control Dim Flag As Boolean IsOk = True For Each Ctrl In Me.Controls Debug.Print TypeName(Ctrl) With Ctrl Select Case TypeName(Ctrl) Case "TextBox": Flag = Len(.Value) = 0 And .Tag = "-1" Case "ComboBox": Flag = Len(.Value) = 0 And .Tag = "-1" Case Else: Flag = 0 End Select If Flag Then .BackColor = vbRed: IsOk = False Else .BackColor = -2147483633 End With Next Set Ctrl = Nothing End Function

---

La procédure qui invoque la fonction
Si la fonction IsOk renvoie False, le formulaire reste ouvert
Personnellement, je pense que c'est suffisamment compréhensif pour l'utilisateur s'il voit les contrôles en rouge mais j'ai tout de même placé la ligne avec le MsgBox pour la démonstration
Il est également possible d'invoquer la procéder IsOk à chaque sortie du contrôle.

Code:

---

1 2 3 4 5 6 7 8

Private Sub cmd_Ok_Click() If IsOk Then ' Mise à jour des données introduites ' Unload Me Else MsgBox "Les champs en rouge ne sont pas remplis" End If End Sub

---

Je prends votre solution comme une idée secondaire, mais juste pour apprendre VBA code je veux le code VBA si j'ai rempli quelques ComboBox et j'en ai oublié une ou deux, un message d'erreur apparaît
s'il vous plait

Citation:

---

Envoyé par kingman29

Je prends votre solution comme une idée secondaire, mais juste pour apprendre VBA code je veux le code VBA si j'ai rempli quelques ComboBox et j'en ai oublié une ou deux, un message d'erreur apparaît
s'il vous plait

---

Philippe a répondu pile poil à ta question => Comment faire si j'ai oublié un ou deux combobox?

Que vouloir de plus?

Citation:

---

Envoyé par Philippe Tulliez

[...]
Je ne suis pas partisan d'afficher un MsgBox après chaque encodage erroné[...]

---

+ 1.000.000 :plusser:

Je voudrais que parfois, les gens qui conçoivent des trucs se mettent à la place des gens qui les utilisent. Ca vaut pour une application, mais pour plein d'autres trucs qui font ch*** dans la vie parce que les "designers" ont trouvé "fun" de faire un truc de chiotte qui emm* l'utilisateur tout au long de son utilisation du produit/appli/concept.

Citation:

---

Envoyé par Pierre Fauconnier

Philippe a répondu pile poil à ta question => Comment faire si j'ai oublié un ou deux combobox?
.

---

Bonjour, j'avais un seul problème que j'ai pas compris leur solution (j'étais un peux confus), je vais considéré leur solution comme solution final

Désolé

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

[/CODE]

---

Bonjour,
Ou je dois remplacé les deux code s'il vous plait?