Copier et ajouter une ligne en vba

bonjour,

il serait préférable que tu fournisses un fichier exemple avec une feuille "avant" et une feuille "après".

Bonjour,

Désolé mais je ne sais pas comment faire pour insérer un fichier.

J'ai ces données dans les colonnes A,B,C:          Je voudrais obtenir:

A            B       C                                                    A           B          C

2023    2024    A                                                2023     2023         A

2023    2023    B                                                2024    2024         A

2024    2024    C                                               2023      2023        B

                                                                          2024      2024        C

Lorsque j'ai une ligne avec 2 années différentes je la duplique et je change les années sur chaque lignes comme pour le client A par exemple.

C'est super génial, merci beaucoup.

Bonjour,

J'ai voulu faire un essai en mettant 20231201 dans la colonne A et 20241205 dans la colonne B et faire la comparaison sur les 4 premier chiffres.

J'ai modifier la macro initiale comme ci-dessous mais la ligne de comparaison ne fonctionne pas, le reste est ok:

Sub test()
Dim fl As Worksheet
Set fl = ActiveSheet
ligne = 1
Do While fl.Cells(ligne, 1) <> ""
     If Cells(Left(ligne, 1), 4) <> Cells(Left(ligne, 2), 4) Then
        fl.Cells(ligne, 1).EntireRow.Insert
        fl.Rows(ligne + 1).Copy fl.Rows(ligne)
        fl.Cells(ligne, 1) = 20241001
        fl.Cells(ligne + 1, 2) = 20231231
        ligne = ligne + 1
    End If
    ligne = ligne + 1
Loop
End Sub

Pouvez-vous me dire ce qui ne va pas svp?

C'est parfait, merci beaucoup pour votre aide.