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

XL 2019 Ouverture fenêtre lorsque on atteint une date

candido57

XLDnaute Occasionnel
Bonjour,
Je voudrait avoir une alerte en ouvrant une fenêtre dès que l'on atteint une date.
En prenant en compte la date, la semaine et l'année.
Une petite macro ou autre.

Merci beaucoup
 

Pièces jointes

  • Classeur1.xlsx
    9.6 KB · Affichages: 6

candido57

XLDnaute Occasionnel
Est ce que l'on peut prendre la date aujourd'hui, si elle est entre les 2 dates en colonne J et I, alors on ouvre une fenêtre alerte , sinon, on n'affiche pas.
Peut on la faire apparaitre cette fenêtre dans un autre onglet ? si possible une grande
 

Pièces jointes

  • Alerte Candido.xlsm
    18 KB · Affichages: 0
Dernière édition:

candido57

XLDnaute Occasionnel
Je voudrais savoir , la macro fonction lorsque on ouvre le fichier, mais je voudrais que la fenêtre s'ouvre si je tape une information en D2 car l'information peut changer si je saisie une autre information.
Mon fichier doit rester ouvrer.
Je ne veux pas avoir l'alerte lors de l'ouverture du fichier , mais lors je saisie dans une cellule
Peut on avoir une grande fenêtre et l'afficher dans un autre onglet Exp: "Base"
Que dois je modifier ci-dessous >> Macro modifier suivant mon fichier personnel

Private Sub Workbook_Open() >> Afficher la MsgBox uniquement

With Sheets("RECTO-VERSO") >> Saisir dans fichier "RECTO-VERSO" en D2

'If Now >= .Range("U2") Then
If Now >= Range("z2") And Now < Range("y2") Then
If .Range("X2") = "" Then
MsgBox "Transition Lait n°1 et Lait n°2"
.Range("X2") = "Transition Lait n°1 et Lait n°2" >> Pas besoin noter dans cellule X2

'ElseIf Now >= .Range("U3") Then
ElseIf Now >= Range("z3") And Now < Range("y3") Then
If .Range("X3") = "" Then
MsgBox "Transition Lait n°2 et Lait n°3"
.Range("X3") = "Transition Lait n°2 et Lait n°3"

'ElseIf Now >= .Range("U4") Then
ElseIf Now >= Range("z4") And Now < Range("y4") Then
If .Range("X4") = "" Then
MsgBox "Fini, Lait normal"
.Range("X4") = "Fini, Lait normal"
End If
End If
End If
End If
End With
End Sub
 
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…