! VBA détecter n° semaine et prévenir avant ! [Résolu/Fermé]

Signaler
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
-
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
-
Bonjour amis forumistes,

je suis face a un gros pb de programmation Excel...et seuls vous pouvez m'aider!!

pour faire simple, j'ai un fichier ou les débuts de travaux sont planifiés par numéro de semaine dans une colonne
(exemple: début le 25Mai --> on mettra s22 (pour semaine 22) dans la colonne)
J'aimerais arriver a faire en sorte qu'un pop up apparaisse 2 semaines avant la semaine indiquée de début de travaux pour que l'on n'oublie pas d'envoyer les documents necessaires........

Je ne sais pas comment faire!! j'ai essayé
Application.Evaluate("=TODAY()")) + 2 mais j'ai une erreur 438 qui apparait.... comment savoir quelle semaine sommes nous et declencher le pop up 2 semaines avant celle indiquéd dans mon fichier ?!

Merci bcp pour votre aide, je ss super coincé!!

Bonne journée::

11 réponses

Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
252
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
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
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!
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
252
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
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
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!!
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
252
Pas de problème

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

Bonne journée ... ensoleillée.
A++
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
ca marche super!!

par contre pourrais tu m'expliquer la provenance de tes calculs ? car je ne sais pas du tout à quoi cela correspond !
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
252
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
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
ok pas de souci merci pr tt!!

bonne journée, @ bientôt !!
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
252
j'ai pensé à ton soucis.

Un bon site pour commencer ou pour continuer

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

A+
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
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 !!
Messages postés
445
Date d'inscription
mercredi 7 mai 2008
Statut
Membre
Dernière intervention
19 janvier 2010
6
Solution trouvée !!!

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