Identifiez une ligne d'une textbox et extraire les valeurs
Bonjour à tous, je suis totalement novice sur le forum (et en vba alors soyez indulgent svp), c'est meme la premiere fois que je post pour obtenir une réponse car vraiment je bloque.
J'ai un tableau avec 4 feuilles :
feuil1 me sert de base ou mes textbox vont chercher les infos pour créer l'aricle
feuil2 est ma liste d'article avec les infos
feuil 3 n'est pas encore établi mais dois etre un "calendrier mensuel" (sans les jours)
feuil4 pas encore établi dois récapituler l'ensemble des produits vendus avec leurs infos
Aujourd'hui j'arrive a créer mes articles via un userform et a placer correctement mes infos dans ma feuil2
Maintenant je voudrais réussir à:
1: mon userform "ajout article" renvoi le prix d'achat dans le mois correspondant dans feuil3 pour le compter en dépense
2:creer un bouton "vendre l'article" et voici ce que je voudrais qu'il fasse :
- trouver l'article en question (via peut etre une textbox)
- renseigner dans userform date et le prix de vente
- et commandbutton "valider la vente" renvoyer la valeur du prix de vente au mois correspondant pour compter en gain
- supprimer la ligne de ma feuil 2 pour la mettre feuil4 de maniere à avoir mon article et toutes ses infos...
Je ne sais pas si c'est clair, je joins mon fichier et reste disponible.
Ps1: Je ne cherche pas à ce qu'on me mache le travail je suis vraiment curieux d'apprendre mais la je ne sais pas par ou commencer.
Ps2: Désolé si j'ai commis des fautes d'orthographe, inutile de me le rappeler, ma femme s'en charge très bien ;)
Il est impératif que vous fournissiez la page 3 (le calendrier). Sans sa forme générale, on ne peut pas faire grand-chose.
Attention : dans votre code, il faudrait lire :
'Message d'erreur en cas de case importante vide
If ComboBox1 = "" Then MsgBox ("Indiquez le type d'article"): Exit Sub
If ComboBox2 = "" Then MsgBox ("Indiquez une couleur principale"): Exit Sub
If TextBox2 = "" Then MsgBox ("Indiquez un prix d'achat"): Exit Subau lieu de :
'Message d'erreur en cas de case importante vide
If ComboBox1 = "" Then MsgBox ("Indiquez le type d'article")
If ComboBox2 = "" Then MsgBox ("Indiquez une couleur principale")
If TextBox2 = "" Then MsgBox ("Indiquez un prix d'achat")Merci pour ta réponse, j'ai mis en forme ma feuil3 (c'est minimaliste mais je ferais la déco plus tard).
Merci pour ton conseil, sur le exit sub, je commet encore ce genre d'erreur
Tableau avec calendrier en pj.
Merci beaucoup fanfan,
le bouton vendre renvoi bien la ligne dans le calendrier et dans la feuil4 articles vendus (en revanche le mois de vente ne se renseigne pas)
par contre le bouton ajouter ne fonctionne plus ? il ajoute bien le prix d'achat dans le calendrier mais plus rien dans la feuil2...
J'ai esssayer de tripoter par moi meme mais je n'ai pas trouver la solution...
Merci beaucoup en tout cas
Merci ! Je regarde ça dès que j’ai accès a l’ordi et je te dirais !
C'est super, mais dans :
feuil4 : le mois de vente en D se met en numéro allant de 1 à 12 je voudrais qu'il garde son format initial jj/mm/aaa parce qu'apres je calculerai le délai de vente entre mois d'achat et mois de vente et je suppose qu'il faudra qu'ils aient le meme format...
feuil4 : le prix de vente en E ne se renseigne pas
Je te remercie vraiment parce que c'est déjà extrêmement bien, mais malgré mes recherches dans ton code je ne parviens pas à faire le nécessaire (pour faciliter mon apprentissage pourrais tu si tu as le temps biensur me préciser un peu en commentaire les fonctions du code du userform2 que tu as créer)
Une proposition (attention, les "/" de la date sont automatiques) :
Parfait merci pour ton aide !
Et merci pour l'homme invisible. Encore ces cachets de malheur.