Bouton ajouter et supprimer

[limofab]

Bonjour à tous,

J'aurais besoin d'aide 😀
- En effet, je souhaite mettre en place 2 boutons (ajouter et supprimer) sur ma feuille excel pour remplir un panier d'article prévu a cette effet.
- J'ai essayé plusieurs codes en vain...
- Il faut bien entendu pouvoir ajouter ou supprimer un article selectionné.
- Je suis bien conscient qu'il faut prévoir d'incrémenter une cellule à +1 à chaque fois qu'un article est ajouté pour eviter que le nouvel article n'écrase le précédent.
- Voilà en gros mon soucis, j'espère que vous pourrez m'apporter vos lumières car je commence a être largué 😛

ci joint l'exemple de mon fichier excel

Merci d'avance pour vos réponses

 

[Macpoy]

Re : Bouton ajouter et supprimer

bonsoir le forum, limofab,

voici juste un début je suis loins d'avoir fini, mais avec ce premier jet tu pourras déja me dire si cela te conviens.

 

[Macpoy]

Re : Bouton ajouter et supprimer

Re,
Ouuupsss je crois que j'ai été un peus vite!!!
désolé je m'y recolle !!

 

[alf43]

Re : Bouton ajouter et supprimer

salut,
regarde ce fil c'est vraiement génial pour la suppression merci à porcinet je crois
à+
alf


🙂https://www.excel-downloads.com/threads/suppression-par-listbox.61578/

 

[Macpoy]

Re : Bouton ajouter et supprimer

Re, voici le fameux fichier que je voulais te faire parvenir.

 

[Macpoy]

Re : Bouton ajouter et supprimer

Re,

voici la dernière mouture.
en principe les boutons fonctionnent et font ce que tu souhaites.
tiens moi au courant.

 

[Staple1600]

Re : Bouton ajouter et supprimer

Bonsoir à tous

En partant de ton fichier Exemple

voici une approche.

Bonne fin de soirée.

PS: merci à JeanMarie pour le code
macro :ValeurListeDéroulanteObjet
issu de ce fil :Fil XLD

 

[limofab]

Re : Bouton ajouter et supprimer

Merci pour toutes ces réponses !
Je test ça demain et je vous tiens au courant.
Encore merci pour la rapidité😉

 

[limofab]

Re : Bouton ajouter et supprimer

Dsl pour le retard !
J'ai testé les boutons et c'est nickel 😎
Merci à tous vous êtes génials 🙂
@+

 

[limofab]

Re : Bouton ajouter et supprimer

Bonsoir,
Juste une autre ptite question😱,
Mon projet final comporte plusieurs listes (comme dans le fichier joint)
J'aimerais une petite explication sur le code VB des 2 boutons (ajouter et supprimer) comme celà je pourrais intégrer le tout dans mon fichier final.
Merci encore😎

 

[limofab]

Re : Bouton ajouter et supprimer

UP svp je coince sur ce code

 

[limofab]

Re : Bouton ajouter et supprimer

Voici le bout de code que j'ai réussi a réalisé (Ajout2)
Le problème est qu'il ne permet pas de copier la liste des prénom 😡
Quelqu'un peu m'expliquer ce qu'il faut que je fasse pour pouvoir réaliser cet ajout.
Merci d'avance😎

 

[Ludisiae]

Re : Bouton ajouter et supprimer

Bonsoir à tous,
Essaie en remplaçant le 1 de ("Drop Down 1") par 38 sur les 2 lignes.

 

[limofab]

Re : Bouton ajouter et supprimer

En effet celà fonctionne sur le fichier en pièce jointe qui n'a que 2 listes.🙂
Sur mon fichier final, j'ai 10 listes que l'utilisateur pourra ajouter ou non.😱
J'aimerais donc savoir quelle partie du code permet de faire la copie dans le panier (soit a partir de la ligne A20)
Et eventuellement si quelqu'un avait un code unique que j'ajouterais sur tout les boutons. (Plutot que 10 codes pour 10 formules)

Sub Ajout()
Dim Fin As Long
Dim vLIndex As Byte
Dim vPlage As Range
vLIndex = ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListIndex
Set vPlage = Range(ActiveSheet.Shapes("Drop Down 1").ControlFormat.ListFillRange)
Fin = [A83].End(xlUp).Row
Range("A" & Fin).Offset(1, 0) = vPlage(vLIndex)
Range("D14:G14").Copy
Range("D" & Fin).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub


Sub Ajout2()
Dim Fin As Long
Dim vLIndex As Byte
Dim vPlage As Range
vLIndex = ActiveSheet.Shapes("Drop Down 38").ControlFormat.ListIndex
Set vPlage = Range(ActiveSheet.Shapes("Drop Down 38").ControlFormat.ListFillRange)
Fin = [A83].End(xlUp).Row
Range("A" & Fin).Offset(1, 0) = vPlage(vLIndex)
Range("D14:G14").Copy
Range("D" & Fin).Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[Staple1600]

Re : Bouton ajouter et supprimer

Bonsoir à tous


Message recu en MP

Bonjour Staple 1600,
Je suis bien bloqué sur mon bouton Ajouter🙁, en effet comme sur le forum, j'explique que j'ai sur mon fichier final + de 10 listes et donc je n'arrive pas a intégrer ce code dans ce fichier.😱
Peu tu m'expliquer le code du bouton Ajout

Sur mon fichier final le panier se trouve a partir de la case A69.
Merci bien d'avance

Sub Ajout()
' le code est identique au message avant celui ci dans le fil
'ca gagne un peu de place
End Sub

PS: mieux vaut rester dans le fil, que de passer par la MP
(MP= messagerie privée)

Voici un début (pour deux zones de liste)
Je te laisse faire pour les 8 autres
(Voir commentaires dans le code VBA)

Il n'y a plus qu'un seul bouton [Ajouter] désormais