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.

A voir également:

2 réponses

Réponse 1 / 2
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
Réponse 2 / 2
Maurice
 
Bonjour

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

A+
Maurice
1

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
recup couleur de cellule sans macro
magouero -
JvDo -

7 réponses
EXCEL transformer chiffres en lettre -facture
roland -
JBB -

26 réponses
Arrêt d'exécution d'un code vba
amiro2017 -
amiro2017 -

6 réponses