Re: S.O.S. -> UN PETIT SOUCI DE MACRO <-
Bonjour,
Voici une ébauche
Il faut que ton fichier excel soit ouvert
voici la macro a mettre dans ta userform
Private Sub UserForm_Initialize()
Set wrd = GetObject(, "excel.Application")
col = 2
ligne = 6
l1 = ligne
With wrd
While .sheets("feuil1").Cells(l1, col) <> ""
x = .sheets("feuil1").Cells(l1, col).Value
l1 = l1 + 1
ComboBox1.AddItem x
Wend
End With
End Sub
Les données (excel) doivet être dans la feuille 1 dans la colonne 2 et a partir de la ligne 6
Ceci est parametrable par les variables col et ligne pour la feuille intervenir sur la commande sheets