XL 2010 Combo multi col

herve62 à dit:

Bonjour
J'ai un fichier à réparer , je ne maîtrise pas les combo multi colonnes même si j'ai vu les exo de notre JB
il y a un pb d'index de combo ?
Ici j'essaye de contourner le after_update peut être une solution mais il faut "enter" !!! pas terrible
Auriez vous une autre solution ?

Cliquez pour agrandir...

Private Sub ComboBox1_change()
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
   With Label1
      .Caption = Me.ComboBox1.Column(1)
      .TextAlign = fmTextAlignCenter
      .WordWrap = True
   End With
End Sub