Bonjour à ceux qui passeront par là.
J'ouvre temporairement un classeur pour récupérer les données de la feuille "LISTE"
Iimpossibilité d'utiliser "RowSource" puisque le classeur source est immédiatement fermé.
Pour l'instant je passe par une ListView pour pouvoir utiliser, par la suite, le contenu des lignes. (ListSubItem(x)"
Je gagnerais énormément de place dans mon USF en n'utilisant qu'un ComboBox.
Cependant, je ne trouve pas d'exemple de chargement et d'utilisation des colonnes.
Ci-après la Macro:
Private Sub UserForm_Initialize()
With UserForm1.ListView1
.View = 3
With .ColumnHeaders
.Add , , "PRENOM", 50
.Add , , "NOM", 50
.Add , , "TEL", 70
End With
For i = 10 To 14
.ListItems.Add , , Worksheets("LISTE").Cells(i, 1).Value
For j = 2 To 3
.ListItems(UserForm1.ListView1.ListItems.Count).ListSubItems.Add , , _
Worksheets("LISTE").Cells(i, j).Value
Next j
Next i
End With
With UserForm1.ComboBox1
For i = 1 To 5
' SOLUTION QUI NE ME CONVIENT PAS; JE REFERERAIS INITIALISER 'SEPAREMENT LA DEUXIEME COLONNE DU COMBOBOX
.AddItem UserForm1.ListView1.ListItems(i) & " " & UserForm1.ListView1.ListItems(i).ListSubItems(1)
Next i
End With
End Sub
En pièce jointe mon chantier.
Merci par avance et bonne fin de journée à vous.
YANN-56