Discussion :

[subzero25]

Bonjour mon probleme est le suivant je voudrais parcourir une colonne jusqu'a qu'elle change de couleur et insérer une ligne quand cela se produit mais je ne sais pas comment m'y prendre .

J'ai deja fait la meme chose simplement en parcourant une colonne jusqu'a obtenir une à 0, mais pour mon soucis je bloque.

Voici pour le changement de couleur des cellules.

[Wololol]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1).Interior.Color <> Cells(i + 1, 1).Interior.Color Then
        Rows(i + 1).Insert
        i = i + 1
    End If
Next

Tu n'as plus qu'a adapter (ici il insert la ligne en dessous et la ligne insérer à la même couleur que la ligne précédente)

Bonne journée

[subzero25]

Ducoup j'avais déjà trouver mais merci quand meme.

Voici ma solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Der = ActiveSheet.Cells(Rows.count, "A").End(xlUp).Row
 
For i = 2 To Der
    If Range("A" & i).Interior.ColorIndex = 46 Then
        Rows(i).Insert
        Exit For
    End If
Next