Macro coller une ligne

LaurentB69 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
LaurentB69 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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
Configuration: Windows Vista
Firefox 3.5.2

3 réponses

  1. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  2. LaurentB69 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    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
  3. LaurentB69 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    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