MsgBox

[daxilane]

Bonjour,

Je souhaiterais faire apparaitre un MsgBox automatiquement lors de l'ouverture d'excel 2007 à partir du moment où la date actuelle dépasse une date saisie préalablement dans une ou plusieurs cellules.

Merci par avance pour votre aide

 

[vgendron]

Re : MsgBox

Bonjour,

Dans le module (thisworkbook) tu mets le code suivant

Private Sub Workbook_Open()
Comp = Cells(1, 1) 'en A1, tu as la date de référence
If Comp < Date Then MsgBox ("Date passée")
End Sub

 

[JBARBE]

Re : MsgBox

Bonjour,

Un autre exemple pour différentes feuilles et cellules !

Sub Auto_Open()
If Feuil1.Range("A1") < Date Or Feuil2.Range("A1") < Date Or Feuil2.Range("A3") < Date Then
Message = MsgBox("Date dépassée.." & Feuil1.Range("A1") & "..Et.." & Feuil2.Range("A1") & "..Et.." & Feuil2.Range("A3"))
End If
End Sub

 

[daxilane]

Re : MsgBox

Merci vgendron et JBARBE pour vos réponses. J'ai tenté de taper vos codes, toutefois, étant un débutant sur excel et vba, cela ne marche pas... Le plus simple est peut-être que je vous mette le tableau en pièce jointe afin de vous présenter ma requête.
Je souhaiterais qu'à chaque date dépassée concernant la dernière colonne (retour redressage), une MsgBox s'affiche en me stipulant "date dépassée" ainsi que la ou les lignes correspondantes. Cela est-il possible? 😕

Merci beaucoup pour votre aide

 

[JBARBE]

Re : MsgBox

Bonsoir,

A l'ouverture du fichier le MsgBox s'active !

Bonne soirée !

 

[daxilane]

Re : MsgBox

Bonjour JBARBE,
Je te remercie beaucoup pour ton efficacité.
Bonne continuation !