Autres saisie obligatoire dans plusieurs textbox d'un userform

[JOELJBJ]

Bonjour à tous et mille bisous à celui qui va m'aider!!! Cela fait plusieurs heures que je galère avec un truc certainement trop facile... De plus (si possible ce serait parfait si cela fonctionne avec Excel 2007 et 2019)

J'ai un UserForm avec 8 TextBox et un Conbo

je voudrais bloquer le Btn enregistrer si les champs ne sont pas remplis

pas de format à respecter (c'est tout du texte)

J'y suis arrivé avec text1

Pprivate Sub txt1_change()
If txt1 <>"" Then
btn enregistrer .Enable=True
Else
btn enregistrer.Enable=False
End if
End Sub

Super ça marche

ça se complique quand je veux ajouter les autres, je cherche de l'aide!!!
au secourt...
Merci d'avance
JBJ

 

[patricktoulon]

bonjour
tu peux te créer un event change de substitution comme ça on touche pas au code existant sauf dans le activate
cet event réagi a tout les textbox que tu a mis dans le activate dans une simple boucle
du genre comme ça

Public WithEvents txtb As MSForms.TextBox
Dim Cls(1 To 8) As New UserForm1


Private Sub txtb_Change()
    Dim x As Boolean
    x = True
    For i = 1 To 8
        If UserForm1.Controls("Textbox" & i) = "" Then x = False: Exit For
    Next
    UserForm1.CommandButton1.Enabled = x
End Sub

Private Sub UserForm_Activate()
   CommandButton1.Enabled = False
   For i = 1 To 8
        Set Cls(i).txtb = Me.Controls("Textbox" & i)
    Next
End Sub

démo

 

[Robert]

Bonsoir Joël, bonsoir le forum,

C'est plutôt sur le bouton Enregistrer qu'il faut agir avec un code du style :

Private Sub CommandButton1_Click()

'***********************************************
If Me.TextBox1.Value = "" Then
    MsgBox "Vous devez remplir ce champ !"
    Me.TextBox1.SetFocus
    Exit Sub
End If
'***********************************************

'ton code pour l'enregistrement
 End Sub

Répéter le code entre les lignes étoilées pour chaque contrôle obligatoire...

 

[Robert]

Re,

Si tu as beaucoup de contrôles obligatoires voici un petit exemple commenté.
J'ai affecté à la propriété Tag des textboxes, le numéro de la colonne où sa valeur doit être renvoyée.
J'ai rajouté "OB" à la fin du nom de chaque contrôle OBligatoire. Cela permet une boucle et évite de répéter le code de mon post précédent.

 

[JOELJBJ]

Merci vous êtes tous des amours
je fais un test au plus vite
Demain je pense car ce soir je suis naze de chez naze
je vous embrasse bien fort et vous tiens au courant
JBJ

 

[Robert]

Bonsoir Patrick,

Nos posts se sont croisés et je navet pas vu ta réponse. Je viens de la découvrir. Impec comme d'hab...

 

[patricktoulon]

re
bonsoir @Robert
ma méthode a un avantage c'est que c'est juste de l'ajout on ne modifie rien dans le code existant
on ajoute juste les deux lignes dans l'activate ou on veux
par exemple ici on a 8 textbox
imaginons qu'elle ai mis du code dans l'event change de chaque textbox
il pourrait être difficile d'intégrer un Contrôle de celui ci et les 7 autres sans perturber le reste du code

là je les classe et l'event de substitution est complètement indépendant de leur event original les deux peuvent cohabiter l'event du textbox1 si il a du code il fait son job
l'event de substitution quand le textbox1 change fait son job à lui

bon au début c'est un peu tordu a comprendre mais j’utilise assez souvent cette astuce

en plus c'est intra userform pas de module classe donc transportabilité 100%

 

[JOELJBJ]

bonjour
tu peux te créer un event change de substitution comme ça on touche pas au code existant sauf dans le activate
cet event réagi a tout les textbox que tu a mis dans le activate dans une simple boucle
du genre comme ça

Public WithEvents txtb As MSForms.TextBox
Dim Cls(1 To 8) As New UserForm1


Private Sub txtb_Change()
    Dim x As Boolean
    x = True
    For i = 1 To 8
        If UserForm1.Controls("Textbox" & i) = "" Then x = False: Exit For
    Next
    UserForm1.CommandButton1.Enabled = x
End Sub

Private Sub UserForm_Activate()
   CommandButton1.Enabled = False
   For i = 1 To 8
        Set Cls(i).txtb = Me.Controls("Textbox" & i)
    Next
End Sub

Regarde la pièce jointe 1130688

démo
Regarde la pièce jointe 1130690

Bonjour Patrick c'est super !!! cela fonctionne à merveilles. je ne m'en aurai pas sortie sans ton aide. Bravo tu touches un max, mille bisous comme promis...

 

[JOELJBJ]

Re,

Si tu as beaucoup de contrôles obligatoires voici un petit exemple commenté.
J'ai affecté à la propriété Tag des textboxes, le numéro de la colonne où sa valeur doit être renvoyée.
J'ai rajouté "OB" à la fin du nom de chaque contrôle OBligatoire. Cela permet une boucle et évite de répéter le code de mon post précédent.

Bonsoir Joël, bonsoir le forum,

C'est plutôt sur le bouton Enregistrer qu'il faut agir avec un code du style :

Private Sub CommandButton1_Click()

'***********************************************
If Me.TextBox1.Value = "" Then
    MsgBox "Vous devez remplir ce champ !"
    Me.TextBox1.SetFocus
    Exit Sub
End If
'***********************************************

'ton code pour l'enregistrement
 End Sub

Répéter le code entre les lignes étoilées pour chaque contrôle obligatoire...

Merci Robert tout cela va m'être bien utile, Patrick et toi vous êtes super cool! merci pour votre aide, Biz

 

[JOELJBJ]

Mille merci pour votre réactivité à tous les deux

 

[Eric C]

Bonjour le forum
Bonjour JOELJBL, bonjour Robert, bonjour Patrick

Il est vrai que le code de notre ami Patrick est très intéressant. J'avais envisagé hier soir de mettre un code piqué à notre amie Laetitia90 et revisité mais il était sensiblement identique à celui de notre ami Robert (Utilisation du Tag) et comporte également un petit inconvénient : Si l'on sélectionne puis on efface le contenu d'un TextBox (obligatoire) par la touche "Espace", le bouton "Enregistrer" sera efficient contrairement au code utilisé par notre ami Patrick.
A méditer ....
Bonne fin de ouikand à toutes & à tous
@+ Eric c

 

[Eric C]

Re
La solution est de mettre un module de classe pour les 3 TextBoxs en question avec l'event KeyPress et Si KeyCode = 32 alors Keycode = 0.
@+ Eric c

 

[patricktoulon]

hahahahah
et si la chaine obligatoire doit comporter un ou des espaces ?,

 

[Eric C]

Il est vrai que vu sous cet angle (mais je ne suis pas photographe) alors go!!!!

 

[patricktoulon]

harggrrr! elle est pourtant simple celle là
if KeyCode = 32 and textboxX.sellength >0 then Keycode = 0.