VBA nombre de cellules sans couleurs et non vide

Bonjour à tous,

Je cherche à calculer le nombre de cellule dont le format est "aucun remplissage" et "non vide".

J'ai trouvé le module "NbColorAndTextSameAs" mais celui-ci ne fonctionne que avec les cellules colorées.

Je vous mets un extrait de mon très grand fichier (planning annuel) pour mieux comprendre.

Merci d'avance;

Salut,

if Cells(i, j).Interior.Color = RGB(255, 255, 255) and Cells(i,j) <> "" then

Bonjour Totti,

Merci pour ta réponse mais je ne suis vraiment pas un expert en Excel et jai donc du mal à comprendre ta reponse.

Aurait-tu la possibilité de l'intégrer à mon fichier pour que je visualise mieux.

Merci d'avance, cela me sauverait de nombreuses heures de boulot !!!

Bonjour,

avec une fonction personnalisée :

Function textSansCouleur(plage As Range) As Long
    Dim c As Range
    Application.Volatile
    For Each c In plage
        If c.Value2 <> "" Then textSansCouleur = textSansCouleur - (c.Interior.ColorIndex = xlNone)
    Next c
End Function

Ex sur la feuille :

=textSansCouleur(D6:K12)

Un changement de couleur n'est pas un événement détectable par excel.

Si changement faire F9 pour mettre à jour le résultat. Une validation de cellule (ou saisie) met également à jour.

Je détecte les réellement sans couleur, blanc est une couleur.

eric

Un énorme merci à vous !!!!!!

Rechercher des sujets similaires à "vba nombre couleurs vide"