Déplacement de la cellule active vers le bas

Résolu
cs_delma Messages postés 8 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 28 août 2006 - 7 juil. 2005 à 09:26
cs_delma Messages postés 8 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 28 août 2006 - 7 juil. 2005 à 11:05
Bonjour tout le monde!



Je souhaite effectuer une copie d'une ligne et la coller dans une autre
feuille de mon classeur excel. Ca ca marche (encore heureux ;-) mais je
veux ensuite déplacer la cellule active à la ligne suivante. C'est a
dire que lors de la prochaine copie, ce déplacement ce fasse a la
cellule d'en dessous et ainsi de suite. Pour pouvoir avoir ensuite
l'ensemble des ligne que j'ai copiée dans ma feuille excel. J'ai
essayer simplement en appuyant sur la touche down, mais ne marche pas,
il me met la commande suivante: Range("A2").Select ce qui fé que lors
de la prochaine copie, elle est effectuée à cette ligne. J'ai essayer
en utilisant la commande SendKeys "{DOWN}, ou encore SendKeys
"{ENTER}", mais cela ne fonctionne pas. Existe il une metode, propriété
permettant de simplement dire de descendre d'une ligne la cellule
active à la feuille active???



la commande que j'ai besoin c'est de pouvoir dire en VB de descendre d'une cellule. Un truc du style moveDown.

Déroulement de ce que je veux faire:

Je selectionne une ligne dans une feuille excel, j'utilise mon macro, je reselectionne une ligne et je réutilise mon macro.

Le marco va faire.

Debut macro

copier la ligne que j'ai selectionner, changer de feuille excel,
coller la ligne, descendre d'une ligne et revenir a l'autre feuille
excel

Fin macro



Ensuite je selectionne une autre ligne, j'utilise mon macro et là la
ligne selectionnée sera coller dans l'autre feuille excel à la ligne 2

Je recommence, copie à la ligne 3, etc....



ainsi je peux avoir la liste des lignes que j'ai selectionner dans une feuille excel.



Please help...

1 réponse

cs_delma Messages postés 8 Date d'inscription jeudi 16 juin 2005 Statut Membre Dernière intervention 28 août 2006 5
7 juil. 2005 à 11:05
Voila la solution:



ActiveCell.Offset(1, 0).Activate
6