! VBA détecter n° semaine et prévenir avant !
Résolu
tony020422
Messages postés
445
Date d'inscription
Statut
Membre
Dernière intervention
-
tony020422 Messages postés 445 Date d'inscription Statut Membre Dernière intervention -
tony020422 Messages postés 445 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- ! VBA détecter n° semaine et prévenir avant !
- Comment détecter un traceur sur téléphone - Accueil - Confidentialité
- Prevenir quand meme iphone - Guide
- Avant browser - Télécharger - Navigateurs
- Détecter clé usb - Guide
- Comment remettre ma page d'accueil comme avant - Guide
11 réponses
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
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!
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
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!!
C'est vraimennt kool, tu me depatouilles bcp!
Mille merci, bonne journée ensoleillée!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ca marche super!!
par contre pourrais tu m'expliquer la provenance de tes calculs ? car je ne sais pas du tout à quoi cela correspond !
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
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
j'ai pensé à ton soucis.
Un bon site pour commencer ou pour continuer
https://excel.developpez.com/cours/
A+
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 !!
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 !!