Bouton ajouter et supprimer

Macpoy

XLDnaute Impliqué

• 16 Janvier 2008

• #2

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.

 

Dernière édition: 16 Janvier 2008

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 16 Janvier 2008

• #3

Re : Bouton ajouter et supprimer

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

 

Vote positif 0 Vote négatif

A

alf43

XLDnaute Junior

• 16 Janvier 2008

• #4

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/

 

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 16 Janvier 2008

• #5

Re : Bouton ajouter et supprimer

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

 

Dernière édition: 16 Janvier 2008

Vote positif 0 Vote négatif

Macpoy

XLDnaute Impliqué

• 16 Janvier 2008

• #6

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.

 

Pièces jointes

• test.zip

  15.4 KB · Affichages: 70
• test.zip

  15.4 KB · Affichages: 79
• test.zip

  15.4 KB · Affichages: 81

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Janvier 2008

• #7

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

 

Dernière édition: 16 Janvier 2008

Vote positif 0 Vote négatif

L

limofab

Guest

• 17 Janvier 2008

• #8

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é😉

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 20 Janvier 2008

• #9

Re : Bouton ajouter et supprimer

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

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 23 Janvier 2008

• #10

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😎

 

Pièces jointes

• test.zip

  18 KB · Affichages: 55
• test.zip

  18 KB · Affichages: 49
• test.zip

  18 KB · Affichages: 51

Vote positif 0 Vote négatif

L

limofab

Guest

• 25 Janvier 2008

• #11

Re : Bouton ajouter et supprimer

UP svp je coince sur ce code

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 25 Janvier 2008

• #12

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😎

 

Pièces jointes

• test1.zip

  18.3 KB · Affichages: 53
• test1.zip

  18.3 KB · Affichages: 55
• test1.zip

  18.3 KB · Affichages: 59

Vote positif 0 Vote négatif

L

Ludisiae

Guest

• 26 Janvier 2008

• #13

Re : Bouton ajouter et supprimer

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

 

Vote positif 0 Vote négatif

L

limofab

Guest

• 26 Janvier 2008

• #14

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Janvier 2008

• #15

Re : Bouton ajouter et supprimer

Bonsoir à tous


Message recu en MP

limofab à dit:

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

Cliquez pour agrandir...

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

 

Dernière édition: 26 Janvier 2008

Vote positif 0 Vote négatif