Problème Diagramme avec une ligne blanche et noir

Bonjour,

Je fais ce poste car aujourd'hui je rencontre un problème.

J'ai un diagramme que je remplis via un userform (texte puis cellules qui sont remplies en rouge) et pour plus de visibilité, j'aimerais avoir un intervalle de ligne blanche et noir.

Je n'arrive pas à dire à ma fonction de ne pas colorer les cellules rouges et surtout de descendre lorsqu'il arrive au bout de la ligne (colonne ABW) pour traiter la ligne suivante et enfin de s'arrêter lorsqu'il n'y a plus de valeur dans la première colonne(mes 5 premières colonnes de chaque ligne contiennent du texte).

Merci d'avance pour votre aide.

Bout de code que j'essaie de créer:

While Not Cells(i, j) = ""

While Not Range.ActiveCell = Range("i, 744")
If ActiveCell.Interior.ColorIndex = -4142 Then
ActiveCell.Interior.ColorIndex = 15
Cells(i, j + 1).Select
ElseIf ActiveCell.EntireRow.Interior.ColorIndex = 11 Then
Cells(i, j + 1).Select
ElseIf ActiveCell.Interior.ColorIndex = 15 Then
ActiveCell.Interior.ColorIndex = -4142
Cells(i, j + 1).Select
ElseIf ActiveCell.Interior.ColorIndex = 34 Then
Cells(i, j + 1).Select
End If
Wend
Cells(i + 1, j - j + 1).Select

Wend

PS: je ne peut pas ajouter de fichier joint car il y a énormément de nom et numéro de téléphone privée mais je joint un exemple du diagramme.

bonjour,

une proposition

Sub aargh()
    With Feuil1
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        dc = .Cells(1, Columns.Count).End(xlToLeft).Column
        For i = 2 To dl Step 2
            For j = 1 To dc
                If .Cells(i, j).DisplayFormat.Interior.Color <> vbRed Then
                    .Cells(i, j).Interior.Color = RGB(200, 200, 200)
                End If
            Next j
        Next i
    End With
End Sub

Bonjour,

Merci pour votre réponse.

Le code colore seulement la première cellule des lignes avec un intervalle mais en noir.

Peut-être que je l'ai mal ajouté à mon code.

Merci.

re-bonjour,

c'est que ton fichier exemple n'a pas la même structure que ton fichier réel.

le nombre de colonnes à colorier est déterminé par cette instruction

dc = .Cells(1, Columns.Count).End(xlToLeft).Column

cette instruction se base sur la ligne 1 pour déterminer la dernière colonne non vide.

soit tu connais le nombre de colonnes et tu peux mettre dc=14 (si 14 colonnes)

soit tu adaptes cette instruction en remplaçant le 1 (pour ligne 1) par un numéro de ligne qui permet de déterminer la dernière colonne qui te convient.

Merci beaucoup!!!

Problème résolus. J'ai mis dc= (nombre de colonne) et ça fonctionne.

Bon courage à vous!