Insérer 2 lignes à chaque changement de valeur dans la colonne

[blord]

Bonjour à tous,

N'ayant pas trouvé, je fais appel à vos compétences pour m'aider...

Je charche à faire une macro qui insère 2 lignes à chaque fois que la valeur de la colonne C (Semaine) change...

Voici un fichier exemple avec un onglet avec les données de départ et un onglet avec les résultats attendus...

Important : Le chiffre "semaine" est obtenu à partir d'une formule et selon les dates de la colonne A, il peut varier de 1 à 53......

Merci à tous !

Blord

 

[ROGER2327]

Re : Insérer 2 lignes à chaque changement de valeur dans la colonne

Bonsoir

Essayez le code

Option Explicit

Sub saut_semaine()
Dim i As Long
Dim dat
    With Me
        dat = .Range(.Cells(1, 3), .Cells(.Cells(.Rows.Count, 3).End(xlUp).Row, 3)).Value
    End With
    For i = UBound(dat, 1) To 3 Step -1
        If dat(i, 1) <> dat(i - 1, 1) Then
            Rows(i).Insert Shift:=xlDown
            Rows(i).Insert Shift:=xlDown
        End If
    Next i
End Sub

ou le code

Sub saut_semaine()
Dim i As Long
Dim dat
    With Me
        dat = .Range(.Cells(1, 1), .Cells(Cells(.Rows.Count, 1).End(xlUp).Row, 1)).Value
    End With
    For i = UBound(dat, 1) To 2 Step -1
        If Weekday(dat(i, 1), 1) = 1 Then
            Rows(i).Insert Shift:=xlDown
            Rows(i).Insert Shift:=xlDown
        End If
    Next i
End Sub

en le plaçant dans le module de la feuille Départ.​

Bonne nuit !
ROGER2327

 

[blord]

Re : Insérer 2 lignes à chaque changement de valeur dans la colonne

Bonjour ROGER2327,

J'ai testé les 2 codes et tout fonctionne à merveille...

Merci beaucoup pour ce coup de main !

Bonne journée....

Blord