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