Nom de Combo dynamique

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:

---

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:

---

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

Bonjour,

essaie :

Code:

---

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