MsgBox pour de nombreuses Tbx...

[MuscatMimi]

Bonsoir a tous et a toutes🙂

dans le fichier joint,je ne sais pas comment faire
pour avoir un MsgBox
pour comfirmer que toutes mes Tbx et Cbx soient remplie
avant Validation
dans l'attente de vos proposition
je vous en remercie a l'avance

A bientôt et bonne soirée😉

 

[Excel-lent]

Re : MsgBox pour de nombreuses Tbx...

Bonsoir Vaucluse Immo,


A l'intérieur de ta UserForm "NouveauFournisseurs" dans ta macro "Private Sub ToggleButton1_Click()"

insérer ceci :

(...)
If ComboBox1.Value = "" Then
  MsgBox "Vous avez oublié de renseigner la ComboBox1! Merci d'y remédier"
  Exit Sub
End If
If TextBox1.Value = "" Then
  MsgBox "Vous avez oublié de renseigner la TextBox1! Merci d'y remédier"
  Exit Sub
End If
(...)

Si tu as un soucis pour insérer et/ou l'adapter à ton fichier, dis le, je me pencherais sur ton fichier plus longuement.

Bonne soirée

 

[MuscatMimi]

Re : MsgBox pour de nombreuses Tbx...

Salut Excel-lent

merci de ta réponse, c'est gentil

Ce code je le connais
je vouilais juste savoir s'il existait pas un moyen, de faire un MsgBox général pour toutes les Tbx et Cbx

bonne soirée

 

[Excel-lent]

Re : MsgBox pour de nombreuses Tbx...

Bonsoir,


Je peux aussi te proposer cela, mais tu dois déjà connaître également :

(...)
If ComboBox1.Value = "" And TextBox1.Value = "" And ... And ... Then
  MsgBox "Vous avez oublié de renseigner une (ou plusieurs des zones de saisies)! Merci d'y remédier"
  Exit Sub
End If
(...)

Ou faire une boucle, pour t'éviter de les faire un par un :

  For i = 1 To ...
     If Controls("TextBox" & i).Value = "" Then
        MsgBox "Vous avez oublié de renseigner une (ou plusieurs des zones de saisies)! Merci d'y remédier"
        Exit Sub
     End If
  Next i

Mais cela aussi tu dois connaître?

A l'heure actuel, je ne connais pas d'autre solution!

Bonne fin de soirée

 

[bqtr]

Re : MsgBox pour de nombreuses Tbx...

Bonjour Christian, Excel-Lent,

Il y a aussi cette façon de faire en une seule fois :

'-- Validation
Private Sub CommandButton1_Click()
Dim Ctrl
'--Copy Feuill "Modéle"
For Each Ctrl In Controls
  If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
     If Ctrl.Value = "" Then
        MsgBox "Pas bon"
        Exit Sub
     End If
  End If
Next

A+

 

[MuscatMimi]

Re : MsgBox pour de nombreuses Tbx...

Bonjour bqtr et le Forum

Ok pour le cde que tu viens de me passer

seule chose que j'ai oublié de retirer de mon Code ,c'est la Copy de la feuille, en fait
je ne me sert pas de cette procédure dans cet Usf,
Mais pas grave ,j'ai compris ton Code
Merci encore

Bonne journée