Comment activer macro à une date indiqué dans une cellule

Salut le forum et plus partuclièrement Muriel,

A priori ce que tu souhaites C faire une boucle qui te permettra de tester toutes les feuilles de ton classeur
Bien entendu tu réadapteras à ta façon!!


Dim FEUILLE As Worksheet

For Each FEUILLE In Worksheets 'Boucel sur chaque feuille du classeur

If IsDate(FEUILLE.Range("K11")) And FEUILLE.Range("K11") < Date Then
Message = Message & FEUILLE.Range("A1") & " "
End If

If Message <> "" Then '<>
MsgBox "La ou les fiches suivantes ont des dates dépassées " & vbCrLf & Message
End If


Et oila maintenant je retourne bosser
@ bientôt
Valérie

salut valérie et à tout les autres,

je suis désolée pour cette réponse tardive mais j'ai un peu ramé avec ta formule je l'avoue, et j'ai pas voulu te prendre la tete avec des details de debutant alors j'ai cherché dans tout le forum pour trouver des reponses à mes questions de debutante et ça marche, c'est super sympa de ta part valérie, merci beaucoup et à bientot pour d'autres problemes,

@+ muriel

Merci Muriel de ton petit message,

Heureuse de voir que cela fonctionne, n'hésite pas si tu as encore besoin de nous...

@ très bientôt
Valérie