message d'alerte

sousou

XLDnaute Barbatruc

• 15 Janvier 2018

• #2

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

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 15 Janvier 2018

• #3

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

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Janvier 2018

• #4

re
Cela ne fonctionne pas, c'est un peu cours
envoi lefichier ou tu as intégré la macro

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 15 Janvier 2018

• #5

j'ai de réduire au maximun

merci de m'accorder un peu de ton sousou

 

Pièces jointes

• alerteanniversaire.zip

  12.5 KB · Affichages: 28

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Janvier 2018

• #6

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

 

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 17 Janvier 2018

• #7

bonsoir le forum

sousou

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

merci encore du temps consacrer

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 17 Janvier 2018

• #8

Bonsoir
Regarde ce fichier

 

Pièces jointes

• alerteanniversaire.xlsm

  18.3 KB · Affichages: 49

Vote positif 0 Vote négatif

C

chilo

XLDnaute Occasionnel

• 18 Janvier 2018

• #9

merci à toi sousou

 

Vote positif 0 Vote négatif