Numérotation automatique des semaines (Pierrot93)

[degap05]

Bonjour Pierrot93, bonjour le forum,

Selon ta macro, la numérotation des semaines se fait très bien.
Dans l'exemple du fichier joint, y a-t-il moyen de simplifier la macro, pour numéroter les 52 semaines et ajouter le mot "Semaine" dans la même cellule que le numéro?

Merci de ton (votre) aide.

A+

 

[Paritec]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour Maurice,
Je te souhaite une Bonne Anne 2010
dans la macro de Pierrot tu ajoutes
a+
Papou 🙂

Range("b2") = "Semaine " & DatePart("ww", Date, 2, 2)

 

[degap05]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour Paritec,

Merci de tes bons vœux. Reçois les miens en retour, ainsi qu'à Madame.

Merci également pour ta proposition.
Suis-je obligé de faire 52 lignes ou bien une formule magique, dont tu as le secret, serait-elle capable de simplifier cette macro ?

A+

 

[Paritec]

Re : Numérotation automatique des semaines (Pierrot93)

Rebonjour Maurice,
bah oui qu'on peut !!!
alors simplement tu veux conserver la disposition par 4 semaines et toutes les x lignes? comme ton exemple?
si oui on va te faire cela j'attend ta confirmation avant de faire
a+
papou 🙂

 

[degap05]

Re : Numérotation automatique des semaines (Pierrot93)

Oui j'aimerais bien garder cette disposition, comme dans l'exemple.
Merci.

 

[pascal21]

Re : Numérotation automatique des semaines (Pierrot93)

bonjour je ne suis pas pierrot mais j'ai une solution concernant le mot "semaine"
tu clic sur une cellule contenant ton N° de semaine et:
tu fais format/mise en forme conditionnelle/ standard/personnalisé(au bas de la liste) et là où il y a écrit standard tu rajoutes ceci( ce qui est en rouge uniquement)
"semaine N° " standard
et tu recopie sur les autres cellules
c'est garantie sans VBA

 

[Paritec]

Re : Numérotation automatique des semaines (Pierrot93)

Re Maurice le forum
voilà la modif si tu veux le fichier je te l'envoi autrement recopie la macro
a+
papou 🙂

Sub NumSemaine()
For j = 2 To 104 Step 8
For i = 2 To 8 Step 2
Cells(j, i) = " Semaine " & DatePart("ww", Date, 2, 2) + k
k = k + 1
Next: Next
End Sub

 

[degap05]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour, Pascal21 et merci pour ta proposition.

Paritec, parfait, comme d'habitude. Chapeau !!

Merci.
A+

 

[ROGER2327]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour à tous

Souvenez-vous tout de même que la formule

[COLOR="DarkSlateGray"][B]DatePart("ww", Date, 2, 2)[/B][/COLOR]

n'est qu'approximative.
Vous le vérifierez avec (entre autres) les dates suivantes :

lun. 31/12/2007
lun. 30/12/2019
lun. 29/12/2031
lun. 31/12/2035
lun. 30/12/2047
lun. 29/12/2059
​

toutes censées faire partie d'une improbable semaine 53 alors qu'elles appartiennent à l'évidence à la semaine 1 de l'année suivante.
​

ROGER2327
#2558

 

[degap05]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour à tous

Souvenez-vous tout de même que la formule

[COLOR="DarkSlateGray"][B]DatePart("ww", Date, 2, 2)[/B][/COLOR]

n'est qu'approximative.
Vous le vérifierez avec (entre autres) les dates suivantes :

lun. 31/12/2007
lun. 30/12/2019
lun. 29/12/2031
lun. 31/12/2035
lun. 30/12/2047
lun. 29/12/2059
​

toutes censées faire partie d'une improbable semaine 53 alors qu'elles appartiennent à l'évidence à la semaine 1 de l'année suivante.
​

ROGER2327
#2558

Bonjour,
Votre remarque est trop technique pour moi, mais je veux bien plus d'explications, avec notamment un exemple concret d'application.
Merci.

 

[Paritec]

Re : Numérotation automatique des semaines (Pierrot93)

Bonsoir Roger
Bonne Année 2010 et bonne santé
pour les dates je ne discuterai pas avec toi, de toutes façons tu as raison mais à l'échelle de 1 année c'est pas trop grave.
J'ai lu la dernière fois tes explications sur les dates j'avais mal à la tête après avoir lu tes 10 pages.
Bonne soirée
a+
papou 🙂

 

[ROGER2327]

Re : Numérotation automatique des semaines (Pierrot93)

Re...

Bonjour,
Votre remarque est trop technique pour moi, mais je veux bien plus d'explications, avec notamment un exemple concret d'application.
Merci.

Voyez le classeur joint...​

ROGER2327
#2560

 

[pierrejean]

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour a tous

Pour tester ma fonction personnalisée je l'ai ajoutée au fichier de ROGER