Compléter une macro

Résolu
Zeni -  
 Maurice -
Bonjour,

Une personne très aimable m'a donné cette macro :

Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
    Range("D" & ActiveCell.Row + 1).Select
    Application.CutCopyMode = False
    Range("C" & ActiveCell.Row & ":" & "D" & ActiveCell.Row).ClearContents

Je voudrai juste rajouter que lorsque la ligne est copiée le curseur soit en colonne C sur la ligne copiée, qqn peut-il m'aider ? :-)

EDIT : Ajout des balises de code.

2 réponses

  1. jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour,

    1 - Merci de bien vouloir utiliser la coloration syntaxique (les balises de code) lorsque tu postes du code sur le forum.
    Explications disponibles ici :
    https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

    2 - Il te suffit de changer la ligne :
    Range("D" & ActiveCell.Row + 1).Select

    Par :
    Range("C" & ActiveCell.Row + 1).Select


    PS: Si la question est résolue..
    Merci de ne pas oublier de clôturer le sujet
    (en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)

    1
  2. Maurice
     
    Bonjour

    a la fin
    Range("C" & ActiveCell.Row).Select
    

    A+
    Maurice
    1