Bonjour
je vien d' adapter un file trouvé sur le forum, j'aimerais faire une petite gestion de vente, mais au lieu de faire un Match avec le nom du produit, j'aimerais le faire avec le prix car il y a 2 format different de ML, en sachant que les prix peut se répéter sur plusieurs produits.
avec ce script VBA j'arrive a mon résultat (Prix, Quantité,Montant) il me manque juste le nom du produit, j'ai N/A à la place
je vous remercie d'avance si il y a une solution possible
belle Journée
je vien d' adapter un file trouvé sur le forum, j'aimerais faire une petite gestion de vente, mais au lieu de faire un Match avec le nom du produit, j'aimerais le faire avec le prix car il y a 2 format different de ML, en sachant que les prix peut se répéter sur plusieurs produits.
avec ce script VBA j'arrive a mon résultat (Prix, Quantité,Montant) il me manque juste le nom du produit, j'ai N/A à la place
VB:
Sub ajouterProduit()
Prix = ActiveSheet.Shapes(Application.Caller).DrawingObject.Text
If Prix = "" Then Exit Sub
Produit = Application.Index([listeProduits], Application.Match(Prix, [listePrix], 0))
dl = 1 + [E8].End(xlUp).Row
If dl = 8 Then
MsgBox "La liste commande est full, pas plus de 5 produits par commande.": Exit Sub
End If
Cells(dl, "E") = Produit: Cells(dl, "F") = Prix
Cells(dl, "G") = "1" 'QUANTITE
Cells(dl, "H") = Cells(dl, "F") * Cells(dl, "G")
End Sub
je vous remercie d'avance si il y a une solution possible
belle Journée