indiquer un message lors de l'ouverture d'une feuille

[Jack20]

Bonsoir!
Peut-on inserer un message qui defile ou fixe à l'ouverture d'une feuille (dans mon cas : "inscrire le numero de la semaine"...) et une fois que l'action serait faite le message s'effacerait...
merci d'avance.

Jack

 

[Guillaumega]

Re : indiquer un message lors de l'ouverture d'une feuille

Salut,

Il faut utiliser des macro évènementielles comme par exemple celle là

Private Sub workbook_sheetactivate(ByVal sh As objet)

A+

 

[Robert]

Re : indiquer un message lors de l'ouverture d'une feuille

Bonsoir Jack, Guillaume, bonsoir le forum,

Je me permets Guillaume de préciser ta réponse très juste mais peu précise. Jack, il te faut copier la macro ci-dessous dans le composant VBA WorkSheet de l'onglet concerné. Par exemple Feuil1(Feuil1) :
un plan d'Eric 45 donné le 05/10/2006 en réponse à Pierre31 sur ce fil. Chaque fois que tu activeras cet onglet, le numero de la semaine s'affichera:

Private Sub Worksheet_Activate() 'à l'activation de l'onglet
 
Dim prem_date As Single 'déclare la variable
Dim nb_date_annee As Date 'déclare la variable nb_date_annee
Dim num_semaine As Integer 'déclare la variable num_semaine
 
nb_date_annee = DateValue("01/01/" & (Year(Date))) 'définit la variable nb_date_annee
prem_date = nb_date_annee 'définit la variable pre_date
num_semaine = Abs(Date - prem_date) / 7 'définit la variable num_semaine
MsgBox "Semaine " & num_semaine 'message affichant le numéro de la semaine
 
End Sub

 

[Jack20]

Re : indiquer un message lors de l'ouverture d'une feuille

merci à vous!
Robert le code fonctionne mais il reste tjrs sur la meme semaine? pourquoi?
Jack

 

[Guillaumega]

Re : indiquer un message lors de l'ouverture d'une feuille

Bonsoir Jack, Guillaume, bonsoir le forum,

Je me permets Guillaume de préciser ta réponse très juste mais peu précise. Jack, il te faut copier la macro ci-dessous dans le composant VBA WorkSheet de l'onglet concerné. Par exemple Feuil1(Feuil1) :
un plan d'Eric 45 donné le 05/10/2006 en réponse à Pierre31 sur ce fil. Chaque fois que tu activeras cet onglet, le numero de la semaine s'affichera:

Private Sub Worksheet_Activate() 'à l'activation de l'onglet
 
Dim prem_date As Single 'déclare la variable
Dim nb_date_annee As Date 'déclare la variable nb_date_annee
Dim num_semaine As Integer 'déclare la variable num_semaine
 
nb_date_annee = DateValue("01/01/" & (Year(Date))) 'définit la variable nb_date_annee
prem_date = nb_date_annee 'définit la variable pre_date
num_semaine = Abs(Date - prem_date) / 7 'définit la variable num_semaine
MsgBox "Semaine " & num_semaine 'message affichant le numéro de la semaine
 
End Sub

Peut précise car je n'avais pas ton savoir ! Merci à toi !!!!

 

[Jack20]

Re : indiquer un message lors de l'ouverture d'une feuille

Robert,

desolé ne pas tenir compte du message précédent (je viens de lire le plan d'eric 45) ....! j'ai compris....

merci encore
jack