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
Robert à dit: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:
Code: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