Numérotation automatique des semaines (Pierrot93)

Paritec

XLDnaute Barbatruc

• 7 Janvier 2010

• #2

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 🙂

Code:

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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 7 Janvier 2010

• #3

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+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Janvier 2010

• #4

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 🙂

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 7 Janvier 2010

• #5

Re : Numérotation automatique des semaines (Pierrot93)

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 7 Janvier 2010

• #6

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Janvier 2010

• #7

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 🙂

Code:

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

 

Dernière édition: 7 Janvier 2010

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 7 Janvier 2010

• #8

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour, Pascal21 et merci pour ta proposition.

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

Merci.
A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Janvier 2010

• #9

Re : Numérotation automatique des semaines (Pierrot93)

Bonjour à tous

Souvenez-vous tout de même que la formule

Code:

[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

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 7 Janvier 2010

• #10

Re : Numérotation automatique des semaines (Pierrot93)

ROGER2327 à dit:

Bonjour à tous

Souvenez-vous tout de même que la formule

Code:

[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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 7 Janvier 2010

• #11

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 🙂

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 7 Janvier 2010

• #12

Re : Numérotation automatique des semaines (Pierrot93)

Re...

degap05 à dit:

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

Cliquez pour agrandir...

Voyez le classeur joint...​

ROGER2327
#2560

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Janvier 2010

• #13

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

 

Vote positif 0 Vote négatif