Message box

[ascal44]

Bonjour à tous ,
Comment afficher un message box si la date est compris entre le 20/10/2009 et le 24/10/2009 ?
Je joint un fichier d'exemple

 

[Pierrot93]

Re : Message box

Bonjour Ascal

peut être comme ceci, si j'ai bien compris :

If Range("A2").Value <= Date And Range("B2").Value >= Date Then _
    MsgBox "Dans l'intervalle!!!"

bonne journée
@+

 

[ascal44]

Re : Message box

Merci pour votre rapidité , mais je n'arrive pas à m'en sortir :

Lors de l'activation de la feuille "mes" si la date d'aujourd'hui est égale aux dates de la colonne A ou est comprise entre les dates des colonnes A et B afficher dans un Msgbox le message de la colonne C

( si plussieurs ligne sont concernées ; plusieurs messages peuvent être intégrés dans un seul Msgbox)

 

[Pierrot93]

Re : Message box

Re, bonjour Jean-Marcel

essaye celui-ci, à placer dans le module de la feuille concernée :

Private Sub Worksheet_Activate()
Dim c As Range, t As String
For Each c In Range("A2:A" & Range("A65536").End(xlUp).Row)
    If c.Value <= Date And c.Offset(0, 1).Value >= Date Then _
    t = t & c.Offset(0, 2).Value & vbLf
Next c
If t <> "" Then MsgBox t
End Sub

@+

 

[ascal44]

Re : Message box

Le code de Jean Pierre semble intéressant,
mais il ne fonctionne pas, une erreure se serait elle glissée ?

 

[ascal44]

Re : Message box

Autant pour moi , j'avais collé le code de JP dans une autre feuille ; OUPS

Merci à vous deux