Date

[akramenergie]

Bonjour mes amis,

quelqu'un serai me dir comment je peux passer de la semaine 52 année 2011 à la semaine 1 année 2012.

vous allez remarqué que lorsque vous incrémentez les semaine normalement à un moment donnée la semaien dois passé de S52 à S1 (passage d'une année a une autre) chose que j'arrive pas a faire.


😕


Merci d'avance pour vortre aide

 

[Tibo]

Re : Date

Bonjour,

Au plus simple, ça donnerait ceci :

="semaine "&MOD(D5-1;52)+1

Mais c'est sans tenir compte des années qui ont une semaine 53

Je te laisse retrouver dans les méandres d'XLD le calcul du n° de semaine. Ca permettrait d'intégrer à la formule une éventuelle 53ème semaine.

@+

 

[Fred0o]

Re : Date

Bonjour akramenergie.

Peut-être comme ceci :

Private Sub SpinButton2_SpinDown()
If [D5] = 1 Then [D5] = 52 Else [D5] = [D5] - 1
End Sub

Private Sub SpinButton2_SpinUp()
    If [D5] = 52 Then [D5] = 1 Else [D5] = [D5] + 1
End Sub

A+

 

[akramenergie]

Re : Date

les deux solution fonctiones bien sauf que l'année ne bouge pas

 

[Fred0o]

Re : Date

Re-bonjour,

Allons akramenergie, un petit effort ! Avec les solutions proposées (au moins celle par macro), tu dois être capable d'extrapoler et de modifier l'année en [D4].

A+

 

[Pierrot93]

Re : Date

Bonjour à tous,

un autre exemple avec les fonctions vba de date :

Private Sub SpinButton2_SpinUp()
Range("D5") = IIf(DatePart("ww", DateSerial(Range("D4"), 12, 31), 2, 2) = Range("D5"), 1, Range("D5") + 1)
End Sub

bon après midi
@+

 

[ralph45]

Re : Date

Bonjour à tous,

Une solution brute de décoffrage :

Private Sub SpinButton2_SpinDown()
Range("D5").Value = Range("D5").Value - 1
If Range("D5").Value = 0 Then
Range("D4").Value = Range("D4").Value - 1
Range("D5").Value = 52
End If

End Sub
Private Sub SpinButton2_SpinUp()
Range("D5").Value = Range("D5").Value + 1
If Range("D5").Value = 53 Then
Range("D4").Value = Range("D4").Value + 1
Range("D5").Value = 1
End If
End Sub

Bonne année 2012 à tout le monde !! 😛

 

[Fred0o]

Re : Date

Re-bonjour à tous,

Pourquoi ne pas laisser notre ami apprendre pa rlui même en adaptant les codes déjà fournis ?

A+

 

[ralph45]

Re : Date

Salut Fred0o,

J'avais écrit le code avant d'aller déjeuner et l'ai posté sans faire de rafraichissement de la page.
Trop bourrin des fois, le gars... 😱

 

[akramenergie]

Re : Date

Merci les gars pour votre aide