Discussion :

[schumi22000]

Bonjour à tous,

je suis un jeune étudiant qui débute dans la programmation.
J'ai effectué un Userforms qui remplie mon excel.
j'aimerais avoir un " grisement " de certaines case lorsque l'une de mes combobox affiche "NON" en réponse.
voici ce que j'ai programmé mais cela ne fonctionne pas ... peut être que je ne le met pas au bon endroit dans mon programme ?

si quelqu'un peut m'aider je suis preneur
merci à vous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If UserForm1.ComboBox8 = "NON" Then
     TextBox1.Backcolor = RGB(191, 191, 191)
 
End If

[clementmarcotte]

Bonjour,

Si ton idée c'est de rendre le TextBox inutilisable, essaie plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textbox1.enabled = false

quand tu veux l'utiliser c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textbox1.enabled = true

Si tu fais juste changer la couleur du fond, tu n'empêches pas de l'utiliser.

Sur cette page, il y a la remarque qui dit que tu dois avoir la propriété BackStyle à fmBackStyleOpaque pour voir la couleur.

P.S. Un truc "universel":

Dans l'éditeur VB, un clic sur un mot-clef et ouvre l'aide de l'item cliqué.

[schumi22000]

merci pour ta réponse,

mon soucis est plus lié au test de la combobox.
Quelque soit la valeur de la combobox8 je n'arrive pas a rendre la textbox1 inactive ou avec un fond d'une couleur differente.

je fais pourtant dans la meme partie du code le même type de test qui lui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
       If UserForm1.ComboBox8 = "OUI" And (UserForm1.TextBox17 = "" Or UserForm1.TextBox18 = "" Or UserForm1.TextBox19 = "" Or UserForm1.TextBox20 = "") Then
     MsgBox " INCOMPLET"
GoTo JumpToHere ' permet de sauter une étape
End If