et quand je suis du matin je ne travail pas le vendredi.
J'ai creer un tableau avec en colonne :
A = Date (du 1er janvier au 31 décembre)
B = Le Numéro de semaine
C = le mois (sous forme de nombre)
En D= je voudrais en face de la journée savoir le quart
si c'est un samedi ou dimanche = vide
si c'est un vendredi du quart du matin = RTT
Pour les mois j'ai reussi à faire une macro car pour ma paye le
fonctionnement est de 4-4-5 semaines.
Public Function NoMois(Djour As Double) As Byte
'donne le n° du mois étant entendu qu'un mois fait 4/4/5 semaines
Dim byNoSem As Byte
byNoSem = NoSemaine(Djour)
Select Case byNoSem
Case 1 To 4
NoMois = 1
Case 5 To 8
NoMois = 2
Case 9 To 13
NoMois = 3
Case 14 To 17
NoMois = 4
Case 18 To 21
NoMois = 5
Case 22 To 26
NoMois = 6
Case 27 To 30
NoMois = 7
Case 31 To 34
NoMois = 8
Case 35 To 39
NoMois = 9
Case 40 To 43
NoMois = 10
Case 44 To 47
NoMois = 11
Case 48 To 52
NoMois = 12
End Select
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et son numéro N° selon quelle norme ? Une semaine = 7 jours ? Si le 1° jour de l'année n'est pas un lundi ?
...etc...
AV
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et son
numéro
N° selon quelle norme ?
Une semaine = 7 jours ?
Si le 1° jour de l'année n'est pas un lundi ?
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et son numéro N° selon quelle norme ? Une semaine = 7 jours ? Si le 1° jour de l'année n'est pas un lundi ?
...etc...
AV
Christophe
Merci de vous avoir attarder sur mon soucis. J'ai récuperer cette fonction pour déterminer le N° de semaine.
Public Function NoSemaine(Djour As Double) As Byte
NoSemaine = CInt(Format(Djour, "ww", vbMonday, vbFirstJan1)) If NoSemaine = 53 Then NoSemaine = 1 End If End Function
Je pense essayer en y ajoutant une condition
Si semaine =1 alors matin sinon ????
En incrementant semaine dans une boucle mais j'y perds mon latin.
Voilà suis je sur le bon chemin
"AV" a écrit dans le message de news: #
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et son
numéro N° selon quelle norme ? Une semaine = 7 jours ? Si le 1° jour de l'année n'est pas un lundi ?
...etc...
AV
Merci de vous avoir attarder sur mon soucis.
J'ai récuperer cette fonction pour déterminer le N° de semaine.
Public Function NoSemaine(Djour As Double) As Byte
NoSemaine = CInt(Format(Djour, "ww", vbMonday, vbFirstJan1))
If NoSemaine = 53 Then
NoSemaine = 1
End If
End Function
Je pense essayer en y ajoutant une condition
Si semaine =1 alors matin
sinon ????
En incrementant semaine dans une boucle mais j'y perds mon latin.
Voilà
suis je sur le bon chemin
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#aAdXrxwDHA.3116@tk2msftngp13.phx.gbl...
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et
son
numéro
N° selon quelle norme ?
Une semaine = 7 jours ?
Si le 1° jour de l'année n'est pas un lundi ?
Merci de vous avoir attarder sur mon soucis. J'ai récuperer cette fonction pour déterminer le N° de semaine.
Public Function NoSemaine(Djour As Double) As Byte
NoSemaine = CInt(Format(Djour, "ww", vbMonday, vbFirstJan1)) If NoSemaine = 53 Then NoSemaine = 1 End If End Function
Je pense essayer en y ajoutant une condition
Si semaine =1 alors matin sinon ????
En incrementant semaine dans une boucle mais j'y perds mon latin.
Voilà suis je sur le bon chemin
"AV" a écrit dans le message de news: #
Pour ton cas, il faudrait préciser (entre autres) la notion de semaine et son
numéro N° selon quelle norme ? Une semaine = 7 jours ? Si le 1° jour de l'année n'est pas un lundi ?
...etc...
AV
AV
J'ai pas vraiment tout saisi concernant les N° de semaines et le rôle joué par les mois ! En retenant que tes séquences "Aprèm";"Matin";"Nuit", sont sur 3 semaines plus les restrictions/conditions signalées Pour ton résultat Tes dates en A1:Ax Tes N° de semaines (1 --> 52/53 ?) en B1:Bx En D1 > recopie --> Dx : =SI(JOURSEM(A1;2)>5;"";SI(ET(JOURSEM(A1)=6;INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1 ;3)+1)="Matin");"RTT";INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1;3)+1)))
AV
J'ai pas vraiment tout saisi concernant les N° de semaines et le rôle joué par
les mois !
En retenant que tes séquences "Aprèm";"Matin";"Nuit", sont sur 3 semaines plus
les restrictions/conditions signalées
Pour ton résultat
Tes dates en A1:Ax
Tes N° de semaines (1 --> 52/53 ?) en B1:Bx
En D1 > recopie --> Dx :
=SI(JOURSEM(A1;2)>5;"";SI(ET(JOURSEM(A1)=6;INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1
;3)+1)="Matin");"RTT";INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1;3)+1)))
J'ai pas vraiment tout saisi concernant les N° de semaines et le rôle joué par les mois ! En retenant que tes séquences "Aprèm";"Matin";"Nuit", sont sur 3 semaines plus les restrictions/conditions signalées Pour ton résultat Tes dates en A1:Ax Tes N° de semaines (1 --> 52/53 ?) en B1:Bx En D1 > recopie --> Dx : =SI(JOURSEM(A1;2)>5;"";SI(ET(JOURSEM(A1)=6;INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1 ;3)+1)="Matin");"RTT";INDEX({"Aprèm";"Matin";"Nuit"};MOD(B1;3)+1)))
AV
Christophe
Je vous remercie. La formule fonctionne à merveille, il ne me reste plus qu'a la décortiqué pour la comprendre et la refaire seul.
Merci encore et bonne fetes de fin d'année à tous.
"AV" a écrit dans le message de news:
J'ai pas vraiment tout saisi concernant les N° de semaines et le rôle joué par
les mois ! En retenant que tes séquences "Aprèm";"Matin";"Nuit", sont sur 3 semaines plus
les restrictions/conditions signalées Pour ton résultat Tes dates en A1:Ax Tes N° de semaines (1 --> 52/53 ?) en B1:Bx En D1 > recopie --> Dx :
