numero de semaine (VBA)

bigmousse · 22 Novembre 2010

Pourquoi lorsque je converti la fonction sous excel :

=ENT(MOD(ENT((B2-2)/7)+0,6;52+5/28))+1

en code VBA, ça ne fonctionne pas, la fonction Mod sous VBA prend t'il en compte toutes les décimales de n2????

Code:

n1 = (Int((Ma_Date - 2) / 7) + 0.6)
n2 = 52 + 5 / 28
n3 = n1 Mod n2
N_SEMAINE = Int(n3) + 1

Avez-vous des solutions???

Merci
Mousse

MJ13 · 22 Novembre 2010

Re : numero de semaine (VBA)

Bonjour Bigmousse

Tu peux voir cette discussion:

https://www.excel-downloads.com/threads/calcul-semaine-vba.153077/

bigmousse · 22 Novembre 2010

Re : numero de semaine (VBA)

Merci, mais je viens de trouver une solution simple :
Mod(n,d) = n-d*Int(n/d)

Code:

n1 = (Int((Ma_Date - 2) / 7) + 0.6)
n2 = 52 + 5 / 28
n3 = n1 - n2 * Int(n1 / n2)
N_SEMAINE = Int(n3) + 1

merci
à+

MJ13 · 22 Novembre 2010

Re : numero de semaine (VBA)

Re Bigmousse

Ok pour ta correction, en attendant que Roger, notre spécialiste des dates teste ton code et le valide .

pierrejean · 22 Novembre 2010

Re : numero de semaine (VBA)

Bonjour a tous

Un test en attendant ROGER

Staple1600 · 22 Novembre 2010

Re : numero de semaine (VBA)

Bonjour à tous

De la lecture en attendant Roger, à consommer sans modération

XL: MOD() Function Returns #NUM! Error Value
http://www.bygsoftware.com/issues/modbug.html

ROGER2327 · 22 Novembre 2010

Re : numero de semaine (VBA)

Bonjour à tous

Vous me flattez, Messieurs…
À la demande générale :

Code:

[COLOR=DarkSlateGray][B]Function ISO([COLOR=Red]ByVal[/COLOR] r, Optional x As Byte = 0)
[COLOR=Sienna]' Transcription ISO d'une date grégorienne r.
'
'.__________________________________________________________________________________________.
'|           |                   |              |        |                                  |
'|     x     |       retour      |    format    |  type  |              exemple             |
'|___________|___________________|______________|________|__________________________________|
'|           |                   |              |        |                                  |
'| 0 ou omis | date ISO complète | "aaaa-WSS-J" | String |=ISO("3/3/2003")   | 2003-W10-1   |
'|     1     | semaine ISO       | "aaaa-WSS"   | String |=ISO("3/3/2003";1) | 2003-W10     |
'|     2     | semaine ISO       | SS           | Double |=ISO("3/3/2003";2) |           10 |
'|                                                                                          |
'|    Validité probable : lundi premier janvier 1900 - vendredi 31 décembre 9999 inclus.    |
'|__________________________________________________________________________________________|
'[/COLOR]
Application.Volatile
Dim a&, b&
  r = CDate(r)
  r = r - (r < 61)
  a = r - Weekday(r, vbMonday)
  b = DateSerial(Year(a + 4), 1, 1)
  ISO = IIf(x < 2, Year(b) & "-W", 0) + (Format((a - b + Weekday(b, vbMonday)) \ 7 + (Weekday(b, vbMonday) > 4) + 1, "00") & IIf(x < 1, "-" & Weekday(r, vbMonday), ""))
End Function[/B][/COLOR]

ROGER2327
#4567

Vendredi 20 As 138 (Saint Olibrius, augure, SQ)
2 Frimaire An CCXIX
2010-W47-1T14:24:55Z

bigmousse · 22 Novembre 2010

Re : numero de semaine (VBA)

Merci Docteur

ROGER2327 · 22 Novembre 2010

Re : numero de semaine (VBA)

bigmousse à dit:
Merci Docteur

Hola ! N'en jetez plus, la cour est pleine !

ROGER2327
#4568

Vendredi 20 As 138 (Saint Olibrius, augure, SQ)
2 Frimaire An CCXIX
2010-W47-1T14:53:06Z

ROGER2327 · 27 Novembre 2010

Re : numero de semaine (VBA)

Bonjour à tous

On n'est jamais assez attentif !
Il y avait encore une erreur dans la fonction que je donne plus haut : l'argument r de la fonction doit être passé par valeur.
(C'est corrigé.)

Avec mes excuses,

ROGER2327
#4614

Mercredi 25 As 138 (Saint Lewis Caroll, profesSainteur, SQ)
7 Frimaire An CCXIX
2010-W47-6T11:49:17Z

numero de semaine (VBA)

bigmousse

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

bigmousse

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

bigmousse

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Discussions similaires