Bonjour à tous,
J'ai besoin de votre aide afin de remplir une ListBox d'un userform par des données situées dans l'une de mes feuilles. Après différentes recherches, j'utilise le code suivant :
Private Sub CommandButton1_Click()
Dim feuille As Worksheet
Dim tableau As Variant
Dim Plage As Range
Set feuille = ThisWorkbook.Worksheets(2)
feuille.Activate
Set Plage = feuille.Range("A1").CurrentRegion
tableau = Plage.Value
Achats.ListBox1.RowSource = tableau
Achats.Show
End Sub
Pour information
Achats est mon userform
Ce code fonctionnait très bien au départ mais lorsque je rouvre mon fichier l'affichage change à chaque fois : parfois il manque des colonnes, parfois la listbox est vide.
J'ai donc essayé d'utiliser à la place ce code :
Private Sub Achats_Initialize()
Dim tableau() As Variant
With ThisWorkbook.Worksheets("Demandes")
Set tableau = .Columns("A:H").Value
End With
Achats.ListBox1.List = tableau
End Sub
En utilisant cette macro, l'affichage de la listbox reste toujours vide.
Je n'ai pas trouvé de sujet dans le forum au sujet d'affichage qui change à chaque utilisation du fichier.
Je vous joins mon fichier, sachant que les autres macros fonctionnent et qu'il n'y a que cette partie qui me pose problème.
Merci par avance de votre aide.