Discussion :

[StellaG]

Bonjour à tous,

J'ai un problème dans mon code VBA concernant des Combo.

Dans une feuille j'ai inséré des ComboBox et des TextBox.
à la ligne 4: Un Combo_4 et un TextBox_4
à la ligne 5: Un Combo_5 et un TextBox_5
à la ligne 6: Un Combo_6 et un TextBox_6
...

Suivant la valeur que je mets à Combo_4, je souhaite activer ou désactiver TextBox_4

plutôt que décrire :

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
Private Sub ComboBox_4_DropButtonClick()
If ComboBox_4.Value = "" Then
TextBox_4.Enabled = False
TextBox_4.BackColor = &H8000000F
End if
End Sub
 
Private Sub ComboBox_5_DropButtonClick()
If ComboBox_5.Value = "" Then 
TextBox_5.Enabled = False
TextBox_5.BackColor = &H8000000F
End if
End Sub
 
.....

Je préfèrerais un truc du genre

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
Private Sub ComboBox_4_DropButtonClick()
Num_Ligne = 4
If ComboBox_4.Value = "" Then Then ComboBox_vide
End Sub

Private Sub ComboBox_5_DropButtonClick()
Num_Ligne = 5
If ComboBox_5.Value = "" Then Then ComboBox_vide
End Sub

...

Public Sub ComboBox_vide()
Controls("TextBox_" & Num_Ligne).Enabled = False
Controls("TextBox_" & Num_Ligne).BackColor = &H8000000F
End Sub

Si quelqu'un a une idée et peux m'aider.

Merci

Stella

[dadavyvy]

Bonjour,

essaie :

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
Private Sub ComboBox_4_DropButtonClick()
    If ComboBox_4.Value = "" Then Then Call ComboBox_vide(4)
End Sub
 
Private Sub ComboBox_5_DropButtonClick()
    If ComboBox_5.Value = "" Then Then Call ComboBox_vide(5)
End Sub
 
'...
 
Public Sub ComboBox_vide(Num_Ligne)
    Set feuil = Feuil1
    feuil.OLEObjects("TextBox_" & Num_Ligne).Enabled = False
    feuil.OLEObjects("TextBox_" & Num_Ligne).BackColor = &H8000000F
End Sub

Rem. : pas de variable Public, mais le Num_Ligne est un paramètre de la fonction Num_Ligne