Source d'une Listbox
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
DGVDR Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
DGVDR Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
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
Bonjour,
Essayez peut être comme ceci :
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
Bonjour pijaku,
Pas mieux...
Ca reste vierge...!
Pas mieux...
Ca reste vierge...!
Essaie avec des MsgBox en "arrêt", comme ceci :
Tu verras comme cela ce qui cloche...
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...
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
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
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
Ci-dessous mon fichier.
https://www.cjoint.com/c/CLloqTfRJdy
Si vous voyez l'erreur.
Mon code VBA est "unzo"
Merci à vous deux,
DGVDR
Ben oui.......
N'utilise pas Private Sub gestionstock_initialise() mais :
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
