USERFORM - VBA

madgicbobbyboon

XLDnaute Junior
Bonjour et d'avance merci pour l'aide que vous pourrez m'apporter .

C'est un petit VBA sur l’échange et la proposition de mobilier

Dans mon Userform2 j'ai un probleme avec la listbox.
ma listbox affiche MOBILIER alors qu'elle ne devrait pas.

D'avance merci
 

Pièces jointes

  • mobilier.xlsm
    353.1 KB · Affichages: 12

vgendron

XLDnaute Barbatruc
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
 

madgicbobbyboon

XLDnaute Junior
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

encore merci si tu peux m'apporter ta science .
 

vgendron

XLDnaute Barbatruc
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
 

Pièces jointes

  • mobilier.xlsm
    327.8 KB · Affichages: 28

madgicbobbyboon

XLDnaute Junior
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

Cool merci.
si je comprends la codification, on verifie si la deuxieme ligne est remplie x = 2 et si elle est vide = le message

merci
 

vgendron

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL