msgbox personaliser

[ILOVEUBB]

slut!! les expert


j'ai une question !

peut-on crée une msgbox qui s'ouvre en fonction d'une date précise qui se trouve dans une cellule et qui met un bipe sonor !!

avec la précision que plusieurs date peut se trouver dans une cellule .

merci

 

[Victor21]

Re : msgbox personaliser

Slut,

slut!! les expert
j'ai une question !
peut-on crée une msgbox qui s'ouvre en fonction d'une date précise qui se trouve dans une cellule et qui met un bipe sonor !!
avec la précision que plusieurs date peut se trouver dans une cellule .
merci

j'ai une réponse !
Oui, on peut

 

[Staple1600]

Re : msgbox personaliser

Bonsoir à tous, Victor21

Oui on peut surtout quand la télé est éteinte et qu'on dort pas encore..
alors on s'occupe comme on peut

Sub a()
Dim x As Range
Set x = Cells(1, 23).Offset(45, 6)
Y = DateSerial(1984, 7, 8)
Z = Y + 23
x = Y & Space(1) & Z
If CDate(Split(x)(0)) = Y Then
MsgBox "Message personnalisé", vbCritical
End If
End Sub

PS: Penses à brancher tes enceintes pour entendre le bip

 

[ILOVEUBB]

Re : msgbox personaliser

salut


merci !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!