Slection.Autofill avec ref relative

Bonjour @ tous

Revoici la KichE aka Théodore.
J'ai ici un petit bout de code pour insérer une ligne dans un tableau.
L'idée est d'aller à la dernière ligne remplie, puis de descendre de 1 ligne puis d'insérer ma ligne là.

Le truc c'est que j'ai plusieurs cellules avec des formules donc je veux sélectionner la ligne du dessous (celle qui avait les formules et qui a été repoussée) et "tirer les formules".

Voici:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub ajouter_lignes() Range("A25").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select Selection.EntireRow.Insert ActiveCell.Offset(1, 0).Select Selection.EntireRow.Select Range(Selection, Selection.EntireRow).Select Selection.AutoFill Destination:=Range("XXX"), Type:=xlFillDefault Range("XXX").Select ActiveCell.Select End Sub

---

Je bloque au niveau du range de destination, je ne sais pas comment écrire ça en ref relative.

Merci de vos contributions.

Théodore ;)

Bonjour,

En ce qui me concerne, votre question n'est pas très claire :

Citation:

---

L'idée est d'aller à la dernière ligne remplie, puis de descendre de 1 ligne puis d'insérer ma ligne là.

---

Or, avec votre code, vous sélectionnez la dernière ligne remplie, puis vous sélectionnez la ligne suivante : en principe elle est vide ?

Alors pourquoi insérer une ligne vide à partir d'une ligne vide et de plus deux fois ?

Ensuite que voulez-vous faire : copier uniquement les cellules de la dernière ligne contenant des formules ?

Bonjour

Je vous remercie pour cette prompte réaction.

En effet mon explication n'est pas très claire.

Ce que je veux dire c'est que:
- les utilisateurs de ce tableaux sont des débutants absolus donc ne savent pas insérer de lignes : j'ai été prié de créer "un bouton" pour ça
- il y a plein de formules (recherchev, mise en forme conditionnelles) dans les cellules donc je dois faire attention à ce qu'elles soient bien là et correctes
- j'ai eu l'idée de prendre la ligne du dessous (vide mais avec formule donc) parce que si je autofill la ligne du dessus (dernière ligne remplie, donc) je copie les données

A la réflexion, peut être qu'il vaut mieux faire un copier > insérer ligne, non ?

Merci à vous

Bonsoir,

Toujours pour le cas où j'ai bien compris, essayez (une solution parmi d'autres) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub ajouter_lignes() Dim Dl As Long, Dc As Integer, C As Integer   Range("A25").Select Dl = Range("A65536").End(xlUp).Row Dc = Range("A" & Dl).End(xlToRight).Column Range(Cells(Dl, 1), Cells(Dl, Dc)).Select Selection.Copy Range("A" & Dl + 1).Select ActiveSheet.Paste For C = 1 To Dc If Range(Cells(Dl + 1, C), Cells(Dl + 1, C)) <> Formula Then Cells(Dl + 1, C).ClearContents End If Next C End Sub

---