Raccourcir un code (afficher ou masquer combo si)

Bonjour a tous

dans un soucis d'optimisation et de longueur de code (je le repete beaucoup de fois) y a t'il moyen de raccourcir ce code?

Private Sub ComboBox6_Change()
If ComboBox6.Value <> "" Then
ComboBox11.Visible = True
ComboBox26.Visible = True
ComboBox41.Visible = True
Else
If ComboBox6.Value = "" Then
ComboBox11.Visible = False
ComboBox26.Visible = False
ComboBox41.Visible = False
End If
End If
End Sub

merci

j'avais oublié: un petit exemple du resultat voulu

https://www.excel-pratique.com/~files/doc/usf2.xls

Cordialement

Bonsoir,

tu peux essayer dans ton fichier exemple :

Private Sub ComboBox1_Change()
For i = 4 To 6
Me.Controls("ComboBox" & i).Visible = IIf(Me.ComboBox1.Value = "", False, True)
Next i
End Sub

Bonne soirée

Bonjour a tous

merci pour la reponse c'est parfait.

mais comment faire si au lieu de la 4 5 et 6 je veux le faire par exemple pour la 11; 25; 46 ?

Re-,

essaie ainsi :

Private Sub ComboBox1_Change()
For Each nb In Array("41", "51", "61")
Me.Controls("ComboBox" & nb).Visible = IIf(Me.ComboBox1.Value = "", False, True)
Next nb
End Sub

Re tout le monde

edit: remplacement de texte

erreur de ma par, ça marche

merci felix pour tes reponses

Bonne soirée

cordialement