USERFORM - VBA

madgicbobbyboon · 19 Décembre 2017

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

vgendron · 19 Décembre 2017

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 · 20 Décembre 2017

vgendron à dit:
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 · 20 Décembre 2017

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

madgicbobbyboon · 21 Décembre 2017

vgendron à dit:
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 · 21 Décembre 2017

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

USERFORM - VBA

madgicbobbyboon

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

madgicbobbyboon

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Pièces jointes

madgicbobbyboon

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Discussions similaires

USERFORM - VBA

madgicbobbyboon

XLDnaute Junior

Pièces jointes

vgendron

XLDnaute Barbatruc

madgicbobbyboon

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Pièces jointes

madgicbobbyboon

XLDnaute Junior

vgendron

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency