Discussion :

[hortencia]

Bonjour a tous,

Est ce quelqu'un saurait comment faire pour copier les données d'une colonne, d'une année à l'autre.
En colonne A j'ai des dates du 1er Janvier 2011 à l' "infini".

J'aimerais copier les données qu'il y a sur la colonne A du 1er Janvier 2011 au 31 Décembre 2011, toujours sur la colonne A mais du 1er Janvier 2012 au 31 Décembre 2012.

Et c'est là que ça se complique je voudrais le généraliser.
Si je lance ma macro en 2012, il devrait copier les données de 2011 sur 2012.
Si je lance ma macro en 2013, il devrait copier les données de 2012 sur 2013.

Je ne sais pas si c'est claire.
Rien qu'en l'énonçant, ça me parait infaisable !!!!!!

Quelqu'un aurait t-il une solution à me proposer ?

Trés cordialement.

[redstoff]

Bonjour,

Je pense que c'est possible, mais pour moi j'aurais besoin de plus d'information.

Peux tu mettre une photo de ton fichier ou ton fichier directement pour que je puisse regarder

[hortencia]

Merci de ta réponse
Excuse moi je viens à peine de la voir.

Voila le fichier test.

Il y a des dates en colonne A.
Et de données en fonction des dates en colonne B.
Le tout sur l'année 2010.

Merci de ton aide.
Trés sincèrement.

[ZebreLoup]

Essaie ce code, il fonctionne si les dates sont toujours dans l'ordre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Public Sub test()
    copieAnnee 2010, 2011
End Sub
 
Public Sub copieAnnee(ByVal anneeSource As Integer, ByVal anneeCopie As Integer)
    Dim firstRow, lastRow, corresRow, i As Integer
    Dim rg As Range
    Set rg = Worksheets("Feuil1").Range("A:A")
    Dim dt As Date
 
    firstRow = WorksheetFunction.Match(CDbl(DateSerial(anneeSource, 1, 1)), rg, 1)
    lastRow = WorksheetFunction.Match(CDbl(DateSerial(anneeSource, 12, 31)), rg, 1)
    If Year(rg.Cells(firstRow, 1)) < anneeSource Then firstRow = firstRow + 1
 
    For i = firstRow To lastRow
        dt = rg.Cells(i, 1).Value
        On Error Resume Next
        corresRow = WorksheetFunction.Match(CDbl(DateAdd("yyyy", 1, dt)), rg, 0)
        If Err.Number = 0 Then
            rg.Cells(corresRow, 1).Offset(0, 1).Value = rg.Cells(i, 1).Offset(0, 1).Value
        End If
        On Error GoTo 0
    Next i
End Sub