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 Subje vous remercie d'avance si il y a une solution possible
belle Journée
 
	 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		 
 
		