Autres saisie obligatoire dans plusieurs textbox d'un userform

JOELJBJ · 12 Février 2022

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

job75 · 13 Février 2022

En fait pas besoin de code dans l'UserForm.

Il suffit de compléter la macro d'ouverture, voyez ce fichier (2) :

VB:

Sub OuvreFrm()
Application.OnTime 1, "Boutons_Enabled" 'lance le processus
frmSaisie.Show
End Sub

patricktoulon · 12 Février 2022

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

VB:

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 · 12 Février 2022

Bonsoir Joël, bonsoir le forum,

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

VB:

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 · 12 Février 2022

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 · 12 Février 2022

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 · 12 Février 2022

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 · 12 Février 2022

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 · 13 Février 2022

patricktoulon à dit:
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

VB:

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 · 13 Février 2022

Robert à dit:
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.

Robert à dit:
Bonsoir Joël, bonsoir le forum,

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

VB:

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 · 13 Février 2022

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

Eric C · 13 Février 2022

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 · 13 Février 2022

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 · 13 Février 2022

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

Eric C · 13 Février 2022

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

patricktoulon · 13 Février 2022

harggrrr! elle est pourtant simple celle là

if KeyCode = 32 and textboxX.sellength >0 then Keycode = 0.

Autres saisie obligatoire dans plusieurs textbox d'un userform

JOELJBJ

XLDnaute Nouveau

job75

patricktoulon

XLDnaute Barbatruc

Pièces jointes

Robert

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Pièces jointes

JOELJBJ

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

JOELJBJ

XLDnaute Nouveau

JOELJBJ

XLDnaute Nouveau

JOELJBJ

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Eric C

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Discussions similaires