XL 2016 Combobox 2 colonnes change évent

[Regueiro]

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.

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

 

[Si...]

Bonjour

Je n'aime pas les "Me." à profusion (donc supprimés) et les noms à rallonge (tableau TAB_CHANTIER renommé CH), alors

Private Sub ComboBox2_GotFocus()
  ComboBox2.List = [CH].Value
  ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox2_Click()
  Dim L As Long  'on ne sait jamais
  L = ComboBox2.ListIndex
  If L < 0 Then Exit Sub
  [A2] = ComboBox2.List(L, 0)
  [B2] = ComboBox2.List(L, 1)
End Sub

 

[Regueiro]

Bonsoir le Forum, Si
Merci tes 2 codes fonctionnent parfaitement.
Malheureusement le fichier joint étai juste un extrait de mon fichier final avec plein
de requête.
Je dois donc garder le nom de mon Tableau ("TAB_CHANTIER[N° Chantier]")
Ici le tableau à 2 colonnes, mais en réalité une dizaine.
Dans ma Combobox2, je veux uniquement les 2 premières Colonnes.
MERCI
A+