Si A1 contient une date, alors : =NO.SEMAINE(A1;1) ou =NO.SEMAINE(A1;2)
Serge
"HD" a écrit dans le message de news: #
Bonjour,
Comment peut on avoir le numéro de la semaine à partir d'une date?
Merci d'avance. -- @+ HD
papou
Bonjour HD Télécharger et installer la macro complémentaire Morefun.xll de laurent Longre ici : http://longre.free.fr/index.html Et utiliser la fontion NUM.SEMAINE
Cordialement Pascal
"HD" a écrit dans le message de news:%
Bonjour,
Comment peut on avoir le numéro de la semaine à partir d'une date?
Merci d'avance. -- @+ HD
Bonjour HD
Télécharger et installer la macro complémentaire Morefun.xll de laurent
Longre ici :
http://longre.free.fr/index.html
Et utiliser la fontion NUM.SEMAINE
Cordialement
Pascal
"HD" <hd@anti.spam.fr> a écrit dans le message de
news:%23peu6Oj9DHA.328@tk2msftngp13.phx.gbl...
Bonjour,
Comment peut on avoir le numéro de la semaine à partir d'une date?
Bonjour HD Télécharger et installer la macro complémentaire Morefun.xll de laurent Longre ici : http://longre.free.fr/index.html Et utiliser la fontion NUM.SEMAINE
Cordialement Pascal
"HD" a écrit dans le message de news:%
Bonjour,
Comment peut on avoir le numéro de la semaine à partir d'une date?
Merci d'avance. -- @+ HD
HD
installer la macro complémentaire Morefun.xll
Sans installer la macro complémentaire... comment peut on le faire en vba ?
Mon problème est que la macro doit être applicable sur n'importe quel poste qu'il y'ai des macros complémentaires ou non...
-- @+ HD
installer la macro complémentaire Morefun.xll
Sans installer la macro complémentaire... comment peut on le faire en vba ?
Mon problème est que la macro doit être applicable sur n'importe quel poste
qu'il y'ai des macros complémentaires ou non...
Sur le site de http://www.cathyastuce.com/vba/ex_fonctions_ex.htm
Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :
Public Function NoSem(UneDate As Date) As Integer On Error Resume Next NoSem = CInt(Format(UneDate, "ww", vbMonday, vbFirstFourDays)) End Function
-- @+ HD
AV
Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :
Avec qques erreurs..... !
Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans) If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then NUMSEM_ISO_europ = 52 Exit Function End If If Weekday(cel) = 2 And Month(cel) = 12 And Day(cel) > 28 Then NUMSEM_ISO_europ = 1 Else: NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2) End If End Function
AV
Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère
semaine = 1ère semaine de 4 jours) :
Avec qques erreurs..... !
Une :
Function NUMSEM_ISO_europ(cel As Range) 'av
'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400
ans)
If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then
NUMSEM_ISO_europ = 52
Exit Function
End If
If Weekday(cel) = 2 And Month(cel) = 12 And Day(cel) > 28 Then
NUMSEM_ISO_europ = 1
Else: NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2)
End If
End Function
Cette fonction donne le numéro de la semaine selon la norme Européenne (1ère semaine = 1ère semaine de 4 jours) :
Avec qques erreurs..... !
Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans) If Day(cel) = 2 And Month(cel) = 1 And Year(cel) Mod 400 = 101 Then NUMSEM_ISO_europ = 52 Exit Function End If If Weekday(cel) = 2 And Month(cel) = 12 And Day(cel) > 28 Then NUMSEM_ISO_europ = 1 Else: NUMSEM_ISO_europ = DatePart("ww", cel, 2, 2) End If End Function
AV
HD
Avec qques erreurs..... ! Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette fonction pour analyser des saisies de temps. Donc pour les années 2002 jusqu'à ???... mais je pense qu'en 2101 j'utiliserais un autre logiciel que mon bon vieux Excel 97 ;) -- @+ HD
Avec qques erreurs..... !
Une :
Function NUMSEM_ISO_europ(cel As Range) 'av
'bug des dimanches 2 janvier pour les années 2101, 2501
(etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette fonction pour
analyser des saisies de temps. Donc pour les années 2002 jusqu'à ???... mais
je pense qu'en 2101 j'utiliserais un autre logiciel que mon bon vieux Excel
97 ;)
--
@+
HD
Avec qques erreurs..... ! Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette fonction pour analyser des saisies de temps. Donc pour les années 2002 jusqu'à ???... mais je pense qu'en 2101 j'utiliserais un autre logiciel que mon bon vieux Excel 97 ;) -- @+ HD
Modeste
bonjour, un formule récment communiquée ici-même auteur christophe Pejout : =ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1 Elle est basée sur la régularité du calendrier, qui redevient identique tous les 28 ans ; elle n'est donc plus valable après 2100, qui ne sera pas bissextile (après le 28 décembre 2104 exactement) : Microsoft a 100 ans pour s'adapter à l'Europe !
@+
-----Message d'origine-----
Avec qques erreurs..... ! Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette fonction pour
analyser des saisies de temps. Donc pour les années 2002 jusqu'à ???... mais
je pense qu'en 2101 j'utiliserais un autre logiciel que mon bon vieux Excel
97 ;) -- @+ HD
.
bonjour,
un formule récment communiquée ici-même
auteur christophe Pejout :
=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1
Elle est basée sur la régularité du calendrier, qui
redevient identique tous
les 28 ans ; elle n'est donc plus valable après 2100, qui
ne sera pas
bissextile (après le 28 décembre 2104 exactement) :
Microsoft a 100 ans pour
s'adapter à l'Europe !
@+
-----Message d'origine-----
Avec qques erreurs..... !
Une :
Function NUMSEM_ISO_europ(cel As Range) 'av
'bug des dimanches 2 janvier pour les années 2101, 2501
(etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette
fonction pour
analyser des saisies de temps. Donc pour les années 2002
jusqu'à ???... mais
je pense qu'en 2101 j'utiliserais un autre logiciel que
mon bon vieux Excel
bonjour, un formule récment communiquée ici-même auteur christophe Pejout : =ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1 Elle est basée sur la régularité du calendrier, qui redevient identique tous les 28 ans ; elle n'est donc plus valable après 2100, qui ne sera pas bissextile (après le 28 décembre 2104 exactement) : Microsoft a 100 ans pour s'adapter à l'Europe !
@+
-----Message d'origine-----
Avec qques erreurs..... ! Une : Function NUMSEM_ISO_europ(cel As Range) 'av 'bug des dimanches 2 janvier pour les années 2101, 2501 (etc...intervalle 400 ans)
Merci AV pour ces précisions... Je vais utiliser cette fonction pour
analyser des saisies de temps. Donc pour les années 2002 jusqu'à ???... mais
je pense qu'en 2101 j'utiliserais un autre logiciel que mon bon vieux Excel
97 ;) -- @+ HD
.
HD
Merci les amis... Je note c'est toujours bon à savoir.
-- @+ HD
Merci les amis... Je note c'est toujours bon à savoir.
