Source d'une Listbox
Résolu
Bonjour,
Etant un débutant, je rencontre des problèmes de débutant...
Dans mon userform gestionstock,
Je souhaite incrémenter une listbox appelée "Plagemachine"
Mes données se trouvent dans l'onglet "Préventif", dans la colonne X
Rien n'apparait dans ma listbox...
Merci,
DGVDR
Etant un débutant, je rencontre des problèmes de débutant...
Dans mon userform gestionstock,
Je souhaite incrémenter une listbox appelée "Plagemachine"
Mes données se trouvent dans l'onglet "Préventif", dans la colonne X
Private Sub gestionstock_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("Préventif").Range("x65536").End(xlUp).Row
For x = 1 To i
With Plagemachine
.AddItem Sheets("Préventif").Range("x" & x)
End With
Next x
End Sub
Rien n'apparait dans ma listbox...
Merci,
DGVDR
4 réponses
-
De mon coté, ça ne fonctionne pas...
Ci-dessous mon fichier.
https://www.cjoint.com/c/CLloqTfRJdy
Si vous voyez l'erreur.
Mon code VBA est "unzo"
Merci à vous deux,
DGVDR-
ModérateurBen oui.......
N'utilise pas Private Sub gestionstock_initialise() mais :
Private Sub UserForm_Initialize() 'si la dernière ligne est supérieure à 256 déclarer i et x en Integer Dim i As Long, x As Long With Sheets("Préventif") i = .Range("X65536").End(xlUp).Row For x = 1 To i Plagemachine.AddItem .Range("X" & x).Value Next x End With End Sub -
-
-
-
-
Bonjour DGCDR, Bonjour Pijaku,
Pourquoi déclarer i et x en byte alors que l'on a :
i = .Range("x65536").End(xlUp).Row
Autant déclarer i et x en Long.
Le code de Pijaku fonctionne correctement.
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau -
Bonjour pijaku,
Pas mieux...
Ca reste vierge...!-
ModérateurEssaie avec des MsgBox en "arrêt", comme ceci :
Private Sub gestionstock_Initialize() 'si la dernière ligne est supérieure à 256 déclarer i et x en Integer Dim i As Byte, x As Byte With Sheets("Préventif") i = .Range("x65536").End(xlUp).Row MsgBox i For x = 1 To i MsgBox .Range("X" & x).Value Plagemachine.AddItem .Range("X" & x).Value Next x End With End Sub
Tu verras comme cela ce qui cloche...
-
-
ModérateurBonjour,
Essayez peut être comme ceci :
Private Sub gestionstock_Initialize() 'si la dernière ligne est supérieure à 256 déclarer i et x en Integer Dim i As Byte, x As Byte With Sheets("Préventif") i = .Range("x65536").End(xlUp).Row For x = 1 To i Plagemachine.AddItem .Range("X" & x) Next x End With End Sub
