Macro événementielle à une date

Victor21

XLDnaute Barbatruc

Supporter XLD

• 13 Décembre 2011

• #2

Re : Macro événementielle à une date

Bonjour.

Vous n'en dites pas assez :

qui doit se déclencher à une date choisie

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

T

thri

XLDnaute Junior

• 13 Décembre 2011

• #3

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

 

Vote positif 0 Vote négatif

T

thri

XLDnaute Junior

• 13 Décembre 2011

• #4

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

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Décembre 2011

• #5

Re : Macro événementielle à une date

Bonsoir à tous,

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

VB:

Private Sub Worksheet_Activate()
    Call Macro1
End Sub

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

VB:

Private Sub Workbook_Open()
    Call Macro1
End Sub

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

A+

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2011

• #6

Re : Macro événementielle à une date

Bonjour, le Fil, le Forum,

Peut-être ainsi :

Code:

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

A bientôt 🙂

 

Pièces jointes

• 00 - thri - EvenDate.xls

  44.5 KB · Affichages: 54

Vote positif 0 Vote négatif

T

thri

XLDnaute Junior

• 14 Décembre 2011

• #7

Re : Macro événementielle à une date

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 14 Décembre 2011

• #8

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 🙄...

Code:

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 🙂

 

Vote positif 0 Vote négatif

T

thri

XLDnaute Junior

• 14 Décembre 2011

• #9

Re : Macro événementielle à une date

Encore mieux, encore un grand merci.

 

Vote positif 0 Vote négatif