For each array sur combobox

Bonjour le Forum,

Dans l’initialisation d'un userform, je mets les combos sans le bouton de liste déroulante.

Dim CtrlArray As Variant
 For Each CtrlArray In Array(ComboBox1, ComboBox2, ect....)
  CtrlArray.ShowDropButtonWhen = 0
Next

y a t'il une possibilité de ne pas énumérer tout les Combos

Au plaisir de vous lire

Manu

Bonjour

Au choix (en fonction de tes données)

Dim CtrlArray As Variant
Dim J As Integer
Dim Tbl()

  For J = 1 To 3
    ReDim Preserve Tbl(J - 1)
    Set Tbl(J - 1) = Me.Controls("Combobox" & J)
  Next J

  For J = 0 To UBound(Tbl)
    Tbl(J).ShowDropButtonWhen = 0
  Next J
End Sub

Private Sub CommandButton2_Click()
Dim J As Integer
  For J = 1 To 3
    Me.Controls("Combobox" & J).ShowDropButtonWhen = 0
  Next J
End Sub

Private Sub CommandButton3_Click()
Dim Ctrl As Control
  For Each Ctrl In Controls
    If TypeName(Ctrl) = "ComboBox" Then
      Ctrl.ShowDropButtonWhen = 0
    End If
  Next Ctrl
End Sub

Bonne journée

Bonjour Banzai64,

Merci beaucoup pour tes trois propositions

bonne journée

Manu