Macro pour ajouter une ligne en fin de tableau

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous n'ayant pas d'expérience en VBA, j'ai voulu créer une macro pour ajouter une ligne en fin de tableau sauf que je rentre des valeurs dans cette nouvelle ligne.
Sauf que le problème de l'enregistreur de macro est qu'il prends les cellule en brut donc à chaque fois que j’exécute ma macro il me créer une ligne à partir de la ligne 11 et me décale tout mon tableau du coup.
J'ai essayé de regarder sur internet des soluces mais aucune me conviennent réellement car il faut remplir des cellules.

Voici ma Macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Nouvelle_ligne() ' ' Nouvelle_ligne Macro ' ' Rows("11:11").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A10").Select Selection.AutoFill Destination:=Range("A10:A11"), Type:=xlFillDefault Range("A10:A11").Select Range("G11").Select ActiveCell.FormulaR1C1 = "0" Range("G12").Select ActiveWindow.SmallScroll Down:=-3 Range("J11").Select End Sub
Voilà voilà merci d'avance
Excel 2013

Code:

1
2
3
4
5
6
7
8
Sub Nouvelle_ligne()
    Dim Lig As Long
    Lig = Cells(Rows.Count, 1).End(xlUp).Row
    Rows(Lig).Copy
    Rows(Lig + 1).Insert CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(Lig, 1).AutoFill Destination:=Range("A" & Lig & ":A" & (Lig + 1)), Type:=xlFillDefault
    Cells(Lig + 1, "G").Value = 0
End Sub

05/11/2019, 15h25
Pépémax

Merci beaucoup, mais quand je teste, ça me copie le ligne de dessus, or j'aimerais une ligne vides, auquel la macro ajoute des valeurs "par défaut".
Par exemple si j’exécute la macro ça me créé une nouvelle ligne et que dans cette ligne les cellules:
A = LIGNES()-1
B vide
C vide
D vide
E vide
F vide
G = 0
J = "Non fait"

Est-ce possible, sinon juste me créer une nouvelle ligne vierge.

Merci
05/11/2019, 15h38
Menhir

Il suffit d'enlever la ligne contenant Copy.
06/11/2019, 08h41
Pépémax

Merci beaucoup :P:P:P