compter les cellules coloriées dans tous les onglets d'un classeur

Staple1600 à dit:

Bonjour à tous

2b7a
Regardes en bas de la page dans Discussions similaires
Tu devrais trouver cinq exemples de discussion dans lesquelles tu devrais assurément trouver de quoi t'inspirer 😉

Cliquez pour agrandir...

Staple1600 à dit:

Re

Si Vba ne t'es pas encore familier, alors on peut pencher vers l'emploi de formule
(comme tu as dit précédemment que tu peux mettre un 1 dans les cellules bleues)
La formule ci-dessous semble faire l'affaire (à condition que les noms de tes feuilles sont de type:
Feuil1, Feuil2, Feuil3 etc..
Ic j'ai testé avec un classseur contenant 4 feuilles
A mettre en cellule C9 de la feuille RECAP, puis recopie vers le bas.

Code:

=SOMMEPROD((NB.SI(INDIRECT("Feuil"&LIGNE($1:$4)&"!D"&LIGNE());1))*1)

Cliquez pour agrandir...

Staple1600 à dit:

Re

Avec les noms Feuil1,Feuil2, c'était pourtant bien pratique 😉
(voir ci-dessous)
Regarde la pièce jointe 276588

S'il n'y a pas d’incrémentation numérique des noms des feuilles, il va falloir relorgner du côté de VBA...
Question: Combien de feuilles peut contenir ton classeur?

Cliquez pour agrandir...

Staple1600 à dit:

Re


Essaies cette macro sur un classeur avec des noms différents de Feuil1, Feuil2 etc
mais avec une feuille nommée RECAP
EDITION: Il faut que tes cellules colorées contiennent 1 (ou tout autre valeur)
et surtout que les autres cellules de la plage [noparse]D9😀18[/noparse] sur les feuilles soient vides

Code:

Sub comptecouleurs()
Dim sf, df, Feuilles, Formule$
df = Worksheets.Count
sf = Sheets(Sheets("RECAP").Index + 1).Name
Feuilles = sf & ":" & Sheets(df).Name
Formule = "=COUNTA(" & Feuilles & "!RC[1])"
Sheets("RECAP").Range("C9:C18").FormulaR1C1 = Formule
End Sub

Cela semble fonctionner ici 😉

Cliquez pour agrandir...

Staple1600 à dit:

Re


Essaies cette macro sur un classeur avec des noms différents de Feuil1, Feuil2 etc
mais avec une feuille nommée RECAP
EDITION: Il faut que tes cellules colorées contiennent 1 (ou tout autre valeur)
et surtout que les autres cellules de la plage [noparse]D9😀18[/noparse] sur les feuilles soient vides

Code:

Sub comptecouleurs()
Dim sf, df, Feuilles, Formule$
df = Worksheets.Count
sf = Sheets(Sheets("RECAP").Index + 1).Name
Feuilles = sf & ":" & Sheets(df).Name
Formule = "=COUNTA(" & Feuilles & "!RC[1])"
Sheets("RECAP").Range("C9:C18").FormulaR1C1 = Formule
End Sub

Cela semble fonctionner ici 😉

Cliquez pour agrandir...

Staple1600 à dit:

Re


Sans voir ton fichier, sur lequel tu fais tes tests, difficile d'en dire plus 😉
Joins une copie de ton fichier dans ta discussion.

Cliquez pour agrandir...