VBA Insertion + Formule

Bonjour

j'aimerais savoir si c’était possible de créer une macro qui insère une ligne et qui recopie les formules de la ligne du dessus

Merci d'avance

Salut Cri-cri,

Rows(10).Insert 
'Si tu veux recopier la formule de la colonne A
Range("A9").value = Range ("A8").value

Il faudrait un peu plus de précision quand à l'insertion de la ligne, tu veux le faire à partir de quelle donnée ?

Merci de ta réponse, si tu veux pour l'instant j'ai fait ça, mais ça va toujours m’insère la ligne entre la 10 et la 11, j'aimerais que ou que je sois ça me prenne la ligne du dessus et les formules de la ligne de dessus.

Sub inserligne()

'

' inserligne Macro

'

' Touche de raccourci du clavier: Ctrl+i

'

Rows("11:11").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("A10:G10").Select

Selection.AutoFill Destination:=Range("A10:G11"), Type:=xlFillDefault

Range("A10:G11").Select

End Sub

En dessous de quoi ? D'un tableau ? Il fait quelle longueur ?

Si oui :

maligne = Range("A" & Rows.Count).End(xlUp).Row
maligne = maligne + 1
Rows(maligne).Insert 

Ceci te permet déjà d'insérer ta ligne, jusque là ça te va ?

PS : Met ton code entre les balises de code, </> dans ton éditeur de texte

LE TABLEAU IL FAIT 20 COLONNES

Dans un cas je suis dans un tableau dans l'autre nom,

dans le vas du tableau les colonnes s'ettendent sur 4 colonnes

et dans le cas de la feuilles exel il y a 20 colonnes.

j'ai essayé la tienne mais ca ne marche pas

Sub inserligne()

'

' inserligne Macro

'

' Touche de raccourci du clavier: Ctrl+i

'

Rows(maligne).Insert

maligne = maligne + 1

maligne = Range("A" & Rows.Count).End(xlUp).Row

End Sub