Discussion :

[Pépémax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Menhir]

Il suffit d'enlever la ligne contenant Copy.

[Pépémax]

Merci beaucoup