XL 2010 incrémenter la cellule B19 lorsqu'une date d'une autre cellule arrive au jour J

[Tom pouce]

Bonjour, suivant le fichier joint avec le mdp virema, je désire incrémenter la cellule B19 de 1 à chaque fois qu'une cellule avec une date automatique change de couleur à la date du 20 de chaque mois (cellules CT8, CV8,CX8.......)
Auriez-vous une idée car je trouve pas de tuto pour mon exemple

Merci

 

[Phil69970]

Bonjour @Tom pouce

Je ne suis pas sur que l'on peut récupérer une couleur issu d'une MFC sans développer une usine à gaz

Voir ici un début de piste

VBA recupéré couleur mise en forme conditionnelle

Bonjour, Je cherche à recupérer sous VBA le numéro ou le nom de la couleur de cellules apres mise en forme conditionnel de ces cellules. Merci d avance ! Ci joint un fichier d exemple

www.excel-downloads.com

@Phil69970

 

[job75]

Bonjour Tom pouce, Phil69970,

La macro dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Calculate()
Application.EnableEvents = False 'désactive les évènements
On Error Resume Next 'si aucune SpecialCell
[B19] = 0
[B19] = Rows(8).SpecialCells(xlCellTypeFormulas, 1).Count
Application.EnableEvents = True 'réactive les évènements
End Sub

Pas besoin d'analyser les couleurs.

A+

 

[Tom pouce]

Bonsoir,

Tous mes voeux pour cette nouvelle année et un grand merci pour le code qui est formidable.

Bonne soirée