Trouver jour avec numéro de semaine

fourmi4x

XLDnaute Junior
Bonsoir le forum !


Petit souci :
J'aimerai obtenir, à partir d'un numéro de semaine (par exemple semaine 30), la date du vendredi de cette même semaine...

Je sais qu'il faut utiliser DatePart pour obtenir l'inverse, mais je ne sais pas s'il est possible d'obtenir l'information dans ce sens (=> problème pour savoir l'année par ex. ?)

Merci bcp à ceux qui voudront bien me renseigner,

et bonne fin de journée :)

Xavier
 

abc

XLDnaute Impliqué
Re : Trouver jour avec numéro de semaine

Bonsoir,
un exemple a trafiquer en fonction de tes besoins
A +
 

Pièces jointes

  • tableauservice.zip
    3.7 KB · Affichages: 506
  • tableauservice.zip
    3.7 KB · Affichages: 517
  • tableauservice.zip
    3.7 KB · Affichages: 518

pierrejean

XLDnaute Barbatruc
Re : Trouver jour avec numéro de semaine

bonjour Sonyx

Dans ton fichier va en

Outils > Macro >V isual Basic Editor

puis Insertion > Module

copie ce code:

Code:
Function debsemaine1(annee As Integer)
For n = CDate("01/01/" & CStr(annee)) To CDate("07/01/" & CStr(annee))
If Weekday(n) = 5 Then
 debsemaine1 = n - 3
 Exit Function
 End If
Next n
End Function

Function vendredi(s As Integer, annee As Integer)
  vendredi = debsemaine1(annee) + 4 + 7 * (s - 1)
End Function

Reviens dans ton fichier

dans une cellule ecrit =

puis deroule toute la liste jusqu'a autres fonctions selectionne et clique

tu trouveras dans personnalisées la fonction vendredi que tu pourras utiliser comme toutes les autres fonctions

le 1er terme est le N° de semaine ,le second l'année

bon courage
 

Asmoden

XLDnaute Junior
Re : Trouver jour avec numéro de semaine

bonjour Sonyx

Dans ton fichier va en

Outils > Macro >V isual Basic Editor

puis Insertion > Module

copie ce code:

Code:
Function debsemaine1(annee As Integer)
For n = CDate("01/01/" & CStr(annee)) To CDate("07/01/" & CStr(annee))
If Weekday(n) = 5 Then
 debsemaine1 = n - 3
 Exit Function
 End If
Next n
End Function

Function vendredi(s As Integer, annee As Integer)
  vendredi = debsemaine1(annee) + 4 + 7 * (s - 1)
End Function

Reviens dans ton fichier

dans une cellule ecrit =

puis deroule toute la liste jusqu'a autres fonctions selectionne et clique

tu trouveras dans personnalisées la fonction vendredi que tu pourras utiliser comme toutes les autres fonctions

le 1er terme est le N° de semaine ,le second l'année

bon courage



Bonjour pour un edate à trouver de n'importe quelle année mais un jeudi, qu'elle serait l'argument à modifier SVP? Car il me donne en fait la date j+1 vu que c'est paramétré pour le vendredi merci beaucoup!!! Je pense avoir trouver en modifiant ainsi dites moi si j'ai juste :

Donc pour obtenir la date du jeudi quelle que soit l'année et la semaine,

jeudi = debsemaine1(annee) + 3 + 7 * (s - 1)

J'ai juste?

Par contre je voulais savoir si on pouvait paramétrer la cellule pour que celle-ci demande automatiquement le numéro de semaine et l'année et non pas que l'on ait à aller chercher la formule?

Merci beaucoup!
 
Dernière édition:

Asmoden

XLDnaute Junior
Re : Trouver jour avec numéro de semaine

MErci PierreJean !

Dis moi il est possible d'avoir la même chose mais en message box simple sans liste de choix? juste à saisir?

Et autre question, cela marche pour toutes les années futures sans limites?

Merci bcp!

De plus 'jai zappé mais en fait c'est la date du mercredi qu'il me faut mais çà je crois avoir compris comment modifier :)
 
Dernière édition:

Discussions similaires

Réponses
5
Affichages
537

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof