Deux colonnes pour alimenter un ComboBox

Bonjour à toutes et tous,

Je souhaite alimenter un ComboBox avec deux colonnes, de ce choix, une listBox me permet un troisième choix

je vous joins mon fichier, pour plus de clarté

merci de votre aide éventuelle

Amicalement

Pierrot

BONJOUR

voila un exemple

With ComboBox1

.Clear

.ColumnCount = 2

.ColumnWidths = "100;20"

.List = Feuil3.Range("A2:B" & Feuil3.Range("A" & Rows.Count).End(xlUp).Row).Value

End With

A+

Maurice

Bonjour, Maurice,

je crois que je me suis mal exprimé

je voulais avoir le choix entre deux noms dans la ComboBox, ceux de la colonne A et ceux de de colonne B

La colonne choisie dans la ComboBox s'affiche dans la listBox et là, mon choix s'affiche dans la TextBox_Choix .

En validant je transfère mon choix vers la cellule active du fichier.

merci de ton intervention

amicalement

Pierrot

Bonjour

je comprend pas très bien désoler

mes voila une autre idée sa peux toujours servir

A+

Maurice

Private Sub UserForm_Activate()
   With ComboBox1
      .Clear
      .ColumnCount = 2
      .ColumnWidths = "60;20"
      .List = Feuil3.Range("A2:B" & Feuil3.Range("A" & Rows.Count).End(xlUp).Row).Value
   End With
End Sub

Private Sub ComboBox1_Change()
   TextBox1.Value = ComboBox1.Column(0)
   TextBox2.Value = ComboBox1.Column(1)
End Sub

je suis désolé, Maurice, mais ça ne marche pas

je n'ai pas deux TextBox mais une LIstBox et un TextBox

Voit le dessin ci-dessous Fournisrseurs ou Commercials

liste fournisseurs

mon choix

ou sinon, tu laisses tomber

Merci pour tout

Pierrot

Bonjour,

Dim f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Me.CbbFonction.List = Application.Transpose(f.[A1:B1])
End Sub

Private Sub CbbFonction_click()
  p = Application.Match(Me.CbbFonction, f.[A1:B1], 0)
    Tbl = f.Range("A2:B" & f.[A65000].End(xlUp).Row).Value
    If Not IsError(p) Then Me.ListBox_Fonctions.List = Application.Index(Tbl, , p)
End Sub

Private Sub ListBox_Fonctions_Click()
   Me.TextBox_Choix = Me.ListBox_Fonctions
End Sub

Ceuzin

Re Bonjour

une petite dernier

A+

Maurice

Private Sub UserForm_Initialize()

End Sub

Private Sub UserForm_Activate()
   ComboBox1.AddItem Feuil3.Range("A1").Value
   ComboBox1.AddItem Feuil3.Range("B1").Value
End Sub

Private Sub ComboBox1_Change()
   InitListe ComboBox1.ListIndex
End Sub

Private Sub InitListe(C)
Col = Array("A", "B")
    With Feuil3
        Nlig = .Range("A" & Rows.Count).End(xlUp).Row
        MaListe = .Range(Col(C) & "2:" & Col(C) & Nlig).Value
    End With
   With ListBox1
     .Clear
   '        .ColumnCount = 5
   '        .ColumnWidths = "80;100;35;20;35"
      .List = MaListe
   End With
End Sub

Private Sub ListBox1_Click()
   TextBox1.Value = ListBox1.Value
End Sub

Merci, Archer, ceuzin et M12, maintenant le tout fonctionne à merveille

Un grand bravo à vous tous pour votre aide et votre savoir

Bonne soirée à vous tous et encore merci pour Amanda09

Sincères amitiés a vous tous

Pierrot

bonjour

bon je regarde la télé

voila mon dernier

A+

Maurice

Salut, Maurice, c'est le même fichier que mon message précédant qui était clôturé

Un tout grand merci

amitiés

Pierrot