Trouver jour avec numéro de semaine

pierrejean

XLDnaute Barbatruc

• 6 Septembre 2007

• #2

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 !!!!

 

Vote positif 0 Vote négatif

fourmi4x

XLDnaute Junior

• 6 Septembre 2007

• #3

Re : Trouver jour avec numéro de semaine

Merci.

Et avec l'année stockée quelque part, c'est possible ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 6 Septembre 2007

• #4

Re : Trouver jour avec numéro de semaine

re

Avec une fonction personnalisée

vois si cela te convient

 

Pièces jointes

• vendredi.xls

  22.5 KB · Affichages: 975
• vendredi.xls

  22.5 KB · Affichages: 1 017
• vendredi.xls

  22.5 KB · Affichages: 1 023

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 6 Septembre 2007

• #5

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

Vote positif 0 Vote négatif

S

Sonyx

XLDnaute Nouveau

• 26 Septembre 2007

• #6

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 ??

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Septembre 2007

• #7

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

 

Vote positif 0 Vote négatif

S

Sonyx

XLDnaute Nouveau

• 26 Septembre 2007

• #8

Re : Trouver jour avec numéro de semaine

Merci beaucoup

 

Vote positif 0 Vote négatif

A

Asmoden

XLDnaute Junior

• 5 Décembre 2007

• #9

Re : Trouver jour avec numéro de semaine

pierrejean à dit:

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

Cliquez pour agrandir...

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: 5 Décembre 2007

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Décembre 2007

• #10

Re : Trouver jour avec numéro de semaine

bonjour Asmodem

Vois si cela te convient

 

Pièces jointes

• Asmodem.xls

  32 KB · Affichages: 346

Vote positif 0 Vote négatif

A

Asmoden

XLDnaute Junior

• 5 Décembre 2007

• #11

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: 5 Décembre 2007

Vote positif 0 Vote négatif

A

Asmoden

XLDnaute Junior

• 5 Décembre 2007

• #12

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Décembre 2007

• #13

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

 

Pièces jointes

• Asmodemb.xls

  33 KB · Affichages: 236

Vote positif 0 Vote négatif

A

Asmoden

XLDnaute Junior

• 5 Décembre 2007

• #14

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 5 Décembre 2007

• #15

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

 

Vote positif 0 Vote négatif