Macro Excel - sélectionner cellule avec référence relative

Bonjour,

Je ne suis pas très fort en macros. J’ai effectué des recherches sur le forum sans trouver de solution. Etant confiné, j’ai un peu de temps… et souhaiterais mettre en place une macro permettant d’ajouter des lignes par rapport à une cellule relative et non absolue.

Dans mon fichier, en cellule B15, j’ai collé un nom (« Date1 » en l’occurrence). Sur cette cellule, un bouton pour ajouter et copier des lignes.

macro

Je souhaite pouvoir insérer des lignes supplémentaires dans mon tableau :

  • en cliquant sur le bouton « Ajouter ligne », on ajoute, en ligne 14, Date 11 et une case de saisie,
  • en cliquant à nouveau sur le bouton, on ajoute, en ligne 15, une Date 12 et une case de saisie
Résultat :

macro2

Quand j’enregistre une macro automatique, elle est créée par rapport à la cellule B15. La macro ne fonctionne qu’une fois…

J’ai trouvé une piste en se basant sur ma valeur « Date1 » en remontant et en insérant une ligne. Je n’arrive pas à recopier Date « x » et la case de saisie vers le bas, avec incrémentation

Voici ce que j’ai imaginé :

Range("Date1").Select

ActiveCell.Offset(-1, 0).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Offset(-1, 0).Select

Qui pourrait m’aider à compléter ?

Merci par avance.

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

A GMB :

Merci beaucoup

C'était si simple ?

Rechercher des sujets similaires à "macro selectionner reference relative"