! VBA détecter n° semaine et prévenir avant !

bonjour essaye comme ça!
a placer dans un module sino utilise No.semaine ou weeknum suivant la version

Public Function Semaine(date1 As Date) As Integer
Dim Sem As Integer
Sem = Int((date1 - DateSerial(Year(date1), 1, 1) + _
((Weekday(DateSerial(Year(date1), 1, 1)) + 1) _
Mod 7) - 3) / 7) + 1
If Sem = 0 Then
Sem = Semaine(DateSerial(Year(date1) - 1, 12, 31))
ElseIf a = 53 And (Weekday(DateSerial(Year(date1), 12, 31)) - 1) _
Mod 7 <= 3 Then
Sem = 1
End If
Semaine = Sem
End Function

Sub test()
x = Semaine(Date)
End Sub

Bjr !! merci de t'etre penché sur la question.....

donc ton script je le met dans le module 1, sachant que j'ai comme script dans Feuil1:

'macro qui s'exécute à chaque fois qu'il y a un changement sur une des cellules de la feuille
'"Target" représente la cellule qui a changé
Private Sub Worksheet_Change(ByVal Target As Range)
'si c'est la cellule B5 qui a changé
If Target.Column = 5 Then
'si la cellule n'est pas vide
If Target.Text <> vbNullString Then
'afficher le message
MsgBox "n'oubliez pas de facturer pour régulariser la situation 2"
End If
End If
End Sub

permettant de prévenir de fiare qqch qd la cellule de la colonne 5 est remplie....

et ds thisworkbook je met rien?

pr tester ton script, faudrait que lorsque je mette s25 qqch ds la colonne F rien ne se passe mais lorsque je mette s24 il m'affiche ce qu'il faut car on est actuellement en s22!

je n'ai pas toutes les infos donc c'est difficile.

dans thisworbook il faudrait faire un test à l'ouverture

Private Sub Workbook_Open()
'je lance la macro de teste

End Sub

ce que je t'ai fournis te donne la semaine actuelle sous forme numérique.

il faut donc que tu teste tes cellules ( mais je ne sais pas lesquelles)

par exemple sur cette structure
je n'ai pas tout tester car je n'ai pas de données.

sub testsemaine()
la semaine=Semaine(date)
dim c as variant
dim s as integer
dim r as variant

for each c in range("f1:F1000") ' ajuster
s=val(mid(c.value,2,len(c.value)-1) 'on supprime le s et on convertit en valeur
if s >lasemaine +2 then
' rien à faire c'est du boulot dans 3 semaine ou plus

else
'c'est à faire ou déjà fait
r= msgbox("Il faut vérifier ou preparer ce travail " & C.address & " en " & c.value)
endif

next

end sub

ok j'ai bien coompris merci le bidouilleuR c'est super sympa!!!! ce que tu me proposes va vraiment me sauver!!

C'est vraimennt kool, tu me depatouilles bcp!

Mille merci, bonne journée ensoleillée!!

Pas de problème

si tu souhaites améliorer ça peut se faire..

Bonne journée ... ensoleillée.
A++

ca marche super!!

par contre pourrais tu m'expliquer la provenance de tes calculs ? car je ne sais pas du tout à quoi cela correspond !

heu!

j'ai gratté du clavier...

j'ai eu besoin à une époque .. de calculer les semaines et les jours féries ^^ .

donc pour le calcul de la semaine j'ai utilisé principalement "dateserial" ( vba)
car pour excel une date est est nombre particulier.
weekday et le reste mid , mod (modulo) etc sont des fonctions de vba.
je te conseille le site de VBFRANCE et si tu es perspicaces tu y retrouveras certains amis de CCM. ; )

lis le tutorial de vba , je le trouve très bien pour commencer.

A+

je dois partir.
si tu as besoin d'autres explication je te répondrais

ok pas de souci merci pr tt!!

bonne journée, @ bientôt !!

j'ai pensé à ton soucis.

Un bon site pour commencer ou pour continuer

https://excel.developpez.com/cours/

A+

Bonjour tout le monde,

j'ai eu une idée que je ne sais pas programmer.....

j'aimerais que lorsque je mette dans la colonne I intitulée "date de fin de travaux" un numéro de semaine (planification) comme par exemple "s25" un pop up apparaisse lorsque l'on sera effectgivement en semaine 25 pr me prévenir de penser a facturer.....

J'espère que vous comprenez ce que j'aimerais faire ;-)

Merci par avance pr le coup de main !!

Solution trouvée !!!

peu académique certes mais ca marche....... !!