Compter cellules d'une même couleur

[Arcangeli]

Bonjour le forum.
J'ai trouvé une VBA sur un autre forum, mais je n'arrive pas à l'automatiser. Voir les explications sur la pièce jointe.
Déjà merci pour votre aide.
J'envoye ce post et quitte le bureau.Je reviens vers 13h30 en souhaitant que quelquun plus futé que moi aye trouvé la solution.

 

[Robert]

Re : Compter cellules d'une même couleur

Bonjnour Arcangeli, bonjour le forum,

Le problème c'est que le fait de colorer une cellule n'est pas considéré comme un événement par VBA et donc le recalcul automatique ne se fait pas. Il faut que tu le force avec la touche F9 pour voir les sommes se modifier.

 

[kjin]

Re : Compter cellules d'une même couleur

Bonjour, Ohé DuoDuMont,
Et les cellules sont colorées par...hasard ?
A+
kjin

 

[Arcangeli]

Re : Compter cellules d'une même couleur

Bonjnour Arcangeli, bonjour le forum,

Le problème c'est que le fait de colorer une cellule n'est pas considéré comme un événement par VBA et donc le recalcul automatique ne se fait pas. Il faut que tu le force avec la touche F9 pour voir les sommes se modifier.

Merci Robert,
Je ne connaissait pas ce moyen de forcer le calcul.
En tout cas c'a me rend bien service
Bonne journée

 

[Arcangeli]

Re : Compter cellules d'une même couleur

Bonjour Kjin,
Merci de t'être penché sur mon problème. Non les cellules ne sont pas colorée par hazard, mais correspondent à des évennements précis d'ont chacun à une couleur respective.
Mais le truc de robert est très bien aussi s'il n'y a pas d'autre moyen.
Meilleurs messages

 

[kjin]

Re : Compter cellules d'une même couleur

Re, salut Robert

...Non les cellules ne sont pas colorée par hazard, mais correspondent à des évennements précis d'ont chacun à une couleur respective...

C'est bien ce que je disais (enfin j'essayais avec mon humour à la noix )
Donc ne serait-il point possible de faire fonctionner tout ça ensemble ?
A+
kjin

 

[BOISGONTIER]

Re : Compter cellules d'une même couleur

Bonjour,

-Utiliser le pinceau

ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

JB

 

[Arcangeli]

Re : Compter cellules d'une même couleur

Bonjour,

-Utiliser le pinceau

ou

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End Sub

JB

C'est super comme d'habitude Maitre Boisgontier. Merci à vous tous