Bonjour à tous
Je cherche à copier dans un userform une lignes d'un tableau d'une page excel non active. Et je voudrais également supprimer toutes les lignes vides dans la listbox.
Mais je débute sur VBA et je galère pas mal....
J'ai essayé de faire 2 programmes sans trop de succès
Private Sub UserForm_Initialize()
Dim i As Integer
Sheets("base de donnee").Select
For i = 1 To Range("B65536").End(xlUp).Row
ListBoxmodmot = Range("B" & i)
If ListBoxmodmot = "" Then
ListBoxmodmot.AddItem Range("B" & i)
End If
Next i[/FONT]
Avec celui ci rien ne s'affiche
Et le second
Private Sub UserForm_Initialize()
ListBoxmodmot.ColumnHeads = True
ListBoxmodmot.RowSource = "'base de donnee'!B3:B65"
For i = ListBoxmodmot.ListCount - 1 To 0 Step -1
If ListBoxmodmot.List(i) = "" Then
ListBoxmodmot.RemoveItem (ListBoxmodmot.ListIndex)
End If
Next i
Avec celui ci j'arrrive à copier dans la listbox mais je n'arrive pas j'ai un message d'erreur lors de l'exécution..
Merci d'avance
Je cherche à copier dans un userform une lignes d'un tableau d'une page excel non active. Et je voudrais également supprimer toutes les lignes vides dans la listbox.
Mais je débute sur VBA et je galère pas mal....
J'ai essayé de faire 2 programmes sans trop de succès
Private Sub UserForm_Initialize()
Dim i As Integer
Sheets("base de donnee").Select
For i = 1 To Range("B65536").End(xlUp).Row
ListBoxmodmot = Range("B" & i)
If ListBoxmodmot = "" Then
ListBoxmodmot.AddItem Range("B" & i)
End If
Next i[/FONT]
Avec celui ci rien ne s'affiche
Et le second
Private Sub UserForm_Initialize()
ListBoxmodmot.ColumnHeads = True
ListBoxmodmot.RowSource = "'base de donnee'!B3:B65"
For i = ListBoxmodmot.ListCount - 1 To 0 Step -1
If ListBoxmodmot.List(i) = "" Then
ListBoxmodmot.RemoveItem (ListBoxmodmot.ListIndex)
End If
Next i
Avec celui ci j'arrrive à copier dans la listbox mais je n'arrive pas j'ai un message d'erreur lors de l'exécution..
Merci d'avance