Insertion d'une ligne avec copie de celle au dessus

Bonjour,

Je ne suis pas très bonne en VBA et j'ai beau avoir essayé de consulter des articles je n'ai pas trouvé comment résoudre mon problème.

J'ai un fichier sortant d'un logiciel pour lequel il faudrait que je fasse un retraitement en plusieurs étapes.

- pour les lignes dont le chiffre commence par 6 dans la colonne C, j'aurai souhaité qu'il y ait une copie de la ligne qui soit insérée en dessous de la ligne d'origine

- que pour les lignes qui étaient présentes initialement dans le fichier, il y ait indiqué dans une nouvelle colonne donc le K la lettre G et pour les lignes créées la lettre A

Après je ne sais pas s'il y a un sens à respecter pour que les deux étapes marchent

Est-ce que quelqu'un saurait m'aider ?

Merci d'avance.

Bonjour,

Voici le code à mettre dans un module. Après vérification cela fonctionne parfaitement.

Sub CopierLignes()
    Dim i As Long
    Dim DerLigne As Long

    DerLigne = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    i = DerLigne
    While i >= 2
        If Left(ActiveSheet.Cells(i, "C").Value, 1) = "6" Then
            If ActiveSheet.Cells(i, "K").Value <> "G" Then
                ActiveSheet.Rows(i).Copy
                ActiveSheet.Rows(i + 1).Insert Shift:=xlDown
                ActiveSheet.Cells(i + 1, "K").Value = "A"
            End If
        End If
        i = i - 1
    Wend

Application.CutCopyMode = False
End Sub

Bonjour,

Je suis désolée pour le délai mais j'ai été un peu submergée par le travail. Je viens juste de tester la solution que vous m'avez donné.

La macro permet bien :

- de dupliquer commençant par un 6

- de lui affecter la lettre A dans la colonne K

- Mais pour les lignes présentes initialement dans le fichier la lettre G ne se met pas dans la colonne K pourtant j'ai bien l'impression qu'il y a un bout de la macro prévu pour ça

Mais l'import dans mon logiciel a quand même marché malgré que la lettre G ne soit pas présente. Merci

Bonsoir à tous !

Une approche via Power Query (nativement intégré dans Excel depuis 2016)

Un tableau structuré (tSource) a été inséré pour être ensuite chargé et retraité dans Power Query.