VBA nombre de cellules sans couleurs et non vide Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
d
doudou59800
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 2 juin 2017
Version d'Excel : 2010

Message par doudou59800 » 2 juin 2017, 19:54

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;
Cellule sans couleurs non vides.xlsx
(9.04 Kio) Téléchargé 126 fois
T
Totti
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 21 mars 2017
Version d'Excel : 2016 FR

Message par Totti » 2 juin 2017, 22:08

Salut,

if Cells(i, j).Interior.Color = RGB(255, 255, 255) and Cells(i,j) <> "" then
d
doudou59800
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 2 juin 2017
Version d'Excel : 2010

Message par doudou59800 » 2 juin 2017, 22:14

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 !!!
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'720
Appréciations reçues : 446
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 2 juin 2017, 22:54

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
Cellule sans couleurs non vides.xlsm
(15.46 Kio) Téléchargé 122 fois
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
d
doudou59800
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 2 juin 2017
Version d'Excel : 2010

Message par doudou59800 » 2 juin 2017, 22:57

Un énorme merci à vous !!!!!!
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message