Copier/ coller de colonnes suivant date et numero de semaine

[jehu73]

Bonjour à tous

Voici mon besoin:
J'ai un tableau de donnée classée suivant les mois de l'année et j'ai besoin de copier les données du mois à n'importe quel moment dans un tableau classé par semaine.
suivant le numero de semaine indiqué j'ai besoin de faire une recherche du mois qui correspond à cette semaine pour copier les données de la colonne correspondante et les coller dans la colonne de la semaine indiquée.
Il est possibleque cette manipulation se fasse plusieur fois pour la m^me semaine donc besoin d'effacer les ancienns données et de copier les nouvelles.
je ne suis pas un pro en VBA et j'aimerai votre aide

Merci beaucoup

Je vous fais suivre le tableau concerné. je suis sous excel 2016 mais je l'envoie en 97

 

[Robert]

Bonjour Jehu, bonjour le forum,

Quand la semaine est sur deux mois différents, que faut-il faire (semaine 9 par exemple, du 27/02 au 05/3) ?

 

[Lolote83]

Salut JEHU73, Robert,
Peut être comme ceci, mais la remarque de Robert est très pertinente.
@+ Lolote83

 

[jehu73]

Si possible changer de mois en cours sinon prendre le mois de février.

 

[jehu73]

Merci lolote83 c'est vraiment excellent. juste une petite chose parcontre . comme je l'indique dans le fichier il n'y aura pas les 52 semaine de l'année. certainement une 10ene. donc les numero de semaine vont changer au cours de l'année dans le tableau. et je vois que si je déplace la semaine 6 ca ne prend pas en compte. y a t'il une solution.
merci encore pour votre aide

 

[Robert]

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R1 As Range 'déclare la variable R1 (Recherche 1)
Dim R2 As Range 'déclare la variable R2 (Recherche 2)
Dim R3 As Range 'déclare la variable R3 (Recherche 3)
Dim D As Date 'déclare la variable D (Date)

If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
If Target.Value = "" Then Exit Sub 'si A1 est effacée, sort de la procédure
Set R1 = Range("S1").CurrentRegion.Find(Target.Value, , xlValues, xlWhole) 'définit la première recherche R1 (recherche le numéro de la semaine dans la colonne S)
D = DateSerial(Year(R1.Offset(0, 1)), Month(R1.Offset(0, 1)), 1) 'définit la date D en fonction de l'occurrence trouvée
Set R2 = Range("B3:M3").Find(D, , xlFormulas, xlWhole) 'redéfinit la recherche R2 (recherche la date dans la plage B3:M3)
Set R3 = Range("B14:M14").Find(Target.Value, , xlValues, xlWhole) 'redéfinit la recherche R3 (recherche le numéro de la semaine dans la plage B14:M14)
R2.Offset(1, 0).Resize(7, 1).Copy R3.Offset(1, 0) 'copie les valeur du mois dans la cellule R3 décalé d'une ligne vers le bas
End Sub

 

[jehu73]

Pour ce qui est de la semaine à prendre en compte elle est indiqué dans le tableau jaune colonne U.

 

[jehu73]

Bonjour Robert
Merci pour ton aide.Par contre tes codes buggs à partir de IF. Ou alors je m'y prends mal
Peux tu m'aide sur ce point.
Merci

 

[Robert]

Re,

J'ai oublié de préciser que le code est à placer dans l'onglet et pas dans un module standard... Il agit dès que tu changes la valeur dans la cellule A1.

 

[jehu73]

Merci robert. je m'etais trompé dans la manipulation.vraiment super

 

[Lolote83]

Salut à tous.
Voici ton fichier en retour.
En imaginant que tu traites sur 12 semaines (de B à M).
@+ Lolote83

 

[jehu73]

Super Lolote83. Le cas que tu me propose est vraiment très intéressant. La seule contrainte pour moi c'est que je dois faire une comparaison entre les semaines et qu'une fois passé 12 semaine je fais une sorte de raz et donc je n'ai plus de vision en amont par exemple entre la semaine 10,11,12,13.

J'ai malheureusement cette contrainte. Ce qui m'aurai fallu c'est que je puisse changer à ma guise la ligne 14 tout en gardant une suite logique bien sûr.

Mais merci pour ce travail. J’en prends bonne note.

 

[jehu73]

est il possible de coller uniquement la valeur sans les formules
Merci