XL 2016 insérer une ligne en automatique

vivi21 · 25 Septembre 2023

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 · 25 Septembre 2023

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

VB:

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 · 25 Septembre 2023

sylvanu à dit:

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

VB:

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 · 28 Septembre 2023

vivi21 à dit:
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 · 28 Septembre 2023

Re,
Un essai en PJ en rajoutant :

VB:

    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"

XL 2016 insérer une ligne en automatique

vivi21

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

vivi21

XLDnaute Occasionnel

vivi21

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires