[XL-2007] N° de la semaine en fonction de la date [Résolu]

[apdf1]

Bonjour,

Je recherche un Code VBA pour trouver la date du mardi en fonction du N° de la semaine qui se trouve en "A1"
ex: semaine en "A1" 45 = en "C1" le 8/11/2011.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

[mercatog]

Bonjour
Ci-joint une proposition de fonction (à mettre dans module standard)

Code :

1
2
3
4
5
6
7
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", 1 - DatePart("w", FirstTues, vbTuesday), FirstTues)
Tuesd = DateAdd("ww", Sem, FirstTues)
End Function

En C1 tu mets

Code :

=Tuesd(2011;A1)

Le 2011 pourra être remplacé par la valeur d'une cellule cntenant l'année

[Ellimac]

Bonjour,

Tu peux utiliser la fonction suivante :

Code :

1
2
 
=DATE(ANNEE(AUJOURDHUI());1;(A1-1)*7+1)+9-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;(A1-1)*7+1);2)

Pour avoir le code VBA, il suffit d'enregistrer la saisie de cette formule.

Ellimac

[apdf1]

Bonjour mercatoq

Je te remercie infiniment Nickel

Bonne soirée

Max

[mercatog]

Après tests sur le premier mardi de l'année, ci-joint fonction modifiée (le premier mardi de l'année étant en semaine n° 1)

Code :

1
2
3
4
5
6
7
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", -DatePart("w", FirstTues, vbWednesday), FirstTues)
Tuesd = DateAdd("ww", Sem, FirstTues)
End Function

[apdf1]

Bonjour mercatoq,

Je te remercie avec un peu de retard " le travail" pour ta modification.

Si je peut abuser juste un petit supplément, si je doit à l'avenir changer de jour a la place du mardi mettre le jeudi quel est la modif ?
Parce que j'ai fait ceci mais sa ne fonctionne pas ?

Code :

1
2
3
4
5
6
7
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", -DatePart("w", FirstTues, vbWednesday), FirstTues)
Thursd= DateAdd("ww", Sem, FirstTues)
End Function

Code :

=Thursd(2011;I13)

Je te souhaite une bonne journée

Max

[mercatog]

Bonjour
Remplace la constante vbWednesday par vbFriday dans la ligne 5 pour obtenir le jeudi.

[apdf1]

Bonjour mercatoq,

Je te remercie et te souhaite une bonne journée

@+

Max

[bbil]

Bonjour,

mercatoq , je crois que le calcul ainsi pour 2014 comme en semaine 1 il n'y as par de mardi en 2014... on se retrouve avec un décalage d'une semaine...

[mercatog]

Bonjour bbil

Effectivement, comme je l'ai précisé, j'ai considéré la 1ère semaine est celle contenant le premier mardi de l'année.
Maintenant, il suffit de considérer quelle norme est utilisée pour désigner la première semaine de l'année.


Exemple

Code :

1
2
3
4
5
6
7
8
9
Function Tuesd(ByVal An As Integer, ByVal Sem As Byte) As Date
Dim FirstTues As Date
Dim n As Byte
 
FirstTues = DateSerial(An, 1, 1)
FirstTues = DateAdd("d", -DatePart("w", FirstTues, vbWednesday), FirstTues)
n = IIf(DatePart("ww", FirstTues, vbMonday, vbFirstFourDays) > 1, 0, 1)
Tuesd = DateAdd("ww", Sem - n, FirstTues)
End Function

[defluc]

Hello,

Tant qu'à faire j'ai généralisé la fonction pour qu'elle soit opérationnelle pour n'importe quel jour de la semaine.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Function DateFollowingWeekDay(An As Integer, WeekNo As Integer, DayNo As Integer) As Date
  Dim Day1 As Date      '  Di = 1 Lu = 2 Ma = 3 Me = 4
  Dim Day1No As Integer  '  Je = 5 Ve = 6 Sa = 7
  Day1 = DateSerial(An, 1, 1)
  Day1No = Weekday(Day1)
  If Day1No < 6 Then
    Day1 = Day1 - Weekday(Day1) - 5
                                            Else
    Day1 = Day1 - Weekday(Day1) + DayNo
  End If
  DateFollowingWeekDay = Day1 + 7 * WeekNo
End Function

Cela devrait permettre de clôturer le sujet, non, apdf1 ?

[apdf1]

Bonjour Defluc,

Et merci pour code très intéressant, avant de clôturer le sujet, pourrez tu me dire comment faire appel a la fonction, puisque avec le code de Mercatog que je remercie au passage je mettais ceci

Code :

=Thursd(2011;I13)

Dans la cellule "A2" pour avoir le N° de la semaine

Je te remercie et te souhaite une bonne journée

Cordialement
Max

[defluc]

Code :

DateFollowingWeekDay(2011, 45, 3)

[apdf1]

Bonjour Defluc,

Je te remercie mais j'ai un message d'erreur alors j'ai fait:

Code :

=DateFollowingWeekDay(2011, 45, 3)

Puis

Code :

=DateFollowingWeekDay(2011, 45, 3;D3)

Puis

Code :

=DateFollowingWeekDay(2011;D3)

Je ne sais plus ?

@+

Max

[defluc]

Code :

=DateFollowingWeekDay(2011; 45; 3)

[apdf1]

Re,

Je ne comprend pas rien se passe

[defluc]

C'est pas possible, en recopiant ce que je t'ai renseigné dans une cellule, la date doit apparaître dans cette cellule. Ou alors, elle doit comporter un message d'erreur du genre NOM ?

Oups, j'ai oublié quelque chose parce que je croyais que la fonction était à utiliser dans une macro.

Comme du l'utilises d'une celllule, la première ligne doit être

Code :

Public Function DateFollowingWeekDay(An As Integer, WeekNo As Integer, DayNo As Integer) As Date

[apdf1]

re,

Toujours pareil la cellule comporte erreur #Nom?

@+

[defluc]

As-tu bien enregistré la fonction dans un module standard ?

[apdf1]

Re,

J'ai mis le code dans un module et la sa marche

Je te remercie de la patience et je te souhaite une bonne soirée

@+
Max