Inserer un "panier" dans ma gestion de ventes
Bonjour à toutes et tous,
j'ai créé un classeur me permettant de gerer mes ventes lors d'un vide maison, mais je souhaiterais y ajouter un panier par client (juste un numéro automatique) avant d'enregistrer dans la feuilles "Ventes"
quelles sont les pistes à suivre, merci de votre aide précieuse comme à chaque fois.
Je vous joint le classeur.
Bonne journée à tout le monde.
Christophe
Bonjour,
En regardant un peu votre fichier, je ne vois pas l'intérêt de la feuille Formulaire
Il suffit de compléter votre Userform et de valider les données pour les ajouter à votre tableau en feuille Vente
Que voulez-vous dire par numéro automatique ??
Autres questions :
- Comment affichez-vous les communes dans la listbox ? (avec le CP ou sans ?) voir ci-après
- Le Cp doit s'afficher selon le clic dans listcommune ?
Rem :
votre tableau est au format structuré dans la feuille Vente et donc pas besoin de mettre votre total en F1. Cliquez dans une cellule du tableau puis dans le manu Excel --> Création de tableau --> Cochez la case Total.
Cela ajoutera une ligne pour les totaux dans votre tableau
Bonjour,
merci de la réponse.
pour les communes, je rentre le code postal dans le Textbox correspondant et ca me donne le choix dans la listbox commune de toutes les communes ayant ce CP¨.
Pour la numérotation auto, c'est parce que je n'ai pas de client particulier je dois juste différentier mes ventes (ex: je vends plusieurs articles à la même personne "1", je voudrais remplir un panier m'indiquant le montant total des articles et le valider d'un coup pour que le détail soit versé dans la feuille "Ventes". Une fois validé, je voudrais retrouver un formulaire de saisie correspondant au client "2" etc....)
Christophe
Bonjour,
J'ai refais les codes de votre fichier car il y avait quelques soucis et choix comme par exemple la feuille Formulaire qui est inutile et les instructions Rowssource (cette instructions est à éviter pour vous éviter quelques fois des soucis)
L'userform ne sert pas non plus. Il suffit de mettre une Msgbox qui vous mentionnera que l'enregistrement a bien été effectué
Une chose que vous auriez aussi pu faire, c'est mettre vos communes dans la feuille Données plutôt que de faire deux feuilles
Pour la numérotation auto, c'est parce que je n'ai pas de client particulier je dois juste différentier mes ventes (ex: je vends plusieurs articles à la même personne "1", je voudrais remplir un panier m'indiquant le montant total des articles et le valider d'un coup pour que le détail soit versé dans la feuille "Ventes". Une fois validé, je voudrais retrouver un formulaire de saisie correspondant au client "2"
Si vous voulez faire cela, vous avez deux possibilités :
- soit une feuille avec la liste de vos clients et dans l'userform on ajoute une combox qui reprend cette liste pour faire un choix.
- soit on ajoute une textbox dans laquelle vous mettez le nom de votre client. Cette solution est plus simple si vos clients ne sont pas connus.
Pour le panier, il faut rajouter par exemple une listbox qui sera complétée avec vos articles
On pourrait la mettre en dessous de la listbox des communes
cela pourrait donner ceci
Dites moi
Bonjour,
merci pour ce travail remarquable, le nouvel userform correspond à ce que je souhaitais. Pour ce qui est du client ou plutôt du numéro de vente une simple incrémentation de 1 en 1 à chaque fois qu'on valide une vente suffit.
merci encore de votre aide.
Bonne soirée
Bonjour,
Deux questions cependant
- Où préférez-vous placer ce numéro sur l'USF ? exemple à gauche du code postal ?
- est-ce que ce numéro doit aussi se retrouver sur la feuille Vente ?. On n'est pas obligé mais si oui, on ajoutera une colonne
Crdlt
Bonjour,
à gauche du code postal, ce sera parfait oui. Et le numéro dans la feuille vente aussi.
Merci encore, cordialement.
Christophe
Re
Est-ce bon pour vous si je place les communes dans la feuille Donnees ?
De cette sorte vous aurez toutes les références dans une même feuille
Dans ce cas tout comme la feuille formulaire, la feuille Commune sera supprimée
Bonsoir,
ça ne me derange pas, le principal est que le fichier fonctionne.
Merci, cordialement
Bonjour
Votre fichier en retour avec quelques explications ci-après
1. Les feuilles formulaire et commune sont supprimées
2. Utilisation de l'usf :
- Si vous devez effectuer un changement dans la textbox CP ou prix untitaire, vous pouvez éventuellement faire un double clic dans la textbox concernée pour effacer la donnée entrée. J'ai ajouté cette fonctionnalité vu le nombre de chiffres que l'on peut avoir.
- Lorsque vous complétez le code postal, le passage de la souris sur la textbox vous indiquera que vous devez entrer 5 chiffres. Le cas échéant la liste des communes se rapportant au numéro n'apparaitra pas.
Le bouton Panier :
- remplit la listbox Panier et vide les textbox et mais conserve la sélection du vendeur dans la listbox du vendeur afin que le vendeur puisse ajouter un nouvel article sans devoir recliquer sur son nom.
- Le code vous renverra un message si vous n'avez complété toutes les textbox. (NB : si pas de donnée en textbox "Note", ajoutez un tiret par exemple)
Le bouton Valider :
- enregistre toutes les données dans la feuille Vente, vide toutes les textbox, désélectionne le choix dans les listbox, remet à jour la textbox Total vente et incrémente le num de vente.
- vous envoie un message de confirmation d'enregistrement.
3. Remarques : Quelques conseils importants vu que tous les tableaux sont au format structurés :
- si vous devez effacer une ligne, sélectionnez toujours les données de lignes uniquement puis faite un clic droite dans la ligne sélectionnée et choisissez l'option --> Supprimer --> Lignes de tableau (Très important ! vous devez toujours voir "lignes de tableau")
- si vous devez ajouter une ligne dans la feuille Commune, soit vous vous placez à l'intérieur du tableau pour insérer une ligne, soit vous sélectionnez la cellule vide juste en dessous de la dernière cellule remplie du tableau. Ensuite entrez votre nouvelle donnée, elle sera automatiquement reprise dans le tableau
Exemple pour ajouter un nouveau vendeur, mettez en F7 et ajoutez le vendeur. Il sera repris dans le tableau et vous le retrouverez dans l'USF
- A noter que les listbox Vendeur, Catégorie, panier et commune ne font plus partie d'un Frame car dans ce cas, les ascenseurs n'apparaissent plus dans les listbox si vous avez plus de données à afficher.
Ouf j'ai été long là...Si souci dites-moi.
Si ok et terminé pensez à fermer le fil de discussion
Cordialement
Edit : Avec le fichier c'est mieux ....
Bonjour,
c'est génial, il y a juste un tout petit souci, je ne trouve pas le fichier en téléchargement.
Merci beaucoup, cordialement.
Effectivement :)
Merci encore, bon week-end
Re :
Oui. Je viens de le mettre dans mon post précédent
NB : j'ai aussi modifié le texte des explications
Crdlt
j'ai testé ça correspond parfaitement, juste le numéro qui reste bien à 1 tant qu'on rempli le panier, mais qui passe à 3 dès la validation et qui enregistre le panier dans "ventes" avec les numéros qui changent à chaque ligne.
C'est peut être que je m'étais mal exprimé, c'est plutôt un numéro de panier qu'il faut incrémenter. (oups désolé)
Est il possible également que le txtbox Note puisse rester vide? ...J'abuse ;)
Merci
re
juste le numéro qui reste bien à 1 tant qu'on rempli le panier, mais qui passe à 3 dès la validation et qui enregistre le panier dans "ventes" avec les numéros qui changent à chaque ligne.
C'est peut être que je m'étais mal exprimé,
Non du tout. J'avais bien compris mais pas assez vérifié.
Faites ceci :
- Allez dans l'usf au code Private Sub CommandButton1_Click()
- Supprimez cette ligne --> LabelNum = .Item(lig, 1) + 1
- Allez à la fin du code et juste en dessous de la ligne Msgbox "La vente est bien enregistrée"....., rajoutez la ligne ci-dessous
LabelNum = Range("Tab_Ventes").ListObject.DataBodyRange.Item(lig, 1) + 1Est il possible également que le txtbox Note puisse rester vide? ...J'abuse ;)
Oui. Modifiez comme ceci :
- Allez dans l'usf au code Private Sub controle()
- Remplacez la ligne ci-après
If TypeName(c) <> "textbox7" And TypeName(c) <> TextMontant And TypeName(c) <> "Textbox6" ThenPar celle ci-dessous
If c.Name <> "Textbox7" And c.Name <> TextMontant And c.Name <> "Textbox6" ThenCordialement
Et bien, comment dire? Vraiment merci pour tout ce travail, c'est tout simplement génial, tout fonctionne à merveille.
Merci aussi pour votre sympathie.
Excellent week-end à vous.
Re
Merci du retour et content que cela vous convienne
Bon WE à vous
Cordialement