macro copier et decaler cellules auto

[gros01]

Tout d'abord merci de m'accorder quelques minutes pour j'espere trouver une soluce à mon pb
Voilà : un classeur ouvert avec 2 feuil ( essai et seb )
- dans 'essai' : j'ai 1 liste deroulante avec plusieurs choix,
en A1 s'affiche le choix porté de la liste deroulante,
en dessous j'ai un bouton de commande active x,
ce bouton lorsque je clique dessus devrait copier le contenu de
A1 vers B5 de feuil 'seb '

- dans 'seb' : s'affiche en B5 la valeur de 'essai' A1 lorsque appui sur bouton
controle active x

A chaque choix de la liste deroulante et à chaque appui sur le bouton j'aimerai
que le contenu en 'essai' A1 soit recopié en 'seb' à partir de B5 en gardant les précedents choix et en décalant les cellules vers le bas pour les suivants .
Au secours , si quelqu'un pouvait me trouver la macro qui fait tout ca se serait le bonheur , merci

 

[MECEQI]

Re : macro copier et decaler cellules auto

Soir,
Essaie:

 Range("A1").Select
    Selection.Copy
    Range("B5").Insert Shift:=xlDown

 

[MECEQI]

Re : macro copier et decaler cellules auto

Pardon, oubli
Range("A1").Copy
Worksheets("Feuil2").Range("B5").Insert Shift:=xlDown

 

[gros01]

Re : macro copier et decaler cellules auto

merci pour la reponse, mais ou dois je placer tout ca ? eh oui debutant quand tu nous tiens !!

 

[gros01]

Re : macro copier et decaler cellules auto

ok j'ai affecté la macro au bouton controle active x.
Ca fonctionne bien, mais lorsque je change la valeur en A1 sa copie ne se fait pas à la suite des autres mais au début et me decale vers le bas les cellules déja copiées.
Le but étant de laisser en place les cellules déja copiées et rajouter toujours en décalant vers le bas d'autres valeurs

Merci de votre attention

 

[gros01]

Re : macro copier et decaler cellules auto

au secours !!! svp