Bonsoir
Je souhaite lancer un msgbox si dans une liste nommée "anniversaire"
la date tombe dans une correspondante à un anniversaire.
Ex : en A3 04/06/2004 en B3 Daniel
Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel"
Bien sûr il s'agit d'un test
Merci
Laurent
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Greg
Salut,
peut-être un truc dans ce genre :
Dim vDate As Date Dim vNom As String
vDate = Format(Now, "dd/mm/yyyy")
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0, 1).Value MsgBox "Bon anniversaire " & vNom End If
"Laurent.H" wrote in message news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
Salut,
peut-être un truc dans ce genre :
Dim vDate As Date
Dim vNom As String
vDate = Format(Now, "dd/mm/yyyy")
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then
vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0,
1).Value
MsgBox "Bon anniversaire " & vNom
End If
"Laurent.H" <LH@tractoo.nl> wrote in message
news:eM51DNNSEHA.3476@tk2msftngp13.phx.gbl...
Bonsoir
Je souhaite lancer un msgbox si dans une liste nommée "anniversaire"
la date tombe dans une correspondante à un anniversaire.
Ex : en A3 04/06/2004 en B3 Daniel
Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel"
Bien sûr il s'agit d'un test
Merci
Laurent
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0, 1).Value MsgBox "Bon anniversaire " & vNom End If
"Laurent.H" wrote in message news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
Laurent.H
Merci beaucoup Greg "le millionnaire" ? Laurent
"Greg" a écrit dans le message de news:c9ldqn$987$
Salut,
peut-être un truc dans ce genre :
Dim vDate As Date Dim vNom As String
vDate = Format(Now, "dd/mm/yyyy")
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0, 1).Value MsgBox "Bon anniversaire " & vNom End If
"Laurent.H" wrote in message news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
Merci beaucoup Greg "le millionnaire" ?
Laurent
"Greg" <greg@neuf.fr> a écrit dans le message de
news:c9ldqn$987$1@aphrodite.grec.isp.9tel.net...
Salut,
peut-être un truc dans ce genre :
Dim vDate As Date
Dim vNom As String
vDate = Format(Now, "dd/mm/yyyy")
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then
vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0,
1).Value
MsgBox "Bon anniversaire " & vNom
End If
"Laurent.H" <LH@tractoo.nl> wrote in message
news:eM51DNNSEHA.3476@tk2msftngp13.phx.gbl...
Bonsoir
Je souhaite lancer un msgbox si dans une liste nommée "anniversaire"
la date tombe dans une correspondante à un anniversaire.
Ex : en A3 04/06/2004 en B3 Daniel
Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel"
Bien sûr il s'agit d'un test
Merci
Laurent
"Greg" a écrit dans le message de news:c9ldqn$987$
Salut,
peut-être un truc dans ce genre :
Dim vDate As Date Dim vNom As String
vDate = Format(Now, "dd/mm/yyyy")
If Not Range("anniversaire").Find(vDate, LookAt:=xlWhole) Is Nothing Then vNom = Range("anniversaire").Find(vDate, LookAt:=xlWhole).Offset(0, 1).Value MsgBox "Bon anniversaire " & vNom End If
"Laurent.H" wrote in message news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
GD
Bonsoir, Ne pas oublier de souhaiter les anniversaires ? ...Pour un utilisateur assidu d'Excel, pas de problème, il suffit de demander à votre logiciel favori d'envoyer un petit message de rappel à l'ouverture d'Excel quelques jours avant le jour J. http://jacxl.free.fr/cours_xl/bonanniversaire.html
Une liste des noms et des dates de naissances. Une macro complémentaire qui à chaque ouverture d'Excel balaie la liste et se manifeste en cas de besoin. Et pour une installation confortable et une mise à jour commode, une macro d'installation / mise à jour.
@+
"Laurent.H" a écrit dans le message de news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
Bonsoir,
Ne pas oublier de souhaiter les anniversaires ?
...Pour un utilisateur assidu d'Excel, pas de problème, il suffit de
demander à votre logiciel favori d'envoyer un petit message de rappel à
l'ouverture d'Excel quelques jours avant le jour J.
http://jacxl.free.fr/cours_xl/bonanniversaire.html
Une liste des noms et des dates de naissances.
Une macro complémentaire qui à chaque ouverture d'Excel balaie la liste et
se manifeste en cas de besoin.
Et pour une installation confortable et une mise à jour commode, une macro
d'installation / mise à jour.
@+
"Laurent.H" <LH@tractoo.nl> a écrit dans le message de
news:eM51DNNSEHA.3476@tk2msftngp13.phx.gbl...
Bonsoir
Je souhaite lancer un msgbox si dans une liste nommée "anniversaire"
la date tombe dans une correspondante à un anniversaire.
Ex : en A3 04/06/2004 en B3 Daniel
Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel"
Bien sûr il s'agit d'un test
Merci
Laurent
Bonsoir, Ne pas oublier de souhaiter les anniversaires ? ...Pour un utilisateur assidu d'Excel, pas de problème, il suffit de demander à votre logiciel favori d'envoyer un petit message de rappel à l'ouverture d'Excel quelques jours avant le jour J. http://jacxl.free.fr/cours_xl/bonanniversaire.html
Une liste des noms et des dates de naissances. Une macro complémentaire qui à chaque ouverture d'Excel balaie la liste et se manifeste en cas de besoin. Et pour une installation confortable et une mise à jour commode, une macro d'installation / mise à jour.
@+
"Laurent.H" a écrit dans le message de news:
Bonsoir Je souhaite lancer un msgbox si dans une liste nommée "anniversaire" la date tombe dans une correspondante à un anniversaire. Ex : en A3 04/06/2004 en B3 Daniel Le 04/06/2004 le msgbox se lance avec "Bon anniversaire Daniel" Bien sûr il s'agit d'un test Merci Laurent
