Discussion :

[Myogtha]

Bonjour,

J'ai fait une macro mais j'ai un petit souci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Nlle_Ligne()
Dim N As Integer
    ThisWorkbook.Worksheets(1).Activate
    N = Range("A9").End(xlDown).Row
    Rows(N).Copy Rows(N + 1)
    N = N + 1
    Range("B" & N & ":I" & N).ClearContents 'nettoye la ligne de B à I
    Range("A" & N & ":A" & N).Value = Range("A" & N - 1 & ":A" & N - 1).Value + 1 '
    Range("B" & N).Activate
End Sub

J'aimerai qu'il me créé ma ligne en prenant les formules de calcul comme il fait mais sans les valeurs de la ligne du dessus, quelqu'un pourrait m'inguiller, svp

Merci d'avance

Jmb

[ouskel'n'or]

Déjà une chose : Tu n'es pas obligé d'activer la feuille pour travailler dessus
Ton code pour supprimer les données est correct.
Par contre, la ligne qui suit peut s'écrire plus simplement

Range("A" & N & ":A" & N).Value = Range("A" & N - 1 & ":A" & N - 1).Value + 1 '

Code :

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

    Range("A" & N) = Range("A" & N - 1).Value + 1

mais si tu as une formule en Range("A" & N), tu l'effaces.
La copie des seules formules ?
Si tu veux ajouter " + 1" à la formule, tu mets :

Code :

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

Range("A" & N).FormulaLocal = Range("A" & N).Text & " + 1"

Bonne journée

[Myogtha]

parfait merci pour tes conseils