MACRO copie une ligne avec des formules en suivant la liste

Bonjour,

J'ai produit une macro, mais elle ne fait pas exactement ce que j'aimerais...

Je voudrais ajouter 25 lignes suplémentaires tout en conservant les formules à l'intérieur des cellules.

Par contre, les formules ne doivent pas être toutes pareilles lors de la copie. Je veux que les no de lignes présent dans les formules se suivent (car je fais des références à une base de données où chq ligne est recherchée)...

Présentement, j'obtiens mes 25 lignes, mais avec les formules de la dernière ligne.

Si j'ai une formule ex: Feuil1'A25 en ligne A1, il faut qu'en A2, j'aie la ligne suivante, soit Feuil"1A26 etc.

Voici ma macro:

Sub Insertion()

Dim Ligne As Long

Ligne = Range("A7").End(xlDown).Row

Range("A" & Ligne & ":U" & Ligne).Copy

Range("A" & Ligne + 25 & ":U" & Ligne + 1).Insert shift:=xlShiftDown

Application.CutCopyMode = False

On Error Resume Next ' On supprime les constantes

Range("A" & Ligne + 25 & ":U" & Ligne + 25).SpecialCells(xlCellTypeConstants, 23).ClearContents

On Error GoTo 0

End Sub

MERCI BCP D'AVANCE !!!!

Bonjour

Pour l'insertion des tes 25 lignes pas de problème, pour la recopie de tes formules sur les 25 lignes pas de problème, pour effacer les constantes un défaut

Voici le code employé

Au départ dans la cellule B10 j'ai la formule

=Feuil2!B1

Après la macro j'ai cette formule incrémentée dans les cellules B11 à B35 et j'obtiens dans la dernière cellule

=Feuil2!B26

Sub Insertion()
Dim Ligne As Long

  Ligne = Range("A7").End(xlDown).Row
  Range("A" & Ligne & ":U" & Ligne).Copy
  Range("A" & Ligne + 1 & ":U" & Ligne + 25).Insert shift:=xlShiftDown
  Application.CutCopyMode = False
  On Error Resume Next ' On supprime les constantes
  Range("A" & Ligne + 1 & ":U" & Ligne + 25).SpecialCells(xlCellTypeConstants, 23).ClearContents
  On Error GoTo 0
End Sub

Je ne comprend pas car ça ne fonctionne pas pour moi.

VBA me donne l'erreur suivante:

Range("A" & Ligne + 1 & ":U" & Ligne + 25).Insert shift:=xlShiftDown

J'ai mis un fichier exemple en pièce jointe.

Bonsoir

A tester

Ah oui...! Merci ... Je comprend. Désolé pour mon innatention!

Votre réponse m'est bien utile!

Bonne soirée