Numéro de semaine

Mapat

XLDnaute Occasionnel
Bonjour

Avec un calendrier perpétuel, je voudrais récupérer le n° des semaines
J'ai juste un petit problème avec la formule renvoyant le mot #valeur! lorsque
la cellule correspondante est vide.
Ci joint fichier exemple
 

Pièces jointes

  • N° semaine.xls
    22 KB · Affichages: 39
  • N° semaine.xls
    22 KB · Affichages: 40
  • N° semaine.xls
    22 KB · Affichages: 43

WUTED

XLDnaute Occasionnel
Re : Numéro de semaine

Bonjour Mapat,

J'ai hélas pas encore fait beaucoup de formules mais j'avais trouvé sur internet une fonction qui permettait de renvoyer le numéro de semaine de façon assez efficace, suffirait juste que tu bricoles un peu pour récupérer la date, au cas où ça peut te servir :

VB:
Function CLSC(Dates As Date) As Integer
    Dim Semaine As Integer
    Semaine = Int((Dates - DateSerial(Year(Dates), 1, 1) + _
    ((Weekday(DateSerial(Year(Dates), 1, 1)) + 1) _
    Mod 7) - 3) / 7) + 1
    If Semaine = 0 Then
        Semaine = CLSC(DateSerial(Year(Dates) - 1, 12, 31))
    ElseIf Semaine = 53 And (Weekday(DateSerial(Year(Dates), 12, 31)) - 1) _
        Mod 7 <= 3 Then
        Semaine = 53
    End If
    CLSC = Semaine
End Function

Bonne aprés-midi.
 

Mapat

XLDnaute Occasionnel
Re : Numéro de semaine

Re Modeste geedee, Wuted

Merci pour vos réponses rapides. Ca fonctionne bien côté formule
Coté VBA, ca reste encore plus compliqué que les formules mais je le garde sous le coude
et je ferai l'essai
Merci encore à vous deux et bonne journée à tous
 

Discussions similaires

Réponses
13
Affichages
290

Statistiques des forums

Discussions
312 490
Messages
2 088 877
Membres
103 981
dernier inscrit
vinsalcatraz