Regueiro
XLDnaute Impliqué
Bonjour Le Forum
Sur l'onglet MENU, un Combobox alimenter par un tableau 2 colonnes
Je n'arrive plus mettre les valeurs dans les Cellules avec Event Change
Merci de votre Aide.
Merci pour votre Aide
Sur l'onglet MENU, un Combobox alimenter par un tableau 2 colonnes
Je n'arrive plus mettre les valeurs dans les Cellules avec Event Change
Merci de votre Aide.
Code:
Option Explicit
Private Sub ComboBox2_GotFocus()
Dim Cel As Range
Dim i
Dim FL1 As Worksheet
Set FL1 = Worksheets("RESULTAT CHANTIER")
Me.ComboBox2.Clear
i = 0
With FL1
For Each Cel In .Range("TAB_CHANTIER[N° Chantier]")
Me.ComboBox2.AddItem
Me.ComboBox2.ColumnCount = 2
Me.ComboBox2.ColumnWidths = "100;56"
Me.ComboBox2.List(i, 0) = Cel
Me.ComboBox2.List(i, 1) = Cel.Offset(0, 1)
i = i + 1
Next Cel
Me.ComboBox2.ListIndex = 0
End With
End Sub
Private Sub ComboBox2_Click()
'Range("A2").Value = ComboBox2.Column(2).Value
If Me.ComboBox2 <> "" Then
With Me.ComboBox2
.Text = .Column(0, .ListIndex) & " - " & .Column(1, .ListIndex)
' .Text = .List(.ListIndex, 0) & " - " & .Column(1, .ListIndex)
' Range("A2").Value = .List(.ListIndex, 0)
' [A2] = .Column(0, .ListIndex)
'[B2] = .Column(1)
End With
End If
End Sub
'Private Sub ComboBox2_Change()
'With Me.ComboBox2
'[A2] = .Column(0, .ListIndex)
'[B2] = .Column(1)
'End With
'End Sub
Merci pour votre Aide