Bonjour,
Voici mon cas : j'aimerais insérer les données des cellules d'une fiche produit (quantité, prix, taille etc...) dans mon panier ( qui est sous forme d'un tableau ) sachant qu'une ligne s'ajoute dans le panier à chaque fois que je clique sur "ajouter panier" (bouton qui est sur ma fiche produit)
J'aimerais qu'à chaque fois que j'ajoute les données de ma fiche produit dans mon panier, qu'une nouvelle ligne se remplisse sans effacer la précédente. Il faut savoir que j'ai plusieurs fiches produits (un bouton ajoutez pour chaque fiche ) pour un même panier.
Voici mon code pour une fiche :
Sub Article1panier1()
rep = MsgBox("Voulez-vous sélectionner ce produit ?", vbYesNo)
If rep = vbYes Then
Sheets("Mon Panier").Range("C14") = "Article 1"
Sheets("Mon Panier").Range("D14") = Sheets("Produits").[I8]
Sheets("Produits").[I8] = [I8]
Sheets("Mon Panier").Range("E14") = Sheets("Produits").[K8]
Sheets("Produits").[K8] = [K8]
Sheets("Mon Panier").Range("F14") = Sheets("Produits").[I16]
Sheets("Produits").[I16] = [I16]
Sheets("Mon Panier").Range("G14") = Sheets("Produits").[I20]
Sheets("Produits").[I20] = [I20]
Sheets("Mon Panier").Range("H14") = Sheets("Produits").[I12]
Sheets("Produits").[I12] = [I12]
MsgBox ("Votre produit a bien été ajouté à votre panier")
Else
End If
End Sub
Merci d'avance