Compter cellules de couleurs [Résolu/Fermé]

Signaler
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
-
Bonjour,

Dans ma colonne C j'ai des cellules de couleur jaune sans MFC 'j'aimerais
les compter.
Merci pour votre aide
Crdlt


4 réponses

Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021
6 593
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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
53146
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 janvier 2021
15 131
Bonjour.

Faire Trier par couleur : le nombre de cellules (avec des données) remplies de cette couleur s'affiche dans la barre d'état.
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 350
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
Messages postés
53146
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
24 janvier 2021
15 131
Non : je ne sais pas compter des cellules d'une certaine couleur mais non renseignées ...
Normalement tu devrais y arriver en continuant ta macro.
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 350
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
Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021
6 593
Bonjour,

il faut le mettre dans un module standard.
Ensuite appeler la fonction dans une cellule :
=cellCouleurVide(C2:C10;E1)

E1 étant de la couleur à comptabiliser.
eric
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 350 >
Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021

Merci beaucoup pour les indications
Fonctionne super
autre renseignement si tu peux
comment mettre le mot "Merci" de C6 à DA6 sur 250 lignes mais une colonne sur 2
exemple : C6:E6 G6
Cordialement
Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021
6 593
une possibilité parmis d'autres :
    Dim pl As Range, col As Long
    Set pl = [C6].Resize(250)
    For col = 3 To 105 Step 2
        Set pl = Union(pl, Cells(6, col).Resize(250))
    Next col
    pl.Value = "Merci"

eric
Messages postés
4148
Date d'inscription
mardi 5 février 2013
Statut
Membre
Dernière intervention
25 février 2019
1 350 >
Messages postés
23814
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 janvier 2021

Bonjour eric

Merci superbe
.Cordialement