message d'alerte

chilo

XLDnaute Occasionnel
bonjour le forum

Une Bonne année à vous santé bonheur pour 2018

j'ai cherché mais pas trouver comment faire une alerte pour me prévenir de l'anniversaire

Je souhaite afficher une alerte qui m'avertit de l'anniversaire à venir
à l'ouverture d'excel

Un grand merci pour l'aide
 

Fichiers joints

sousou

XLDnaute Accro
Bonjour*
En cherchant un peu tu aurais pu essayer ceci
Private Sub Workbook_Open()
With Sheets(1)
Set zone = .Range(.Cells(3, 2), .Cells(.UsedRange.Cells(3, 1).End(xlDown).Row, 2))
For Each i In zone
If i.Offset = Date Then
phrase = phrase & i.Offset(0, -1) & Chr(13)
End If
Next
If phrase <> "" Then phrase = "C'est l'anniversaire de: " & Chr(13) & phrase: MsgBox phrase
End With
End Sub
 

chilo

XLDnaute Occasionnel
Merci sousou

j'ai cherché mais je n'ai pas trouvé
Cela ne fonctionne pas c'est peut etre parce que je suis excel 2007 oublie de précision de ma part
encore une fois merci
 

sousou

XLDnaute Accro
re.
soit tu retires option explicit, soit tu definis toutes les variables utilisées.
public zone,phrase..... etautres
 

chilo

XLDnaute Occasionnel
bonsoir le forum

sousou

j'ai suivi tes conseils mais cela ne fonctionne toujours pas

merci encore du temps consacrer
 

Discussions similaires


Haut Bas