AlainTech Pas trouvé? Cherche encore! | Private Sub UserForm_Activate()
Dim rSource As Range
Dim vI As Variant
Sheets("Feuille" ).Activate
Set rSource = Range([A1], [A1].End(xlDown))
Me.ListBox1.Clear
For Each vI In rSource
Me.ListBox1.AddItem (vI & " " & vI.Cells(1, 2))
Next vI
End Sub |
---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
|