compter cellules de couleurs Résolu

Question

Bonjour, 
Dans ma colonne C j'ai des cellules de couleur jaune sans MFC 'j'aimerais 
les compter.
Merci pour votre aide
Crdlt
Configuration: Windows / Firefox 51.0

Raymond PENTIER · Answer

Bonjour.
Faire Trier par couleur : le nombre de cellules (avec des données) remplies de cette couleur s'affiche dans la barre d'état.

jc80 · Answer

Bonjour
J'ai trouvé en vba comment les compter ,mais il me faut seulement compter
les cellules vides.
Si vous avez une solution je suis preneur.
Merci pour votre aide
Cordialement

eriiic · Answer

Bonjour,
fonction personnalisée avec 2 paramètres :
plage : plage à prendre en compte
couleur : cellule où récupérer la couleur à compter
Function cellCouleurVide(plage As Range, couleur As Range)
    Dim pl As Range, c As Range, coul As Long
    Application.Volatile
    Set pl = Intersect(plage, Application.Caller.Worksheet.UsedRange)
    If Not pl Is Nothing Then
        coul = couleur.Interior.ColorIndex
        For Each c In pl
            If c = "" And c.Interior.ColorIndex = coul Then cellCouleurVide = cellCouleurVide + 1
        Next c
    End If
End Function
Faire F9 pour rafraichir si les couleurs changent.
Si c'est pour qq milliers de lignes tu dis si c'est trop lent, on fera autrement.
Eviter d'avoir plusieurs classeurs d'ouverts, ça donne parfois des surprises avec les fonctions personnalisées.
eric
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

jc80 · Answer

Bonjour eric
Merci pour ta réponse
J'ai un souci n’étant pas trés fort en vba je n'arrive pas a mettre ton code 
en place afin qu'il fonctionne normalement.
Crdlt

Compter cellules de couleurs

4 réponses

Votre réponse

Discussions similaires