Bonjour,
Dans cet exemple, j'ai mis des noms dans la colonne A, en face des noms, dans la colonne B, les adresses et dans la colonne C, les numéros de téléphonne.
Private Sub UserForm_Initialize()
Dim cell, PlageTest
ListBox1.Clear
Set PlageTest = Range("A:A")
For Each cell In PlageTest
If cell.Value <> "" Then
ListBox1.AddItem cell
End If
Next cell
End Sub
Private Sub ListBox1_Click()
Dim cell, PlageTest
Set PlageTest = Range("A:A")
For Each cell In PlageTest
If cell.Value = ListBox1.Text Then
cell.Select
TextBox1 = cell.Offset(0, 1)
TextBox2 = cell.Offset(0, 2)
End If
Next cell
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée
|