XL 2013 Ajout des lignes d'une listbox dans un devis

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2018

• #2

Bonjour tous
Eh l'ami VANIN ... toi tu vas pas te faire des amis en agissant ainsi !! ce n'est pas parce que tu n'as pas de réponse depuis ce matin (9h39 !) qu'il faut recréer un nouveau POST .... maintenant !
Ici il y a la CHARTE du forum à respecter
Déjà j'étais en train de regarder , mais tes explications ne sont pas claires ! on ne voit pas bien ce que tu veux faire ( enfin pour moi) .De plus La page Devis est brouillon : des données en pagaille en bas
Et Je relève une erreur avec : CCur(lstDevis.List(L, 3)) = vide ,dans Btnvalider

 

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 1 Février 2018

• #3

Veuillez m'excuser si j'ai enfreint les règle du forum, c'est pas fait exprès. aussi je m'excuse pour le fichier joint, les données en bas sont dues aux tests que j'ai fais.
en fait ce que je dis c'est que je souhaite tout simplement que le bouton valider ajoute les informations du listbox dans le devis de la page devis.
Encore toutes mes excuses

 

Pièces jointes

• new Devis Professionnel.xlsm

  86.8 KB · Affichages: 64

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2018

• #4

C'est toi qui a écrit le code ?
car l'instruction CCur ne fonctionne pas , tu as dû le remarquer ?

 

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 1 Février 2018

• #5

non c'est un fichier télécharger sur internet

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 1 Février 2018

• #6

Bon avant d'aller plus loin regarde ce que j'ai fait
les champs de Listbox ne correspondaient pas à tes colonnes de devis , et autres !!! j'ai changé ton bloc
fait un test de devis , par contre pour le moment ton "Super programme" ne traite qu'une ligne , je suppose qu'il faut pouvoir en saisir plusieurs ?
Attention avec les Appli récupérées , généralement elles sont écrites (VBA) pour une utilisation précise et souvent complexe pour pas grand chose ( comme ici avec la fonction CCUR !!! on sait qu'on est en EURO !!)

 

Pièces jointes

• new Devis Professionnel.xlsm

  92.3 KB · Affichages: 51

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 2 Février 2018

• #7

Bonjour, merci du fond du cœur, ça marche super bien. c'est vrai l'application est limitée.
une question : est qu'il est possible d'afficher le résumé de la commande (liste des produits sélectionnés avec désignation, prix et quantité) avant de valider l'ajout dans la feuille devis.
je veux dire lorsque je clique sur le bouton valider, il apparait par exemple une listbox des produits sélectionnés avec en dessous de la listbox un bouton ok. une fois le bouton ok cliqué, il ajoute les données dans la feuille devis. en fait c'est une sorte de vérification avant l'ajout des données.
et encore milles fois merci pour ton aide.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 3 Février 2018

• #8

bonjour Vanin,Hervé,le forum
une autre proposition
changé la listbox,le total s'y fait(Pu*Q)
ajout ligne 37 pour remise (cachée si pas de remise)

 

Pièces jointes

• new Devis ProfessionnelV1.xlsm

  87.8 KB · Affichages: 59

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 4 Février 2018

• #9

Bonjour, super la nouvelle version, ça marche très bien. Merci infiniment.

Mais j’avais un souci concernant la modification

Pour modifier la quantité d’un produit, il faut cliquer à nouveau sur le produit, un msgbox de modification apparait. J’entre la nouvelle quantité puis je valide. A ce niveau pas de soucis.

Lorsque j'entre par exemple 5 comme quantité et qu'ensuite je modifie cette quantité en 3, pas de soucis. Mais lorsque par la suite je clique sur un autre produit pour cette fois ajouter la quantité, au lieu que le Msgbox d'ajout de quantité apparaisse, c'est plutôt celui de la modification de quantité qui apparait.
Pour régler ce problème j’ai utilisé le code ci-dessous qui marche bien.

Private Sub lstDevis_Change()


Dim Valeur


With Me.lstDevis



If .Selected(.ListIndex) Then



If .List(.ListIndex, 4) = 0 Then

.List(.ListIndex, 4) = InputBox("Indiquer la quantité !", "Quantité.", 1)

End If



Else



If .List(.ListIndex, 4) <> 0 Then

.List(.ListIndex, 4) = InputBox("Modifier la quantité !", "Modification quantité.", 1)

End If



End If



End With



End Sub

Ma question c’est comment l’adapter à la nouvelle version du fichier afin de régler le souci de modification.

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 4 Février 2018

• #10

bonjour Vanin
mon avis tu as la textbox qui serait mieux qu"une inputbox,suggestion:regrouper le tout dans un seul userform

 

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 5 Février 2018

• #11

Bonjour, merci pour la réponse mais j'ai pas compris la réponse. suis pas un pro en VBA.

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 5 Février 2018

• #12

Il veut te dire qu"au lieu de mettre des InputBox entre les choix de la Listbox tu ne fait qu'un USF avec ta listbox et des textbox pour mettre tes choix , au moins toutes les données sont conservées ( sans soucis de mémoriser) car tout est dans l'USF

 

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 5 Février 2018

• #13

wahou, merci mais je comprends pas grand chose à vos explications car je suis débutant, pourriez vous s'il vous plait m'aider par l'exemple dans une nouvelle version.
pardon d'abuser suis pas kalé en vba
merci pour tout

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 5 Février 2018

• #14

bonsoir
Vanin d'abord sélection d"une ligne dans listbox
ajout de 3 textbox,tu entres juste la quantité et le reste suit
textbox2 tu ne peux entrer que du numeric
tu peux effacer une ou plusieurs lignes(doubleclic) msgbox pour confirmer

 

Pièces jointes

• new Devis ProfessionnelV2.xlsm

  90.2 KB · Affichages: 62

Vote positif 0 Vote négatif

V

vanin

XLDnaute Occasionnel

• 5 Février 2018

• #15

Bonjour, merci c'est très intéressant, merci infiniment.
mais le souci c'est que le bouton valider ajoute les autres produits non sélectionnés. même si les quantités sont égales à zéro, ces produits non sélectionnés gênent la lisibilité du devis.
on peut les supprimer avant validation mais dans le cas ou il y'a beaucoup de produits, c'est une vrai perte de temps.
merci infiniment pour votre disponibilité

 

Vote positif 0 Vote négatif