Compter cellules de couleurs

Résolu/Fermé

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 1 mars 2017 à 21:57
jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 4 mars 2017 à 10:01

Bonjour,

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

A voir également:

Compter cellules de couleurs
Formule excel pour additionner plusieurs cellules - Guide
Excel compter les cellules de couleur - Guide
Verrouiller cellules excel - Guide
Concatener deux cellules excel - Guide
Impossible de récupérer mon compte gmail - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 237
Modifié par eriiic le 2/03/2017 à 18:12

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

Réponse 2 / 4

Raymond PENTIER Messages postés 58707 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 octobre 2024 17 221
2 mars 2017 à 02:18

Bonjour.

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

Réponse 3 / 4

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
2 mars 2017 à 12:06

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

Raymond PENTIER Messages postés 58707 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 octobre 2024 17 221
2 mars 2017 à 16:49

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.

Réponse 4 / 4

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424
3 mars 2017 à 10:55

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

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 237
3 mars 2017 à 11:04

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

jc80 Messages postés 4242 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 424 > eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024
3 mars 2017 à 12:03

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

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 237
3 mars 2017 à 12:38

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

Bonjour eric

Merci superbe
.Cordialement

Discussions similaires

rétablir les couleurs d'origine

remettre les couleurs d'origine de l'écran

Comment supprimer un compte Facebook sans email ni mot de passe ?

Impossible fusionner cellules