Compléter suite avec conditions

[Florian53]

Bonjour à tous,

Je souhaiterais compléter une liste :

En "A1" je dispose d'une valeur :

200109 --> Qui correspond à Année-Semaine

En "A2" :

201212

Est t-il possible par macro d’insérer des lignes et de compléter toutes les valeurs manquantes incrémenter avec la valeur "aaaa52" comme butée par année ?

Merci à vous

 

[Florian53]

J'ai réussi a transformer tout ça en date mais maintenant je ne vois plus par quel chemin prendre pour résoudre le problème

 

[Florian53]

Bonjour à tous,

Je pense être dans la bonne voie en faite sur une autre feuille j'ai récupérer la valeur de "A1" soit "200109" et en "A2" j'ai inscrit cette formule :

=SI(DROITE(A1;2)<52;(GAUCHE(A1;4)&(DROITE(A1;2)+1));(SI(DROITE(A1;2)=52;(GAUCHE(A1;4)+1&"1"))))

puis je l'ai tiré jusqu'en A2000.

Par contre cette formule bug quand les 1 chiffre de (DROITE(A1;2) est un 0.
Excel n'arrive pas à traiter 09<52

Avez vous une astuce ?

 

[michel_m]

Bonjour
essaies
=ENT(A1/100)&TEXTE(MOD(A1;100)+1;"00")

MAIS
tu as des années où il a une semaine 53 (si le 31/12 est un jeudi) comme en 2015...

 

[Florian53]

ça fonctionne, mais sa ne s’arrête pas à la semaine 52 ou 53, il faut que je fusionne la formule que j'ai mis ci dessus avec la vôtre ?

 

[Florian53]

Voici la formule à priori ça foncionne, mais je bloque toutes les années avec 53 semaines:

=SI(CNUM(DROITE(E1;2))<53;ENT(E1/100)&TEXTE(MOD(E1;100)+1;"00");(SI(CNUM(DROITE(E1;2))=53;(GAUCHE(E1;4)+1&SI(CNUM(DROITE(E1;2))<10;"0"&(CNUM(DROITE(E1;2))+1);CNUM(DROITE(E1;2))+1)))))

 

[michel_m]

Re,
pourquoi utiliser des cnum(droite....) alors qu'il existe la fonction MOD comme je te l'ai conseillé ?

usine à gaz pour tenir compte des fameuses semaines 53
=SI(MOD(A1;100)=52;SI(JOURSEM(DATE(ENT(A1/100);12;31))>=4;ENT(A1/100)&"53";ENT(A1/100)+1&"01");ENT(A1/100)&TEXTE(MOD(A1;100)+1;"00"))

 

[Modeste geedee]

Bonsour®

usine à gaz pour tenir compte des fameuses semaines 53 ...

en A1 : une date quelconque
en A2 : =A1+7
en B2 :
=ANNEE(A2-JOURSEM(A2;2)+4)&"_"&TEXTE(ENT(MOD(ENT((A2-2)/7)+3/5 ; 52+5/28))+1;"00")
sélectionner : A2:B2 et tirer vers le bas autant que nécessaire...

 

[michel_m]

Bonjour Modeste

Oui d'accord mais je me suis basé sur la demande de Florian avec une donnée en colonne A style 200534

 

[Florian53]

Merci à vous 2,

Ce lien n'existe plus: J'ai repris ton astuce mais comment passer de 200101 à 01/01/2001 du coup ?

 

[Modeste geedee]

Merci à vous 2,

Ce lien n'existe plus: J'ai repris ton astuce mais comment passer de 200101 à 01/01/2001 du coup ?

200101 correspond à la semaine 01 pour 2001... le premier jour de la semaine est un Lundi
l'année ne commence pas nécessairement un lundi, mais le premier jeudi de l'année appartient toujours à la semaine 01
mais il n'est donc pas garanti que le 1er janvier d'une année appartienne toujours à la première semaine

la formule que j'ai proposée renvoie Année_semaine pour le Jeudi de la date passée en référence.

 

[michel_m]

Donc, dans la colonne A il y avait la date et non ce que tu avais écris
En "A1" je dispose d'une valeur :
200109 --> Qui correspond à Année-Semaine

J'avoue que je n'y comprend plus rien

 

[Modeste geedee]

Donc, dans la colonne A il y avait la date et non ce que tu avais écris
En "A1" je dispose d'une valeur :
200109 --> Qui correspond à Année-Semaine

J'avoue que je n'y comprend plus rien

il ne peut y avoir unicité N°Sem<>date
un même N° semaine pouvant s'appliquer à 7 jours différents

 

[michel_m]

Merci de tes explications
mais dans la demande initiale la liste en colonne A est "hebdomadaire" sous la forme aaaaww "littéraire" et non sous forme de date comme dans ton classeur joint.... c'est ce que je comprend pas

par ex 20152 en colonne A d'près Florian
si le numéro de la semaine est 52, je regarde si le jour du 31/12 de l'année (2001) tombe un jeudi ou plus; si oui 53 sinon année +1 semaine 1

 

[Florian53]

Bonsoir à tous, je pense avoir reussi a palier ce problème de convertion de date:

En "B1", j'ai indiqué la formule "=(DATE(GAUCHE(A1;4);1;1))"

En "C1", "=TEXTE(ANNEE(B1-JOURSEM(B1;2)+4)&""&TEXTE(ENT(MOD(ENT((B1-2)/7)+3/5; 52+5/28))+1;"00");"0")"

A priori sa a l'air de fonctionner.

Encore un grand merci à vous 2