Message box

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2009

• #2

Re : Message box

Bonjour Ascal

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

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 20 Octobre 2009

• #3

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)

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2009

• #4

Re : Message box

Re, bonjour Jean-Marcel

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

Code:

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

@+

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 20 Octobre 2009

• #5

Re : Message box

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

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 20 Octobre 2009

• #6

Re : Message box

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

Merci à vous deux

 

Vote positif 0 Vote négatif