1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Option Explicit
Const SheetName As String = "db" ' Nom de la feuille
Dim rng As Range, rngdata As Range
Private Sub ListBox1_Click()
With Me.ListBox1
TextBox1 = rngdata(.ListIndex + 1, 1) ' 1ère colonne de la ligne sélectionnée
TextBox2 = rngdata(.ListIndex + 1, 2) ' 2ème colonne de la ligne sélectionnée
End With
End Sub
Private Sub UserForm_Initialize()
Set rng = ThisWorkbook.Worksheets(SheetName).Range("A1").CurrentRegion
With rng
Set rngdata = .Offset(1).Resize(.Rows.Count - 1)
End With
With Me.ListBox1
.RowSource = rngdata.Address(external:=True)
.ColumnCount = rngdata.Columns.Count ' Nbre de colonnes affichées
.ColumnHeads = True ' Affiche les étiquettes de colonnes
End With
End Sub |