XL 2016 insérer une ligne en automatique

[vivi21]

Bonjour,

Je possède un fichier (voir ci-joint). J'ai besoin d'ajouter une ligne entre chaque ligne remplie.
Sur cette nouvelle ligne j'ai besoin d'avoir une copie de certaines informations de la ligne précédente.
Un compte spécifique 706 sur la colonne A puis la date d'inscription puis le montant que j'ai dans coût_crédit l'avoir dans coût_débit (colonne P).
Puis d'avoir le nom de l'entreprise ou du particulier.

Merci pour votre aiguillage.
Vivi

 

[sylvanu]

Bonjour Vivi,
Une PJ avec ce que j'ai compris :

Sub InsererLignes()
    Application.ScreenUpdating = False
    For L = [B65500].End(xlUp).Row To 2 Step -1
        If Cells(L, "B") <> "" And Cells(L + 1, "A") = "" Then  ' Si B est vide la ligne a déjà été insérée
            Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(L + 1, "A") = 706
            Cells(L + 1, "G") = Cells(L, "G")
            Cells(L + 1, "P") = Cells(L, "Q")
        End If
    Next L
End Sub

 

[vivi21]

Bonjour Vivi,
Une PJ avec ce que j'ai compris :

Sub InsererLignes()
    Application.ScreenUpdating = False
    For L = [B65500].End(xlUp).Row To 2 Step -1
        If Cells(L, "B") <> "" And Cells(L + 1, "A") = "" Then  ' Si B est vide la ligne a déjà été insérée
            Rows(L + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Cells(L + 1, "A") = 706
            Cells(L + 1, "G") = Cells(L, "G")
            Cells(L + 1, "P") = Cells(L, "Q")
        End If
    Next L
End Sub

Bonjour Sylvanu,

Merci pour ton aide. J'ai regardé rapidement mais je pense que c'est bon. Tu m'enlèves une bonne épine du pied. Je vais refaire une petit test avec les données réelles.
Bonne fin de journée,
Vivi

 

[vivi21]

Bonjour Sylvanu,

Merci pour ton aide. J'ai regardé rapidement mais je pense que c'est bon. Tu m'enlèves une bonne épine du pied. Je vais refaire une petit test avec les données réelles.
Bonne fin de journée,
Vivi

Bonjour Sylvanu,

Si dans mon premier fichier je n'ai pas la colonne coût_debit.
Par conséquent, je souhaite l'ajouter avant la colonne cout_credit via la macro et insérer à l'intérieur le montant que j'ai dans ma colonne cout_credit.
Merci de ton aide.
Vivi21

 

[sylvanu]

Re,
Un essai en PJ en rajoutant :

    If Application.CountIf([1:1], "coût_credit") = 0 Then
        Columns("Q:Q").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        [Q1] = "coût_credit"
    End If
    DL = [B65500].End(xlUp).Row
    Range("Q2:Q" & DL).FormulaLocal = "=AV2*R2"