Choix unique dans combobox multi colonnes

[chich]

Bonjour,
Dans une combobox multicolonnes
je souhaite pouvoir faire un choix en ligne et en colonnes
par exemple: je choisir 75009

Nom Ville CP
Dupont Paris 75008
Durand Boulogne 92100
Martin Paris 75009
Dupond Boulogne 92100
Bisson Paris 75005

merci d'avance

 

[BOISGONTIER]

Bonjour,

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:C" & f.[A65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 3
  Me.ComboBox1.ColumnWidths = "60;60;60"
  Me.ComboBox1.List = Rng.Value
End Sub

Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1
  Me.TextBox2 = Me.ComboBox1.Column(1)
  Me.TextBox3 = Me.ComboBox1.Column(2)
End Sub

JB

 

[chich]

Bonjour
ca ne fonctionne que pour la premier

 

[BOISGONTIER]

Bonsoir,

Placer le curseur sur la colonne à récupérer.

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set Rng = f.Range("A2:C" & f.[A65000].End(xlUp).Row)
  Me.ComboBox1.ColumnCount = 3
  Me.ComboBox1.ColumnWidths = "50;50;40"
  Me.ComboBox1.List = Rng.Value
End Sub

Private Sub ComboBox1_Click()
  Me.TextBox1 = Me.ComboBox1
  Me.TextBox2 = Me.ComboBox1.Column(1)
  Me.TextBox3 = Me.ComboBox1.Column(2)
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  a = Split(Me.ComboBox1.ColumnWidths, ";")
  Select Case X
  Case Is < CDbl(Left(a(0), 2))
  Me.ComboBox1.TextColumn = 1
  Case Is > CDbl(Left(a(0), 2)) + CDbl(Left(a(2), 2))
  Me.ComboBox1.TextColumn = 3
  Case Else
  Me.ComboBox1.TextColumn = 2
End Select
End Sub

JB

 

[chich]

Re
merci beaucoup excellente réponse