N° Semaine VBA

D

david84

XLDnaute Barbatruc

• 26 Août 2013

• #2

Re : N° Semaine VBA

Bonjour,
pour obtenir le n° de semaine, utiliser Application.WorksheetFunction.WeekNum
A+

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Août 2013

• #3

Re : N° Semaine VBA

bonjour Nimbus
Salut David

Une autre solution

 

Pièces jointes

• MC_fonctionne.xlsm

  218.6 KB · Affichages: 120
• MC_fonctionne.xlsm

  218.6 KB · Affichages: 91
• MC_fonctionne.xlsm

  218.6 KB · Affichages: 126

Vote positif 0 Vote négatif

N

Nimbus

XLDnaute Occasionnel

• 26 Août 2013

• #4

Re : N° Semaine VBA

Bonjour David, Pierrejean

Merci beaucoup!
Le programme fonctionne à merveille

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2013

• #5

Re : N° Semaine VBA

Bonsour®
il faut d'abord connaitre quelle norme utiliser ?
la fonction WEEKNUM (NOSEMAINE) est à la norme US
i.e. dimanche est le 1er jour de la semaine
les semaines de fin année et début d'année ne comporte pas systématiquement 7 jours ...

en Europe (Norme ISO)
la semaine comporte toujours 7 Jours
la semaine 01 est la semaine qui contient le 1er jeudi de l'année

par formule :

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

Cliquez pour agrandir...

par Fonction (VBA)BUG: Les fonctions Format et DatePart peuvent renvoyer un numéro de semaine erroné pour le dernier lundi de l'année

VB:

Function SemISO (MyDate As Date) As Integer   ' Week Of Year
  SemISO = Format(MyDate, "ww", vbMonday, vbFirstFourDays)
  If SemISO > 52 Then
    If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
  End If
End Function

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 26 Août 2013

• #6

Re : N° Semaine VBA

Bonjour

A partir de 2010 on peut avoir un numéro de semaine iso par la fonction NO.SEMAINE ou WEEKNUM mais pas sur les versions antérieures dont 2007...

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2013

• #7

Re : N° Semaine VBA

Bonsour®

chris à dit:

Bonjour

A partir de 2010 on peut avoir un numéro de semaine iso par la fonction NO.SEMAINE ou WEEKNUM mais pas sur les versions antérieures dont 2007...

Cliquez pour agrandir...

de l'interet du demandeur d'indiquer dans son profil et éventuellement repréciser dans la demande , la version EXCEL utilisée...

 

Vote positif 0 Vote négatif

N

Nimbus

XLDnaute Occasionnel

• 26 Août 2013

• #8

Re : N° Semaine VBA

Bonjour à tous

J'ai un problème avec un autre document Excel.
Ce matin le programme pour avoir les numéros de semaine fonctionnait bien. J'ai donc voulu l'appliquer sur le "vrai" document concerné et là impossible de le faire fonctionner.

Il m'indique toutes les données que je veux sauf le n° de la semaine...
Quelqu'un pourrait il m'aider car, je pense que se ne sera pas la seule modif que j'effectuerai sur ce document...

Merci pour votre aide

 

Pièces jointes

• MC_Plastique.xlsm

  453.5 KB · Affichages: 51
• MC_Plastique.xlsm

  453.5 KB · Affichages: 56
• MC_Plastique.xlsm

  453.5 KB · Affichages: 45

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Août 2013

• #9

Re : N° Semaine VBA

Re

Fichier protégé !! pas glop !! pas glop !!!

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2013

• #10

Re : N° Semaine VBA

Bonsour®

fichier protégé...

 

Vote positif 0 Vote négatif

N

Nimbus

XLDnaute Occasionnel

• 26 Août 2013

• #11

Re : N° Semaine VBA

Oups! désolé

Voila

 

Pièces jointes

• MC_Plastique.xlsm

  437 KB · Affichages: 53
• MC_Plastique.xlsm

  437 KB · Affichages: 55
• MC_Plastique.xlsm

  437 KB · Affichages: 52

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Août 2013

• #12

Re : N° Semaine VBA

Re

voila c'est corrigé

 

Pièces jointes

• MC_Plastique (2).xlsm

  425.1 KB · Affichages: 67

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2013

• #13

Re : N° Semaine VBA

Bonsour®
modifier la proc pour utiliser,
l'une ou l'autre des ces 2 possibilités :

VB:

Cells(newRecord, 2) = NOSEM(Now)

Cells(newRecord, 2) = SemIso(Now)

 

Vote positif 0 Vote négatif

N

Nimbus

XLDnaute Occasionnel

• 26 Août 2013

• #14

Re : N° Semaine VBA

Pierrejean,

Je viens d'essayer ton programme et il ne fonctionne pas...
Rien ne s'affiche dans ma colonne "N° Sem."

Et j'avoue ne pas trouver l'erreur.

Pourrais tu m'aider??

Merci

 

Pièces jointes

• MC_Plastique.xlsm

  238.7 KB · Affichages: 82
• MC_Plastique.xlsm

  238.7 KB · Affichages: 77
• MC_Plastique.xlsm

  238.7 KB · Affichages: 75

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 26 Août 2013

• #15

Re : N° Semaine VBA

Bonsour®
il faut copier les fonctions fournies par PierreJean ou moi-même dans un de tes modules standard,
puis comme indiqué précédemment modifier la partie de code mettant a jour les données...

 

Vote positif 0 Vote négatif