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
 

Pièces jointes

  • alerteanniversaire (2).zip
    6.2 KB · Affichages: 24

sousou

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
11
Affichages
444
Réponses
24
Affichages
335