Saut de ligne automatique

Bonsoir tout le monde

Merci de mes lire et de bien vouloir m'aider.

J'ai recherché la solution dans la base de données du forum mais je n'ai pas trouvé la solution à mon problème.

Je souhaite qu'il y ait un saut de ligne quand dans une colonne une valeur change.`

Pour bien me faire comprendre je joins un fichier.

Merci encore de m'aider

Bonsoir,

J'imagine qu'il n'y a pas que cette colonne dans ton classeur, et du coup je doute que le problème soit exposé entièrement dans ton message... Avant de commencer à développer une macro qui fait l'opération souhaitée, je te suggère d'aller voir dans Données/Sous-total... On ne sait jamais, ça pourrait peut-être correspondre à ton besoin...

Cordialement, Daniel

Bonsoir, Salut Dan42153,

Essaye comme ça :

Sub insererLigne()
    For i = Feuil1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Feuil1.Range("A" & i - 1).Value <> Feuil1.Range("A" & i).Value Then
            Rows(i).Insert
        End If
    Next i
End Sub

Bonjour,

Je tiens à vous remercier tous les deux ainsi que tous les autres qui se sont penchés sur mon problème.

En effet vous m'avez donné deux bonnes pistes et ... cela marche.

Vraiment je suis très content et je vous remercie encore vivement.

Je vous souhaite une bonne journée et une bonne semaine

Merci