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
 

pierrejean

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

bonjour fourmi4x

avec uniquement S30 et vendredi , le jour est indeterminé : il faut effectivement avoir quelque part l'année concernée !!!!
 

Sonyx

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

Bonjour,
j'aimerais récupére la fonction vendredi et la mettre ds mon tableau excel, comment faire ??
 

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:

Asmoden

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

Sur mon fichier cela m'inscrit sur le vba : Erreur détectée Nom ambigüe Worksheet_Selectionchange

Je ne sais pas quoi faire là lol
 

pierrejean

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

Re
voila
tu as du copier toute la macro et non seulement son contenu
tu as 2 fois la même macro Worksheet_Selectionchange
 

Fichiers joints

Asmoden

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

Bon maintenant le problème c'est qu'elle ne se lance pas quand je clique sur la case sélectionnée aïe aïe aïe
 

pierrejean

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

re
Sauve ton fichier
Ote les données confidentielles de ton fichier , enleve tout ce qui n'est pas concerné par la manip ,enregistre le sous un nouveau nom et poste le
je regarderais
 
J

jacky 17

Guest
Re : Trouver jour avec numéro de semaine

Bonjour forum
Fourmi4x Pierrejean Abc Sonix Asmoden
Peut etre par formule
Voir fichier joint
A+
Cordialement jacky 17
 

Fichiers joints

Jocelyn

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

Bonjour le Forum,
Bonjour Fourmi4x, Pierrejean, Abc, Sonix, Asmoden, jacky 17,

jacky 17, la formule que tu utilise est une formule de Laurent Longre elle permet de renvoyer la date du premier jour d'une semaine définie pour une année définie

Tel que tu l'as écrite elle renvoi si on considère l'année 2007 et cette semaine la 49 le Vendredi 30/11/07 soit le vendredi précédent

Il suffit d'ajouter 4 a la formule pour avoir le Vendredi 07/12/07

Voir fichier joint

Jocelyn
 

Fichiers joints

J

jacky 17

Guest
Re : Trouver jour avec numéro de semaine

Bonsoir forum
Jocelyn Fourmi4x Pierrejean Abc Sonix Asmoden
Un grand merci pour cette autre formule je vais la mettre dans mon annuaire
J’ai oublié de mettre le numéro des jours

Lundi 1
Mardi 4 ou 7
Mercredi 9
Jeudi 6
Vendredi 2 ou 3
Samedi 8
Dimanche 5
A+
Cordialement jacky 17
 
J

jacky 17

Guest
Re : Trouver jour avec numéro de semaine

ne pas tenir compte des chiffres
encore merci
Jocelyn
jacky 17
 

Discussions similaires


Haut Bas