Discussion :

[Nico13]

Bonjour,

Je vous explique brièvement mon problème, étant loin d'être un pro en VBA, je suis en train de développer un userform, mais je voudrais noircir certaines textbox en fonction de la sélection qui sera faite dans un menu déroulant.

J'ai commencé à coder, mais rien ne se passe quand je fais ma sélection, aussi je me permets de vous soumettre mon code pour correction.

Merci

Voici une partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Choix_Type_Poteau_Change()
 
Select Case Type_Poteau  '(liste de choix)
 
    Case Is = "Carré"
        Poteau_Rectangulaire.BackColor = RGB(15, 65, 22)  'textbox Poteau_Rectangulaire 
        Poteau_Circulaire.BackColor = RGB(15, 65, 22)  'textbox Poteau_Circulaire
 
 
 
    Case Is = "Rectangulaire"
        Poteau_Circulaire.BackColor = RGB(15, 65, 22)
 
 
    Case Is = "Circulaire"
        Poteau_Rectangulaire.BackColor = RGB(15, 65, 22)
        Poteau_Carré.BackColor = RGB(15, 65, 22)
 
 
 
End Select
 
 
 
End Sub

[isfet]

(le vert fait très mal aux yeux)

tu devrait transformer ta liste deroulante en listindex

Code :

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

type_poteaux.BoundColumn = 0

puis faire un

Code :

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

1
2
3
4
5
6
7
private sub type_poteaux_change 'pourquoi choix_type_poteaux ? il faut le meme nom que ta combobox
select case type_poteaux.listindex
 
case 1 
Poteau_Rectangulaire.BackColor = RGB(15, 65, 2) Poteau_Circulaire.BackColor = RGB(15, 65, 22) 
 
end select

[babaothe]

salut

ta sub n'a pas l'air de reconnaître la valeur de Type_Poteau.
Il te faut soit déclarer cette variable dans la partie générale de ton module, soit (mieux), la passer simplement à ta sub.
Un seimple ajout de :

Code :

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

1
2
Case else
  msgbox "valeur inconnue"

serait bienvenu.
Comme l'aurait été l'utilisation d'un point d'arrêt qui t'aurait permis de vérifier plusieurs points.

[Nico13]

Merci,
Cest résolu, en fait mon code était bon, j'avais simplement
oublié de déclaré "Carré" "Rectangulaire" et "Circulaire".