Ignorer une ligne par rapport à sa couleure

Bonjour,

J'essaye de completer une macro pour rajoutter des lignes. Le soucis que je rencontre c'est que j'ai besoin d'inserer dedans des lignes de code pour que quand la couleur de la ligne est verte ou bien jaune elle n'applique pas la macro dessus et parsuite l'ignore.

https://www.cjoint.com/c/CCApdLIta1v ce lien est un extrait de mon fichier pour tester le code dessus.

Voilà le code que j'utilise pour rajoutter des lignes:

Sub Insertions()

Dim lig As Long

Range("A4").Select

Reprise:

ActiveCell.Offset(1, 0).Select

If Len(ActiveCell) = 0 Then Exit Sub

If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then

ActiveCell.Rows("1:1").EntireRow.Insert Shift:=xlDown

ActiveCell.Offset(1, 0).Select

End If

GoTo Reprise

End Sub

Aidez moi SVP

Bonjour,

Une solution à tester

Sub Insertions()
Dim DerLig As Long, L As Long
    With Worksheets("Feuil1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        For L = DerLig To 5 Step -1
            If .Range("A" & L) <> .Range("A" & L).Offset(-1, 0) And _
            .Range("A" & L).Interior.ColorIndex <> 6 And _
            .Range("A" & L).Interior.ColorIndex <> 43 _
            Then
                .Range("A" & L).EntireRow.Insert Shift:=xlDown
                .Range("A" & L).EntireRow.Interior.ColorIndex = -4142
            End If
        Next L
    End With
End Sub

A+

Merci beaucoup ta solution elle marche!

Mais j'ai juste au dernière question pourquoi arrivé à quelques lignes qui n'ont pas de couleurs ça n'insère plus des lignes ?

( ça le fait que pour quelques lignes et je voulais comprendre s'il y a un beugue )

Merci encore

Salut encore,

Enfaite ce que j'ai remarqué un truc particulier dans ces lignes c'est qu'ils sont quasi identique !

Alors comment soulever ce nouveau défit ?

Merci de ton aide

pourquoi arrivé à quelques lignes qui n'ont pas de couleurs ça n'insère plus des lignes ?

Je n'ai pas constaté cela dans le fichier que tu as transmis.

Avec un fichier exemple ce serait sûrement plus clair.

A+

salut

Voilà le fichier sur lequel j'ai appliqué ta macro. En déscendant vers les lignes 170 et plus bas tu remarqueras cet étrange phénomène dont je t'ai parlé

Merci encore de ton aide

Je ne vois pas de dysfonctionnement.

Ta macro insère une ligne si ces 3 conditions sont vérifiées :

• la ligne n'est pas verte
• la ligne n'est pas jaune
• en colonne A, la cellule précédente n'a pas la même valeur.

Entre les lignes 170 à 172, il n'y a pas d'insertion parce que les valeurs de la colonne A sont identiques (TRAVERSE)

A+

Re bonjour,

Il faut dans ce cas que je zappe la troisième condition puisqu'elle ne me sers à rien !

Merci encore de ton aide

Bonne journée

Voila ! voila !

Sub Insertions()
Dim DerLig As Long, L As Long
    With Worksheets("Feuil1")
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        For L = DerLig To 5 Step -1
            If .Range("A" & L).Interior.ColorIndex <> 6 And _
            .Range("A" & L).Interior.ColorIndex <> 43 _
            Then
                .Range("A" & L).EntireRow.Insert Shift:=xlDown
                .Range("A" & L).EntireRow.Interior.ColorIndex = -4142
            End If
        Next L
    End With
End Sub

A+