Macro coller une ligne

Fermé
LaurentB69 Messages postés 3 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 1 septembre 2009 - 31 août 2009 à 16:10
LaurentB69 Messages postés 3 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 1 septembre 2009 - 1 sept. 2009 à 10:45
Bonjour à tous

J'aimerai réaliser une macro qui permettrait de :
- copier une ligne entière dans une feuille excel "b"
- coller cette même ligne au dessus d'une ligne que j'aurai préalablement sélectionnée avec la souris dans une feuille excel "a" du même fichier (cette sélection se fera avant de lancer la macro).

En espérant avoir été explicite dans cette description (je suis débutant), je souhaiterai connaitre le code à écrire.
Merci de votre aide
A voir également:

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
31 août 2009 à 17:20
Bonjour,

essaies

Sheets(2).Activate
lig2 = ActiveCell.Row
Sheets(1).Activate
lig1 = ActiveCell.Row
Sheets("Feuil2").Rows(lig2).Copy Sheets("Feuil1").Rows(lig1 - 1)


Le + important dans une macro VBA est de ne pas utiliser select-Selection et copy- paste...: c'est très lent et mangeur de mémoire...

un site VBA très sympa pour les débutants
http://www.info-3000.com/
0
LaurentB69 Messages postés 3 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 1 septembre 2009
1 sept. 2009 à 10:36
Bonjour

Merci pour l'aide mais cela ne semble pas fonctionner (la ligne sélectionnée ne se copie pas sur l'autre feuille).
Quelques précisions supplémentaires :
-le ligne complète que je souhaite copier dans la feuille 2 est fixe (toujours la même)
-l'emplacement dans la feuille 1 ou je veux coller la ligne de la feuille 2, dépend de la position de la cellule que j'active avec la souris.

Dans tous les cas, merci de votre aide
0
LaurentB69 Messages postés 3 Date d'inscription lundi 31 août 2009 Statut Membre Dernière intervention 1 septembre 2009
1 sept. 2009 à 10:45
Autant pour moi, cela fonctionne sauf que au lieu de coller telle quelle la ligne, je souhaiterai l'insérer entre 2 autres (je ne connais pas la fonction).

Encore merci
0