Je souhaite voir un message s'afficher automatiquement =E0 l'ouverture=20
d'excel et indiquant un compte =E0 rebours =E0 partir d'une date.
En effet un coll=E8gue doit prendre sa retraite et je voudrais qu'=E0=20
l'ouverture d'excel un message s'affiche lui indiquant combien de jours=20
il lui reste avant de prendre un repos m=E9rit=E9:-)
Avez vous une id=E9ee ?
Peut on par ce biais afficher =E0 partir de plusieurs messages types un=20
affichage al=E9atoire (Comme il ouvre excel plusieurs fois dans la=20
journ=E9e, il n'aura ainsi pas toujours le m=EAme message) ?
Est-il possible de voir =E9galement ce message s'afficher dans la barre du=
=20
bas d'excel (l=E0 ou s'affiche Pr=EAt) ?
Vous remerciant par avance de votre coop=E9ration,
Bien cordialement
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
Philippe.R
Bonsoir Jean, Il te faudra intervenir sur le poste en question pour copier dans le classeur perso.xls la macro suivante pour un message choisis parmis 3
Private Sub Workbook_Open() Dim mESs As String If [a1] < 3 Then [a1] = [a1] + 1 Else [a1] = [a1] - 2 End If ouverture = [a1] Select Case (ouverture) Case Is = 1 mESs = "Prèt à en entamer encore une ?" Case Is = 2 mESs = "Pas trop vite hein, plutôt doucement !" Case Is = 3 mESs = "C'est pas la pêche à la ligne ici !" End Select MsgBox mESs, , "On va te regretter" End Sub
Pour un affichage dans la barre du bas, remplacer MsgBox mESs, , "On va te regretter" par Application.StatusBar = mESs
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Jean LANNELUCQ" a écrit dans le message de news: Bonsoir à tous,
Je souhaite voir un message s'afficher automatiquement à l'ouverture d'excel et indiquant un compte à rebours à partir d'une date.
En effet un collègue doit prendre sa retraite et je voudrais qu'à l'ouverture d'excel un message s'affiche lui indiquant combien de jours il lui reste avant de prendre un repos mérité:-)
Avez vous une idéee ?
Peut on par ce biais afficher à partir de plusieurs messages types un affichage aléatoire (Comme il ouvre excel plusieurs fois dans la journée, il n'aura ainsi pas toujours le même message) ?
Est-il possible de voir également ce message s'afficher dans la barre du bas d'excel (là ou s'affiche Prêt) ?
Vous remerciant par avance de votre coopération, Bien cordialement
Jean
Bonsoir Jean,
Il te faudra intervenir sur le poste en question pour copier dans le classeur perso.xls la macro
suivante pour un message choisis parmis 3
Private Sub Workbook_Open()
Dim mESs As String
If [a1] < 3 Then
[a1] = [a1] + 1
Else
[a1] = [a1] - 2
End If
ouverture = [a1]
Select Case (ouverture)
Case Is = 1
mESs = "Prèt à en entamer encore une ?"
Case Is = 2
mESs = "Pas trop vite hein, plutôt doucement !"
Case Is = 3
mESs = "C'est pas la pêche à la ligne ici !"
End Select
MsgBox mESs, , "On va te regretter"
End Sub
Pour un affichage dans la barre du bas, remplacer MsgBox mESs, , "On va te regretter"
par Application.StatusBar = mESs
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Jean LANNELUCQ" <jean.lannelucq@wanadoo.fr> a écrit dans le message de
news:MPG.1b31a13c6a31a59b989689@news.wanadoo.fr...
Bonsoir à tous,
Je souhaite voir un message s'afficher automatiquement à l'ouverture
d'excel et indiquant un compte à rebours à partir d'une date.
En effet un collègue doit prendre sa retraite et je voudrais qu'à
l'ouverture d'excel un message s'affiche lui indiquant combien de jours
il lui reste avant de prendre un repos mérité:-)
Avez vous une idéee ?
Peut on par ce biais afficher à partir de plusieurs messages types un
affichage aléatoire (Comme il ouvre excel plusieurs fois dans la
journée, il n'aura ainsi pas toujours le même message) ?
Est-il possible de voir également ce message s'afficher dans la barre du
bas d'excel (là ou s'affiche Prêt) ?
Vous remerciant par avance de votre coopération,
Bien cordialement
Bonsoir Jean, Il te faudra intervenir sur le poste en question pour copier dans le classeur perso.xls la macro suivante pour un message choisis parmis 3
Private Sub Workbook_Open() Dim mESs As String If [a1] < 3 Then [a1] = [a1] + 1 Else [a1] = [a1] - 2 End If ouverture = [a1] Select Case (ouverture) Case Is = 1 mESs = "Prèt à en entamer encore une ?" Case Is = 2 mESs = "Pas trop vite hein, plutôt doucement !" Case Is = 3 mESs = "C'est pas la pêche à la ligne ici !" End Select MsgBox mESs, , "On va te regretter" End Sub
Pour un affichage dans la barre du bas, remplacer MsgBox mESs, , "On va te regretter" par Application.StatusBar = mESs
-- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Jean LANNELUCQ" a écrit dans le message de news: Bonsoir à tous,
Je souhaite voir un message s'afficher automatiquement à l'ouverture d'excel et indiquant un compte à rebours à partir d'une date.
En effet un collègue doit prendre sa retraite et je voudrais qu'à l'ouverture d'excel un message s'affiche lui indiquant combien de jours il lui reste avant de prendre un repos mérité:-)
Avez vous une idéee ?
Peut on par ce biais afficher à partir de plusieurs messages types un affichage aléatoire (Comme il ouvre excel plusieurs fois dans la journée, il n'aura ainsi pas toujours le même message) ?
Est-il possible de voir également ce message s'afficher dans la barre du bas d'excel (là ou s'affiche Prêt) ?
Vous remerciant par avance de votre coopération, Bien cordialement
Jean
Modeste
Bonsour(®) Mgr, comme dirait "presque" LeSteph, arriva la cavalerie ....
Private Sub Workbook_Open() Dim mess() As String nbmess = 8 ReDim mess(nbmess) depart = #10/19/2004# mess(0) = "On va te regretter" mess(1) = "Prèt à en entamer encore une ?" mess(2) = "C'est pas la pêche à la ligne ici !" mess(3) = "Pas trop vite hein, plutôt doucement !" mess(4) = "Allez encore un effort !" mess(5) = "Ca devient bon !" mess(6) = "Bientot c'est Méméne qui te supportera !" mess(7) = "Laisse venir !" mess(8) = "Pense à ceux qui vont rester !" Randomize MsgBox "Plus que " & Format(Int(depart - Now), "0") & " jour(s)!!!", _ vbExclamation, _ mess(Int(Rnd() * nbmess)) End Sub
Bonsour(®) Mgr,
comme dirait "presque" LeSteph,
arriva la cavalerie ....
Private Sub Workbook_Open()
Dim mess() As String
nbmess = 8
ReDim mess(nbmess)
depart = #10/19/2004#
mess(0) = "On va te regretter"
mess(1) = "Prèt à en entamer encore une ?"
mess(2) = "C'est pas la pêche à la ligne ici !"
mess(3) = "Pas trop vite hein, plutôt doucement !"
mess(4) = "Allez encore un effort !"
mess(5) = "Ca devient bon !"
mess(6) = "Bientot c'est Méméne qui te supportera !"
mess(7) = "Laisse venir !"
mess(8) = "Pense à ceux qui vont rester !"
Randomize
MsgBox "Plus que " & Format(Int(depart - Now), "0") & "
jour(s)!!!", _
vbExclamation, _
mess(Int(Rnd() * nbmess))
End Sub
Bonsour(®) Mgr, comme dirait "presque" LeSteph, arriva la cavalerie ....
Private Sub Workbook_Open() Dim mess() As String nbmess = 8 ReDim mess(nbmess) depart = #10/19/2004# mess(0) = "On va te regretter" mess(1) = "Prèt à en entamer encore une ?" mess(2) = "C'est pas la pêche à la ligne ici !" mess(3) = "Pas trop vite hein, plutôt doucement !" mess(4) = "Allez encore un effort !" mess(5) = "Ca devient bon !" mess(6) = "Bientot c'est Méméne qui te supportera !" mess(7) = "Laisse venir !" mess(8) = "Pense à ceux qui vont rester !" Randomize MsgBox "Plus que " & Format(Int(depart - Now), "0") & " jour(s)!!!", _ vbExclamation, _ mess(Int(Rnd() * nbmess)) End Sub
