Macro

Résolu/Fermé
Zeni - Modifié par Zeni le 14/01/2015 à 13:51
 Zeni - 14 janv. 2015 à 18:04
Bonjour à toutes et à tous,

Et bonne année :-)

Voici mon souci, j'ai des données saisies de A5:H250 mais je dois rajouter des données.

Afin de me faciliter la vie, j'aurai souhaité trouver une macro qui me permette lorsque je vais en D5 et que je clique sur un raccourci par exemple (ctrl+y) la ligne 5 soit dupliquée. La ligne 6 sera donc une copie de la 5. Par contre la C6 et D6 ne doivent pas copier la C5 et D5 car c'est là où je vais insérer mes nouvelles données. Du coup est-ce possible de directement mettre le curseur en C6 et ainsi de suite. Je dois en dupliquer plusieurs.

Est-ce que quelqu'un peut m'apporter son aide :-)


A voir également:

1 réponse

jordane45 Messages postés 38284 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 11 novembre 2024 4 697
14 janv. 2015 à 14:19
Bonjour,

Oui tu peux.
Utilises ton enregistreur de macro... indique le raccourci que tu veux y utiliser.... fais une action..(par exemple cliquer dans une cellule...) Arrête l'enregistrement de macro
puis remplaces le contenu de la macro générée par ceci :

    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

1
Superbe, elle marche très bien mais est-ce que le curseur peut se mettre sur la colonne C de la cellule copiée au lieu de D ? :-))
0
jordane45 Messages postés 38284 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 11 novembre 2024 4 697 > Zeni
Modifié par jordane45 le 14/01/2015 à 17:25
Il te suffit de changer :
 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)

Cordialement,
Jordane
0
Zeni > jordane45 Messages postés 38284 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 11 novembre 2024
14 janv. 2015 à 18:04
Merci c'est parfait :-)))))
0