Listbox 2 colonnes

Bonjour ,

dans le fichier joint , une userform et une listbox , la listbox est alimentée par les valeurs de la colonne A , serait possible dans cette listbox d'avoir une deuxième colonne alimentée par la colonne B mais en gardant les sélection de la colonne A

merci de votre expertise

Bonsoir,

j'ai récupéré un fichier avec validation par liste, qui devrait répondre à ta demande

à adapter

Bonne suite

Cordialement

Bonsoir

En gardant la ListBox

Remplaces cette macro

Private Sub UserForm_Initialize()
Dim J As Long
Dim F1 As Worksheet

  Set F1 = Sheets("Feuil1")
  With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = "30;-1"
    For J = 1 To F1.Range("A" & Rows.Count).End(xlUp).Row
      .AddItem F1.Range("A" & J)
      .List(.ListCount - 1, 1) = Range("B" & J)
    Next J
  End With
End Sub

Bonjour , merci à vous

Banzai64, peux tu m'aider à adapter ton code dans le fichier ci-joint svp,

les paramètres sont différents

merci de ton expertise

Bonjour,

les paramètres sont différents

Oui. Et c'est qui, quoi, ou ?

eric

Bonjour

Supprimes la propriété RowSource de la ListBox

Le code

Private Sub UserForm_Initialize()
Dim J As Long
Dim F1 As Worksheet

  Set F1 = Sheets("Liste")
  With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = "30;-1"
    For J = 1 To F1.Range("G" & Rows.Count).End(xlUp).Row
      .AddItem F1.Range("G" & J)
      .List(.ListCount - 1, 1) = Range("F" & J)
    Next J
  End With
End Sub

dans la deuxième colonne de la listbox je récupère les données de la colonne F de la feuille active et nom pas les données de la colonne F de la feuille Liste

MERCI

Bonjour

Désole : Oublie de préciser la feuille

Cette ligne à corriger : .List(.ListCount - 1, 1) = Range("F" & J)

Private Sub UserForm_Initialize()
Dim J As Long
Dim F1 As Worksheet

  Set F1 = Sheets("Liste")
  With Me.ListBox1
    .ColumnCount = 2
    .ColumnWidths = "30;-1"
    For J = 1 To F1.Range("G" & Rows.Count).End(xlUp).Row
      .AddItem F1.Range("G" & J)
      .List(.ListCount - 1, 1) = F1.Range("F" & J)
    Next J
  End With
End Sub
 

Bonjour Banzai64,

Comme toujours merci pour ton efficacité.