Griser combobox en fonction de Textbox

Bonjour,

Salut gbinforme,

Il te suffit d'ajouter un Else à ta condition If :

Private Sub TextBox1_Change()
If TextBox1.Value = "A" Then
    ComboBox1.Enabled = False
Else
    ComboBox1.Enabled = True
End If 
End Sub

Ou encore :

Private Sub TextBox1_Change()
If TextBox1.Value = "A" Then
    ComboBox1.Enabled = False
ElseIf TextBox1.Value = "Ma grand mère" Then
    MsgBox "va cueillir des fraises"
Else
    ComboBox1.Enabled = True
End If 
End Sub

Mais d'une manière générale, l'événement Change est à utiliser avec parcimonie. En effet, il se déclenche à la saisie de chaque caractère dans le contrôle.
Dans un tel cas de figure, je lui préfère l'événement Exit : à la sortie du textbox. En plus, cet événement bénéficie du paramètre Cancel pour annuler (empêcher) la sortie tant que la saisie n'est pas bonne.
A tester :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then Cancel = True: Exit Sub
If UCase(TextBox1.Value) = "A" Then
    ComboBox1.Enabled = False
    Cancel = True
    TextBox1 = ""
ElseIf TextBox1.Value = "Ma grand mère" Then
    MsgBox "va cueillir des fraises"
Else
    ComboBox1.Enabled = True
End If
End Sub

Si tu lis ma réponse, tu sais comment la déclencher si :
- textbox = A
ou si
- textbox = Ma grand mère

.....
ça ne doit pas être beaucoup, beaucoup, beaucoup plus compliqué à adapter à textbox = A ou B ou C???
Si?

Regarde du côté de Or.
Essaye :
If TextBox1 = "A" Or TextBox1 = "B" ...

Bonsoir,

@pijaku salut à toi : ce n'est pas simple de débuter... et ta grand mère n'a pas été comprise ;-)

@romanza
C'est bien de te lancer dans le langage VBA mais comme tout langage, il faut faire l'effort d'apprendre les rudiments : si tu vas dans un pays dont tu ne connais qu'une dizaine de mots et sans connaitre la syntaxe de la langue, cela va être très dur de te faire comprendre. Pour VBA il y a l'aide du logiciel qui fournit tout cela et il suffit de regarder au moins une fois avant de pouvoir y revenir.

J'ai essayé Textbox1.Value("A","B","C")
Cela ne fonctionne pas car ne n'est pas la syntaxe. Si tu veux l'écrire de cette façon emploie la fonction adaptée :

If InStr(1, ",A,B,C", UCase(TextBox1.Value)) > 0 Then

Ainsi si ta TextBox1 a la valeur d'une des lettres ton test sera validé.
Tu peux regarder l'aide de la fonction "InStr" pour en comprendre le fonctionnement.

Bonsoir romanza,

Comme je pense que ta maîtrise du VBA fait que tu as dû emprunter un certain parcours scolaire
Désolé mais tu as tout faux, j'ai appris en compulsant l'aide VBA qui est pratiquement exhaustive et en pratiquant les fonctions offertes. Lorsque tu veux utiliser un TextBox ou un ComboBox, si tu regardes l'aide, tu vas avoir toutes les propriétés et toutes les méthodes utilisables avec la syntaxe adéquate pour chaque objet et pour tout cela juste un F1 ! C'est pas beau ?
Après chacun utilises les méthodes qu'il veut mais je te prie de croire que l'on va beaucoup plus vite avec l'aide microsoft pour comprendre la façon d'utiliser les objets ou les fonctions lorsque l'on fait l'effort de s'en servir..
C'est dommage que la fonction que je t'ai fournie, et qui me semblait correspondre tout à fait à ton raisonnement pour empiler les choix , tu "ne pouvais pas la sucer de mon pouce" et je t'avais pourtant conseillé d'en regarder sa présentation dans l'aide : en aucune manière c'était une façon de te snober mais bien plutôt de t'ouvrir une porte sur quelque chose que tu faisais instinctivement sans avoir la syntaxe VBA pour le réaliser J'ai essayé Textbox1.Value("A","B","C") ce qui donne

If InStr(1, ",A,B,C", UCase(TextBox1.Value)) > 0 Then

assez proche me semble-t-il ? Non ?
Si j'utilise cette fonction c'est quelle permet de rajouter autant de conditions que tu veux sans écrire de ligne supplémentaire. pijaku que je salue, t'as fourni d'autres méthodes pour le faire : c'est donc à toi de voir ce que tu veux utiliser.
Je te souhaite de progresser pour venir nous remplacer : ce sera ma satisfaction si tu prends ma place !
Bien cordialement.

Salut,

Essaye de rassembler les deux en un :

Private Sub TextBox1_Change()
If TextBox1.Value = "A" Or TextBox1.Value = "B" Or TextBox1.Value = "C" Then
    ComboBox1.Enabled = True
    ComboBox1.Visible = True
Else
    ComboBox1.Enabled = False
    ComboBox1.Visible = False
End If
End Sub

En effet, il n'est pas utile de faire deux fois le même test.

Un autre essai après serait :

Private Sub TextBox1_Change()
    ComboBox1.Enabled = (TextBox1 = "A" Or TextBox1 = "B" Or TextBox1 = "C")
    ComboBox1.Visible = (TextBox1 = "A" Or TextBox1 = "B" Or TextBox1 = "C")
End Sub

Tu peux le tenter pour le fun et revenir après si tu souhaites des explications