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.
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 :
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.