Microsoft 365 MACRO VBA Comptabiliser les cellules non colorisées d'une plage définie

chris6999 à dit:

Bonsoir le FORUM
Une bonne année à tous

Je suis face à un petit problème avec un code qui a pour but de calculer le nombre de cellules non colorisées (Interior.ColorIndex = -4142) d'une plage définie.
Ce nombre s'incrémente colonne C.

Si sur certaines lignes le nb remonté est correct sur d'autre en revanche cela ne correspond pas à la réalité.!!
Pour pouvoir faire des tests j'ai mis la valeur 1 dans les cellules non colorisées mais dans mon fichier réel les cellules sont vides.
Cela me permet de comparer col A le nb correct et de le comparer à ce que le code calcule colonne C.

Peut-être un œil avisé aura une idée du pourquoi des ces différences de valeur?
Si c'est le cas je prendrais vos conseils avec beaucoup d'intérêt.

Mon code ci-après + fichier test en PJ


Dercol = Cells(2, Cells.Columns.Count).End(xlToLeft).Column
derlig = Range("A" & Rows.Count).End(xlUp).Row
' i plage de la ligne 2 à 30
For i = 1 To derlig
nb = 0
'j plage de la colonne 4 à 65 (D à BM)
For j = 4 To Dercol
'comptabilise 0,5 pour chaque ligne de la plage si cellule sans couleur
If Cells(i, j).Interior.ColorIndex = -4142 Then nb = nb + 1
Next j
'Si dans la ligne valeur de la ligne 1 est non vide alors met le nombre trouvé dans la colonne 3 soit C
If Cells(i, 1) <> "" Then Cells(i, 3) = nb
Next i


Merci par avance de votre
Très bonne soirée à tous

Cliquez pour agrandir...

Dudu2 à dit:

Bonjour,
Tu as de cellules en fond blanc, par exemple en AJ7.

Voici la différence de propriétés de format entre fond blanc (à gauche) et pas de fond (à droite).

Regarde la pièce jointe 1051641

Edit: et pour les repérer...
Remplace:

VB:

        If Cells(i, j).Interior.ColorIndex = -4142 Then nb = nb + 1

Par: (ici pour tracker la ligne 7)

VB:

        If Cells(i, j).Interior.ColorIndex = -4142 Then
            nb = nb + 1
        Else
            If i = 7 Then
                ActiveSheet.Cells(i, j).Select
                MsgBox "Ligne = " & i & ", Colonne = " & j & ", ColorIndex = " & Cells(i, j).Interior.ColorIndex
            End If
        End If

Cliquez pour agrandir...

sylvanu à dit:

Bonsoir Chris,
Tout simplement certaines de vos cellules ne sont pas avec "aucun remplissage"
Ci dessous en rouge après avoir patiemment repris tous les fond des cellules blanches avec aucun remplissage, tout devient correct.
Regarde la pièce jointe 1051643
C'est ballot !

Je pense qu'il serait judicieux de mettre une légère couleur au lieu de transparent, car transparent et blanc c'est visuellement quasi la même chose.

Cliquez pour agrandir...