Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Garth69 · 28 Avril 2011

Bonjour !

Très récent utilisateur du VBA d'Excel ( Je viens d'achever une formation de 3 jours 🙂 ... ), et souhaitant valoriser au mieux cette dernière : Je me lance ds de petits projets personnel ou professionnels ... J'essaie de me débrouiller seul, mais là je bloque 🙁 !

J'essaie de conditionner des TextBox d'un formulaire à être "Enable = True" ou "Enable = False", selon qu'une case ( A2 ) d'une feuille de mon classeur ait déjà été renseignée par une autre TextBox à choix déroulant ...

Dans les "Private sub" de mes TxtBox, ca se présente comme ca :

Code:

TabloEquipe = Sheets("Config").Range("A2")
    If TabloEquipe <> "" Then
        Controls("TxtBox1").Enabled = True
        Sheets("Compo équipes").Cells(TabloEquipe, 2) = Operateur1
    End If

En fait, mes TxtBox ne changent pas d'état et restent Enable = False 😕 , même si ma case A2 est préalablement renseignée !
( J'ai défini le Enable = False dans les propriètés de base des TxtBox, pour qu'à l'ouverture du formulaire, elles restent bloquées en attendant le choix pour la case A2 ... ).

Ca doit pas être si compliqué, mais je sèche 😛 ...

JNP · 28 Avril 2011

Re : Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Bonjour Garth69 et bienvenue 🙂,
Euh, là, on manque un peu de matière pour te renseigner😱...
TabloEquipe est déclaré en quoi (Range, String, Integer ? ...), car en Integer, il est = 0 et non "", en Range, il manque un Set devant, etc 🙄.
TxtBox1 ou TextBox1 ?
Tu parles de formulaire, tu es dans un USF ?
Pourquoi Controls("Txtbox1").Enable et pas TxtBox1.Enable ?
Dans quelle Private Sub es-tu ?
Un petit classeur exemple ne serait pas du luxe 🙄...
A te lire 😎
Ajout : de plus c'est Enabled avec un "d" la propriété 😛...
Vois l'exemple en PJ 🙄
Ajout 2 : Salut TotoTiti, et non, il n'est jamais trottoir pour bien faire 🙄...

tototiti2008 · 28 Avril 2011

Re : Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Bonjour Garth, Bonjour JNP,

Bienvenue sur XLD,

Sinon, peut-être

Controls("TxtBox1").Enabled = True

Edit : Bing, Caramba, encore trop tard 😉

Garth69 · 28 Avril 2011

Re : Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Heu ... Dslé pour le "d" manquant ... C'est à la recopie du code que je l'ai zappé, il est bien présent dans le code de mon formulaire ...

Je dois avouer, que ce que tu me demandes me dépasse un peu 🙁 ...

J'ai créé un simple formulaire UserForm, avec des TxtBox à renseigner ( Nommées : "Operateur1", "Operateur2", etc ... ).
Une ComboBox ( "ChoixEquipe" ) doit être renseignée pour autoriser l'écriture dans les TxtBox, que j'ai configurées à la base en Enabled = False, pour qu'elles ne soient pas renseignées en 1er ...

Je vous donne l'intégralité du code de mon UserForm ( Avec ma 1ere TxtBox pour plus de lisibilité ... )

Code:

Private Sub ChoixEquipe_Change()

    Sheets("Config").Range("A2").ClearContents
    If ChoixEquipe = "A" Then
        Sheets("Config").Range("A2") = 6
    End If   
End Sub



Private Sub Operateur1_Change()
    
    TabloEquipe = Sheets("Config").Range("A2")
    If TabloEquipe <> "" Then
        Operateur1.Enabled = True
        Sheets("Compo équipes").Cells(TabloEquipe, 2) = Operateur1
    End If
End Sub



Sub UserForm_Click()

End Sub

tototiti2008 · 28 Avril 2011

Re : Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Re,

C'est normal, tu réactives (Enabled = True) ta textbox seulement si tu tapes dedans (évènement Change de ta textbox), or tu ne peux pas taper dedans puisqu'elle n'est pas activée...
Il faudrait réactiver tes textbox au changement de valeur de ta Combobox

Dis-nous si ce n'est pas clair

Garth69 · 28 Avril 2011

Re : Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Ok ! Merci 😎 ... C'tait exactement ca le problème ...

J'suis pas encore assez familier avec le code et sa logique, pour comprendre d'entrée ce genre de "subtilité" 😛 ...

En réactivant mes TxTBox dans le If / Then de la ComboBox, ca marche impeccable !

Je vous remercie tous deux ! ! !

Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Garth69

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Garth69

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Garth69

XLDnaute Occasionnel

Discussions similaires

Passage de TxtBox de ENABLE = "True" à "False" ? ? ?

Garth69

XLDnaute Occasionnel

JNP

XLDnaute Barbatruc

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Garth69

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Garth69

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency