Compléter une macro Résolu/Fermé

Question

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.

Configuration: Windows / Chrome 39.0.2171.95

jordane45 · Answer

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)

Maurice · Answer

Bonjour

a la fin

Range("C" & ActiveCell.Row).Select

A+
Maurice

Compléter une macro

2 réponses

Discussions similaires