Discussion :

[kingman29]

Bonjour

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

[Philippe Tulliez]

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 :

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

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

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

[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

[Pierre Fauconnier]

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?

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

+ 1.000.000

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.

[kingman29]

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é

[kingman29]

Bonjour,

[/CODE]

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