A voir également:
- Compter cellules de couleurs
- Excel compter cellule texte couleur ✓ - Forum - Excel
- NB.SI critère couleur ✓ - Forum - Excel
- EXCEL: Compter ou additionner les cellules colorisées manuellement - Conseils pratiques - Excel
- Compter cellules selon couleur, macro à optimiser ✓ - Forum - VB / VBA
- Compter cellules de couleurs ✓ - Forum - Bureautique
4 réponses
eriiic
- Messages postés
- 23814
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 25 janvier 2021
Bonjour,
fonction personnalisée avec 2 paramètres :
plage : plage à prendre en compte
couleur : cellule où récupérer la couleur à compter
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
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
Raymond PENTIER
- Messages postés
- 53146
- Date d'inscription
- lundi 13 août 2007
- Statut
- Contributeur
- Dernière intervention
- 24 janvier 2021
Bonjour.
Faire Trier par couleur : le nombre de cellules (avec des données) remplies de cette couleur s'affiche dans la barre d'état.
Faire Trier par couleur : le nombre de cellules (avec des données) remplies de cette couleur s'affiche dans la barre d'état.
jc80
- Messages postés
- 4148
- Date d'inscription
- mardi 5 février 2013
- Statut
- Membre
- Dernière intervention
- 25 février 2019
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
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
jc80
- Messages postés
- 4148
- Date d'inscription
- mardi 5 février 2013
- Statut
- Membre
- Dernière intervention
- 25 février 2019
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
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
- 23814
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 25 janvier 2021
Bonjour,
il faut le mettre dans un module standard.
Ensuite appeler la fonction dans une cellule :
E1 étant de la couleur à comptabiliser.
eric
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
- 4148
- Date d'inscription
- mardi 5 février 2013
- Statut
- Membre
- Dernière intervention
- 25 février 2019
- 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
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
- 23814
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 25 janvier 2021
une possibilité parmis d'autres :
eric
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
