Bonjour à tous !

Une petite macro que je n'arrive pas à résoudre qui peux m'aider !

Avant de créer ma macro, j'ai créer en bas de ma feuille un champ de 4 lignes que j'ai appeler " source " .

J'aimerais créer une macro qui m'insère en copiant le champ " source " à l'endroit quelconque ou je sélectionne une ligne dans la feuille.

Précision : Qui copie le champ juste au dessus de la ligne sélectionnée !

Merci pour toutes vos bonnes idées

Bonsoir ,

Voilà la macro demandée :

Sub Copie4Lignes()

Dim LigneSélectionnée As Integer
LigneSélectionnée = ActiveCell.Row

Application.Goto Reference:="Source"
Application.CutCopyMode = False
Selection.Copy
Cells(LigneSélectionnée, 1).Select
Selection.Insert Shift:=xlDown
Range("A1").Select

End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj200911/cijr9E7VJy.xls

Bravo et tous mes compliments, merçi pour la rapidité !

Bonjour,

Pour marmotte: http://cjoint.com/?mbj1Bgo0nL

Petite curiosité, je te livre ma modification de ta macro, faite l'autre jour en la voyant, une touche après l'autre, ce que j'ai trouvé drôle au final c'est qu'il ne reste plus une ligne semblable (après la déclaration de variable). Cela m'a fait méditer sur les diverses façons d'aborder un problème et les réflexes acquis à cet égard... Le résultat est le même (avec une petite différence tout de même [qui m'avait fait commencer à modifier]: je n'ajoute pas de lignes).

Bonne journée.

Bonjour,

Pour ferrand : oui c'est amusant ! Par contre, les fonctionnalités ne sont pas les mêmes.

lavandine a dit :

J'aimerais créer une macro qui m'insère en copiant le champ " source " à l'endroit quelconque ou je sélectionne une ligne dans la feuille.

J'ai hésité longuement pour savoir s'il fallait copier ou insérer ! J'ai finalement procédé à une insertion sans conviction => le test que tu as fait, devenait inutile.

Mais elle avait écrit aussi

Précision : Qui copie le champ juste au dessus de la ligne sélectionnée !

A plus.