Déplacement d'une cellule en fonction de l'année

Bonjour à tous,

Je viens vers vous car je voudrais que ma macro se modifie dès lors que l'on change d année.
Je m explique j'ai créé une macro qui permet de copier des cellules d'un classeur dans un autre classeur.
Et je voudrais que mes cellules décale vers la droite dès lors que l'on change d'année pour ne pas perdre mes données que j'ai obtenu pour l'année 2014.
Par exemple, si en 2014 j'ai copier-coller dans ma cellule A1 je voudrais qu'en 2015 il soit coller dans la cellule C1.

Si quelqu'un à une idée je suis preneuse.
Merci d'avance.

as tu prévues une cellule pour sauvegarder l'année traité car si nom tu vas copier tout le temps tes valeur

Code:

---

1 2 3 4

if range("a1")<> year(date) then 'je copy range("a1")= year(date) end if

---

Bonjour rdurupt,

Non, il va copier -coller toujours dans la même cellule que j'ai mit dans mon code et moi je voudrais qu'il change de cellule dès lors que l'on change d'année.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub CopierColler()   Dim structure_clients_ As Workbook, structure_clients_gourmand As Workbook   Set structure_clients_ = ThisWorkbook Set structure_clients_gourmand = Application.Workbooks.Open(Filename:="C:\Users\SJH5594\Desktop\test\structure_clients_gourmand.xls")   Workbooks("structure_clients_gourmand").Sheets("par compteur colis").Range("A1") = Workbooks("structure_clients_").Sheets("par compteur colis").Range("C3").Value   structure_clients_gourmand.Close   End Sub

---

Merci encore

oui j'ai bien compris!
le problème est quand on s’aperçoit que l'on change d'année!
si j'ouvre mon fichier le 1/1/2015 ou le 2/1/2015!
si je ne me souviens pas que j'ai fait le traitement?????
comment je fais la différence? je comprends qu'il faut décaler d'une année à l'autre mais quand?

Quelque soit le jour il faut juste que l'on soit en 2015 je veux que ma cellule que je coller durant l'année 2014 en A1 va se coller mais une cellule vers la droite donc dans la cellule B1.

Bonjour, en faisant

Code:

---

Workbooks("structure_clients_gourmand").Sheets("par compteur colis").Cells(1, Year(Now) - 2013) = Workbooks("structure_clients_").Sheets("par compteur colis").Range("C3").Value

---

tu aurais les données les unes à côté des autres selon l'année actuelle (2014 -> A1, 2015 -> B1, 2016 -> C1 etc).
Ça reste du pur bricolage mais avec les maigres infos que tu nous donne je peux pas faire plus.

Merci létudiant68, sa fonctionne.
Par contre pourquoi tu as mis 2013 dans cells.

J'ai comprit pourquoi tu as mit 2013 mais je voulais également savoir si tu savais comment je pouvais faire si je voulais que ma cellule ou je veux coller ma variable ne soit pas A1 mais par exemple D9.

Merci encore.

Bonjour, nous sommes en 2014, Year(Now) renvoie l'année actuelle donc Year(Now) - 2013 = 2014 -2013 = 1, ce qui nous donne un Cells(1, 1) autrement dit la cellule situé sur la ligne 1 et la colonne 1.
Pour obtenir D9 il faut adapter le numéro de ligne et de colonne, pour la ligne il suffit de mettre 9 pour la colonne un petit calcul te donnera vite le résultat :
D est la 4ème colonne donc on veut que 2014 - X = 4 ce qui nous fait X = 2010
Il faut donc mettre

Code:

---

Cells(9, Year(Now) - 2010)

---

Merci bcp letudiant68 c'est exactement ce qu'il me fallait :P.