• Initiateur de la discussion Initiateur de la discussion Bruce68
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bruce68

XLDnaute Impliqué
Bonsoir à tous
dans un formulaire je recupere des informations d'une base de donnée à l'aide d'une ListBox, je voudrais quand le TextBox1 est egal à "" que les TextBox2, 3, 4, 5 et 6 soient invisibles
Que faut il mettre dans la macro pout y arriver.
Si je met Visible sur False le textBox est bien caché.
Merci de votre aide
 
Re : TextBox Invisible

Bonsoir Bruce68, jeanpierre,

Voici une solution :

Code:
    Dim txtVisible As Boolean
    Dim nbTxt As Byte
    
    txtVisible = True
    ' Si le contenu de la textBox1 est vide, les autres TextBox ne seront pas visibles
    If TextBox1.Value = "" Then txtVisible = False

    ' Boucle de la 2me à la 6me TextBox
    For nbTxt = 2 To 6
        ' Rendre la TextBox non visible
        Controls("TextBox" & nbTxt).Visible = txtVisible
    Next nbTxt
 
Re : TextBox Invisible

Bonsoir,
Comme jean-pierre je balance entre est-ce une question ou une affirmation ?
Donc, vu l'heure, et hormis si c'était juste l'envie de faire partager une nouvelle découverte :
A l'nitialisation du formulaire je suppose que les textbox(es) sont cachées :

Private Sub UserForm_Initialize()
For i = 2 To 6
Me.Controls("TextBox" & i).Visible = False
Next
End Sub


Et au chgt dans la textbox1 :

Private Sub TextBox1_Change()
For i = 2 To 6
Me.Controls("TextBox" & i).Visible = IIf(TextBox1.Value = "", 0, 1)
Next
End Sub


Et si c'est pas ça, voir le message de JP
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
852
Retour