indiquer la semaine avec macro

Baside

XLDnaute Impliqué

• 11 Juin 2005

• #2

Bonsoir François le forum

En faisant une recherche avec 'Semaine' on trouve différents posts dont celui ci Lien supprimé

Baside

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 11 Juin 2005

• #3

Bonsoir francois, Baside et le Forum,

Tout bête.. Pourquoi pas avec la fonction NO.SEMAINE

Par exemple : en A1 la date (en automatique : AUJOURD'HUI) ou n'inporte quelle date saisie. En a2 : No.semaine(a1) devrait fonctionner. Ou alors pas tout compris.

Bonne soirée à vous tous.

Jean-Pierre

 

Vote positif 0 Vote négatif

F

francois

Guest

• 11 Juin 2005

• #4

salut baside

j'ai ete voir sur tes liens.en fait je ne cherche pas a trouver une date a patir de chiffres mais plutot a afficher le numero de semaines ou l'on se situe independament de tout chiffres.

ce que je cherche c'est une macro qui automatiquement qd je vais ouvrir mon classeur va me donner le numero de semaines ou l'on se situe, meme si la page et vierge et en ne m'appuyant sur aucun chiffres.

c'est peut etre impossible en tout cas merci de m'aider

 

Vote positif 0 Vote négatif

F

francois

Guest

• 11 Juin 2005

• #5

salut jeanpierre

je pense que tu as raison mais comment mettre la date en automatique ds la cellule a1 je ne connais pas la manip

merci

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 11 Juin 2005

• #6

Re francois, Le Forum,

Si j'ai bien compris.... Il s'agit aussi d'une Fontion ; AUJOURD'HUI.

Si ce n'est pas ta question, tu reviens et on va voir.

Bonne soirée en tous cas.

Jean-Pierre

 

Vote positif 0 Vote négatif

F

francois

Guest

• 11 Juin 2005

• #7

un grand merci ca marche

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 11 Juin 2005

• #8

Bonjour,

La fonction No.Semaine() ne donne pas de bons résultats pour les Européens.

Calendrier 1900 seulement :
=ENT(MOD(ENT((AUJOURDHUI()-2)/7)+0,6;52+5/28))+1

Compatible 1900 - 1904 :
=ENT(MOD(ENT((AUJOURDHUI()-2+(JOURSEM(1)=7)*6)/7)+0,6+((JOURSEM(1)=7)*208);52+5/28))+1

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 11 Juin 2005

• #9

Re à tous, et à Monique en particulier,

J'utilise quelquefois NO.SEMAINE et je n'ai ajmais eu de problèmes particuliers, mais si notre amie Monique dit :
'La fonction No.Semaine() ne donne pas de bons résultats pour les Européens',
Il faut sans doute en tenir compte....

Du coup, je ne sais plus.

Bonne soirée à vous

Jean-Pierre

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 11 Juin 2005

• #10

Re,

Moi non plus, je n'ai jamais eu de problème,
ce n'est qu'un numéro, après tout.
Mais si tu veux le vrai vrai n°, selon les normes européennes, No.Semaine n'est pas bon
(cette année, par exemple, ce n'est pas bon)
Dans ce fichier à télécharger, tu as toute une panoplie :
https://www.excel-downloads.com/resources/dates-et-heures.221/

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 11 Juin 2005

• #11

Bonsoir à tous,

Un oeil sur le rugby et un autre sur le forum, 😱

Si donc j'ai bien compris, le N° de semaine peut être obtenu par une vieille macro du forum :

Sub macro ()

Range('A1').Value = Format(Date, 'ww')

End Sub

Cordialement

Bernard

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 11 Juin 2005

• #12

Bonsoir Bernard, Monique, Jean Pierre, François, le Forum


Je me pemets d'intervenir, attention Bernard, le code tel quel n'est pas juste :

Sub NumSemaineWW()
Dim TheDay As Date
TheDay = 38515 'demain le 12/06/2005 un dimanche

MsgBox Format(TheDay, 'ww')
End Sub

Cliquez pour agrandir...

En effet il va retourner 25, or demain c'est Dimanche, on passera en 25eme semaine que Lundi....

Il faut faire ceci pour être juste en VBA :

Sub NumSemainePartDate()
Dim TheDay As Date
TheDay = 38515 'demain le 12/06/2005 un dimanche

MsgBox DatePart('WW', TheDay, vbMonday, vbFirstFourDays)
End Sub

Cliquez pour agrandir...

Bien Sur la macro définitive se basera sur Date Directement comme ceci :

Private Sub Workbook_Open()
    Sheets('Feuil1').Range('A1') = DatePart('WW', Date, 2, 2)
End Sub

Cliquez pour agrandir...

Bonne Soirée
@+Thierry


EDITION !!!
Je me suis mélangé les pinceaux lol !!

Mais bon, les paramétres suivants sont les notres en Europe :
vbMonday 2 Lundi
vbFirstFourDays 2 Commencer par la première semaine comportant au moins quatre jours dans l'année nouvelle.

Voir Aide VBA à 'DatePart, fonction' ...

Message édité par: _Thierry, à: 11/06/2005 21:39

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 11 Juin 2005

• #13

Re à tous et bonsoir Thierry,


Effectivement, il ne faut pas oublier le 2 qui définit la semaine bien de chez nous et non pas la semaine anglo saxonne.

Donc, merci Thierry, je mets bien au chaud la fonction Datepart bien utile dans l'exemple ci-dessus et bien d'autres.

Cordialement

Bernard

 

Vote positif 0 Vote négatif