Macro événementielle à une date

[thri]

Bonsoir,
Je coince sur une macro événementielle qui doit se déclencher à une date choisie,
Le fichier joint est plus explicite
J’ai regardé dans l’historique, je n’ai pas trouvé mon bonheur
Un grand merci
Thri

 

[Victor21]

Re : Macro événementielle à une date

Bonjour.

Vous n'en dites pas assez :

qui doit se déclencher à une date choisie

d'accord, mais lors de quel événement ? Ouverture du fichier, modification d'une plage, activation d'une feuille ...
Regardez l'aide sur la procédure événementielle correspondant à l'événement qui déclenchera la macro.

 

[thri]

Re : Macro événementielle à une date

Bonsoir Victor21
C'est dans la cellule A3 que je saisis à quelle date la macro doit s'exécuter.
Merci de vous pencher sur mon problème

 

[thri]

Re : Macro événementielle à une date

Re
En activant la feuille si c'était possible, j'ai fait des essais ça fonctionne par saisie de date en valeur mais je n'arrive pas quand ce sont des formules qui gèrent les dates.......via VBA

 

[Fred0o]

Re : Macro événementielle à une date

Bonsoir à tous,

Ceci s'exécutera lorsque tu activears la Feuil1 :

Private Sub Worksheet_Activate()
    Call Macro1
End Sub

Cela s'exécutera à l'ouverture du fichier :

Private Sub Workbook_Open()
    Call Macro1
End Sub

Bien sûr, si les dates de A3 et C3 sont identiques.

A+

 

[DoubleZero]

Re : Macro événementielle à une date

Bonjour, le Fil, le Forum,

Peut-être ainsi :

Private Sub Worksheet_Activate()
[c3] = Date
If [a3] = [c3] Then Call Macro1
End Sub

A bientôt

 

[thri]

Re : Macro événementielle à une date

Bonjour,
Un grand merci à vous deux, c'est parfait et d'une simplicité .....

 

[DoubleZero]

Re : Macro événementielle à une date

Re-bonjour,

Il faut ajouter une condition afin que la plage ne soit plus colorée en cas de non-concordance de dates ...

Private Sub Worksheet_Activate()
[c3] = Date
If [a3] = [c3] Then Call Macro1
If [a3] <> [c3] Then
With Range("D7:H17")
  .Interior.ColorIndex = xlNone
End With
End If
End Sub

A bientôt

 

[thri]

Re : Macro événementielle à une date

Encore mieux, encore un grand merci.