Numéro de semaine du mois en cours

[GHISLAIN]

Bonjour le forum,

Je trouve sur le forum pour afficher le numéro de semaine par rapport a une date ou inversement mais rien qui réponde a ma recherche .

Je cherche un code VBA qui par rapport a deux textbox , un comprenant l’année et le second le mois , me liste les numéros de semaine sur le mois sélectionné.

Si textbox1 = 2016
et textbox2 = Octobre
Alors semaine 39, semaine40, semaine 41 ......semaine 44


.Range("as" & .Range("as" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = semaine et X



Si textbox1 = 2016
et textbox2 = aout
Alors semaine 31, semaine32, semaine 33 et semaine 35

.Range("as" & .Range("as" & Rows.Count).End(xlUp).Row).Offset(1, 0).Value = semaine et X


Merci a tous de vos suggestions

Amicalement Ghislain

 

[Lone-wolf]

Bonjour GHISLAIN

Il faut aussi ajouter les jours. Sinon c'est impossible. En PJ avec MonthView. Double-clique sur la feuille, clique ensuite sur le label en couleur, insère une date.

 

[Modeste geedee]

Je cherche un code VBA qui par rapport a deux textbox , un comprenant l’année et le second le mois , me liste les numéros de semaine sur le mois sélectionné.

Si textbox1 = 2016
et textbox2 = Octobre

SemaineDébut= WeekNum(DateValue(textbox2 & "1"& textbox1))
SemaineFin=WeekNum(EoMonth(DateValue(textbox2 & "1"& textbox1))

 

[Lone-wolf]

Bonjour Modeste

Erreur: weeknum > fonction non définie

 

[Modeste geedee]

Bonjour Modeste

Erreur: weeknum > fonction non définie

peut-être NumWeek ?

 

[GHISLAIN]

bonjour Lone-wolf,Ce lien n'existe plus,

Merci a vous deux de vous être penché sur mon post.
j'essaie de mettre en place la proposition de Modeste mais sans y parvenir .
je cherche encore

merci

 

[Lone-wolf]

Re Modeste

Ce n'est pas une réponse. Tu n'aurais pas oublié quelque chose ?

 

[ROGER2327]

Bonjour à tous.

À défaut d'un support concret, un essai à tripatouiller...

Bonne soirée.

ℝOGER2327
#8378

Vendredi 27 Haha 144 (Occultation d’Alfred Jarry - fête Suprême Première seconde)
11 Brumaire An CCXXV, 7,6978h - salsifis
2016-W44-2T18:28:29Z

 

[Lone-wolf]

Bonjour Roger, Modeste, GHISLAIN , le Forum

@Roger2327 : un petit ajout dans ton fichier

 

[ROGER2327]

Re...

Bonjour Roger, Modeste, GHISLAIN , le Forum

@Roger : un petit ajout dans ton fichier

Sûr que c'est plus clair sous cette forme. (Je ne l'avais pas fait pour respecter la demande.)
Mais, tant qu'à faire, inutile de recalculer des choses déjà calculées. Voyez la pièce jointe avec un code exploitant les possibilités de l'existant.​

P. s. : Ce @Roger, ce n'est pas moi.

Bonne journée.

ℝOGER2327
#8379

Samedi 28 Haha 144 (Fuite d’Ablou - fête Suprême Quarte)
12 Brumaire An CCXXV, 4,6488h - macre
2016-W44-3T11:09:26Z

 

[Lone-wolf]

Re

Merci Roger2327

Bonne journée.

 

[GHISLAIN]

bonjour a tous ,
je vois que mon post a donné a discutions et a penser ;-)
je vous remercie vivement tous de vos solutions apportées et qui répondent a mes attentes

Bien Amicalement

Ghislain