Salut Phaumesser, le Forum
Pas vraiment dans les règles ta syntax ;-)
Un exemple où trois labels vont être alimentées par des Variables de types String, lesquelles seront initialisées au click d'une ListBox qui va lancer un VlookUp sur une plage :
Private Sub ListBox1_Click()
Dim myRange As Range
Dim Adresse As String
Companie = ListBox1.Value
Set myRange = Worksheets("Company").Range("f2:AI100")
Adresse = Application.WorksheetFunction.VLookup(Companie, myRange, 2, False)
POBox = Application.WorksheetFunction.VLookup(Companie, myRange, 3, False)
City = Application.WorksheetFunction.VLookup(Companie, myRange, 4, False)
Country = Application.WorksheetFunction.VLookup(Companie, myRange, 5, False)
LabStreet.Caption = Adresse
LabPOBox.Caption = POBox
LabCity.Caption = City
LabCountry.Caption = Country
End sub
Bonne soirée
@+Thierry