Hello
tu commences à X=1 et donc. ca te mets "Mobilier"
commences plutot à 2 (et si l=1) la boucle sera tout de suite terminée
VB:
For x = 2 To l
'Je fais une boucle pour remplir la ComboBox
ListBox1.AddItem Sheets("JE PROPOSE").Range("a" & x)
'et j'ajoute à chaque fois un Item dans la combo
Next x
Hello
tu commences à X=1 et donc. ca te mets "Mobilier"
commences plutot à 2 (et si l=1) la boucle sera tout de suite terminée
VB:
For x = 2 To l
'Je fais une boucle pour remplir la ComboBox
ListBox1.AddItem Sheets("JE PROPOSE").Range("a" & x)
'et j'ajoute à chaque fois un Item dans la combo
Next x
Merci pour ton aide ! impeccable
j'aimerai egalement que si la listbox est vide un message apparait indiquant "Aucun mobilier disponible, réservation impossible !)
Voila ce que j'ai pondu mais cela ne fonctionne pas !
If ListBox1.Value = "" Then
MsgBox ("Aucun mobilier en proposition actuellement !")
Unload Me
Sheets("Feuil1").Select
End If
Hello
justement.. si j'ai bien compris. c'est quand l=1 qu'il n'y a rien à proposer..
et que cette boucle est terminée directment
VB:
For x = 2 To l
'Je fais une boucle pour remplir la ComboBox
ListBox1.AddItem Sheets("JE PROPOSE").Range("a" & x)
'et j'ajoute à chaque fois un Item dans la combo
Next x
ton test sur Listbox="", devrait etre un test sur l
voir code dans l'initialize dans la PJ
Hello
justement.. si j'ai bien compris. c'est quand l=1 qu'il n'y a rien à proposer..
et que cette boucle est terminée directment
VB:
For x = 2 To l
'Je fais une boucle pour remplir la ComboBox
ListBox1.AddItem Sheets("JE PROPOSE").Range("a" & x)
'et j'ajoute à chaque fois un Item dans la combo
Next x
ton test sur Listbox="", devrait etre un test sur l
voir code dans l'initialize dans la PJ
voila, c'est exactement ca..
si la première ligne est vide. alors. pas la peine d'aller plus loin dans le code
à noter que j'ai ajouté un "On error resume next" dans le code du bouton que tu cliques..
le bouton, essaie d'afficher le formulaire.. alors que le initialize, l'en empeche..
ca créer une erreur, qu'il faut ignorer