Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro évènement par rapport à une date

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chinel
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

chinel

XLDnaute Impliqué
Salut tout le monde !


je me suis mal exprimé sur ma demande précédente

j'ai une feuille qui se nomme "sauvegarde planning"
dans la cellule "M2" j'ai mis la date en automatique (fonction <aujourd'hui>)
je voudrais que quand la date arrive à un mardi (par exemple : mardi 4 novembre 2008)
une macro se déclenche et me demande si il y a une "réunion ou pas " si dans le cas je réponds "oui" la phrase "réunion se mardi" se met dans la cellule B42 et imprime la feuille "Présences"
mais dans le ou je réponds "non" rien ne se passe

j'espère que je suis plus explicite

Merci d'avance !
 
Trier par date Trier par votes
Re : macro évènement par rapport à une date

Salut Chinel, Le Forum

Voilà ce que j'ai Compris

- Date du Jour en M2 de la feuille sauvegarde planning
- A l'ouverture du Fichier Si Aujourd'hui tombe un Mardi MsgBox demandant si il y a réunion
- Si OUI "Réunion ce Mardi" en B42 de la même Feuille et Impression de la Feuille Présences
- Si NON Rien ne se passe

Dans le ThisWorkBook

Code: 
Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
        Sheets("Présences").PrintPreview
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub
J'ai remplacer l'impression par un aperçu de l'impression aremplacer
A savoir si j'ai bien Compris

Bonne Journée
 

Pièces jointes

Vote positif 0 Vote négatif
Re : macro évènement par rapport à une date

Salut Chinel, le Forum

Remplace les lignes de codes ci-dessus par celles-ci

Code: 
Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
[B]        With Sheets("Présences")
            .Visible = xlSheetVisible
            .PrintPreview
            .Visible = xlSheetHidden [/B]'[COLOR=Green] ou .Visible = xlSheetVeryHidden[/COLOR][B]
       End With[/B]
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub
Bonne Journée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : macro évènement par rapport à une date

Re chinel, le Forum

As-tud'autrescontraintes?...disletoutdesuite...😀

Ton code modifié

Code: 
Private Sub Workbook_Open()
Dim MaDate, MonJour
Dim Msg, Style, Title, Réponse
MaDate = Sheets("Sauvegarde Planning").Range("M2").Value
MonJour = Weekday(MaDate)
If MonJour = 3 Then
Style = vbYesNo + vbInformation + vbDefaultButton1
    Title = "Réunion "
    Msg = " Réunion ce Mardi?  " & "     "
    Réponse = MsgBox(Msg, Style, Title)
    If Réponse = vbYes Then
        Sheets("Sauvegarde Planning").Range("B42").Value = "Réunion ce Mardi"
        With Sheets("Présences")
            .Visible = xlSheetVisible
[B]            .PageSetup.PrintArea = "$A$1:$H$36"[/B]
            .PrintPreview
            .Visible = xlSheetHidden ' ou .Visible = xlSheetVeryHidden
       End With
        End If
    If Réponse = vbNo Then Exit Sub
End If
End Sub
Bonne Soirée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
1 K
pierrof
P
C
  • Question Question
Microsoft 365 Incrémenter une liste par rapport à une 1ere liste
Réponses
2
Affichages
152
Chris5633
C
  • Résolu(e)
XL 2021 tri par lignes
2
Réponses
19
Affichages
1 K
rastafouette
A
  • Résolu(e)
Microsoft 365 Formule : identifier si une date est dépassée par rapport à une autre date (sur TCD)
Réponses
2
Affichages
496
Alstroemeria
A
  • Question Question
XL 2016 Transfer de donnees avec clé d'entrée a la date
Réponses
3
Affichages
404
job75
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
378
Cousinhub
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
342
PRy
P
A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
368
Alamyr
A
F
  • Question Question
macro événementielle
2
Réponses
18
Affichages
625
FDO94
F
S
  • Résolu(e)
Autres Categoriser par rapport à la date de naissance, année et categorie
Réponses
8
Affichages
338
Skippy
S
S
  • Résolu(e)
Microsoft 365 Format date
Réponses
6
Affichages
451
Sylvia57
S
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
536
spike29
S
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
707
MANU64360
M
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
752
sylvanu
A
  • Question Question
XL pour MAC Problème avec une macro dupliquant une feuille contenant une macro
Réponses
8
Affichages
389
AlineJ
A
A
  • Résolu(e)
Autres Afficher le nombre de dates d'une colonne par rapport à une cellule
Réponses
4
Affichages
346
alain.pierrephie
A
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
771
SAMUAL_2023
S
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
425
MATLEA
M
  • Question Question
XL 2019 Macro bloque en court de travail
Réponses
4
Affichages
340
fanch55
M
  • Résolu(e)
XL 2016 Calcul de date par rapport à un critère
Réponses
10
Affichages
459
JHA
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…