Insertion automatique de lignes vierges sous condition

Bonjour à vous tous, et d'abord merci de me lire.

J'ai essayé de trouver un post similaire au mien, mais sans succès..

J'ai un tableau avec différentes données, et sur une colonne définie (C), des valeurs qui se répètent, ligne après ligne, puis changent (pour une nouvelle série). Je souhaiterais insérer automatiquement 5 lignes vierges après chaque changement de valeur dans la colonne C...

Pouvez-vous m'aider ?

Merci d'avance...

Bonsoir,

Oui, on peut t'aider, envoie le début de ta feuille (en-têtes et quelques lignes)

pour régler la macro

Amicalement

Claude.

Voici le lien vers une partie du fichier :

https://www.excel-pratique.com/~files/doc2/Kirikou.xls

Merci par avance....

re,

essaye déjà ce code, édit: ligne modifiée

dis-moi si j'ai bien compris ?

Sub InsertLignes()
''Macros par Claude Dubois pour "Kirikou" Excel-Pratique le 17 Nov 09
Dim Lg As Long, i As Long
    Lg = Range("A65536").End(xlUp).Row
    Application.CutCopyMode = False
        For i = Lg To 2 Step -1
            If Range("c" & i - 1) <> Range("c" & i) Then
                Range(Range("c" & i), Range("c" & i + 4)).EntireRow.Insert
            End If
        Next i
    Range(Range("c2"), Range("c2").End(xlDown).Offset(-1, 0)).EntireRow.Delete
End Sub

Amicalement

Claude.

Merci, Claude,

C'est exactement ça....

Ne t'inquiète pas pour les premières lignes, je peux quand même les enlever à la main....

Encore merci !!!

Amicalement aussi..

David (Kirikou)

re,

Ok, ajoute la dernière ligne de code que je viens d'éditer

n'oublie pas la petite formalité,

en bas à gauche en étant connecté

à+... Claude.

Merci à toi encore !!!

Bonjour à tous,

J'essaye d’effectuer une macro en regardant les différents post mais je coince...

J'ai une base de données et j'aimerai insérer une ligne dès que la catégorie de personnel change, insérer une ligne dès que la nature du contrat change et insérer une ligne dès que le motif de CDD change.

J'aimerai faire cela pour tout le classeur.

Voici le début de la macro :

Sub InsertLignes()

ActiveWorkbook.Worksheets("Jardins Brunehaut").Sort.SortFields.Clear

ActiveWorkbook.Worksheets("Jardins Brunehaut").Sort.SortFields.Add Key:=Range("E2:E222"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Jardins Brunehaut").Sort.SortFields.Add Key:=Range("F2:F222"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

ActiveWorkbook.Worksheets("Jardins Brunehaut").Sort.SortFields.Add Key:=Range("G2:G222"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("Jardins Brunehaut").Sort

.SetRange Range("A1:T222")

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

Dim Lg As Long, i As Long

Lg = Range("A65536").End(xlUp).Row

Application.CutCopyMode = False

For i = Lg To 2 Step -1

If Range("e1" & i - 1) <> Range("e1" & i) Then

Range(Range("e1" & i), Range("e1" & i + 1)).EntireRow.Insert

End If

Next i

end sub

Merci d'avance,