Copie d'une plage à l'autre

[hortencia]

Bonsoir le forum,

J'ai du mal a trouver les mots pour expliquer ce que je souhaiterais faire donc je vais donner un exemple.

J'ai un classeur :

- en Colonne A => des dates du 01Novembre 2010 au 31 Décembre 2012
- de Colonne B à E => quelques cellules contiennent des données (entiers), jusqu'à la date du jour, les autres sont vides.


Je souhaiterais faire une macro qui lorsqu'on la lance, copie la plage correspondant aux 365 jours précédants sur les 365 jours qui arrivent.

Plus précisément:
- Aujourd'hui on est le 09.
- Si je lance ma macro aujourd'hui, je souhaiterais que toutes les cellules du 09 Novembre 2010 au 08 Novembre 2011 soient copiées du 09 Novembre 2011 au 08 Novembre 2012.

J'espère que mon explication n'est pas trop confuse.

Merci d'avance de votre aide.

Cordialement;

[mercatog]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
Dim LigDeb As Long, LigFin As Long
Dim DteDeb As Date
Dim c As Range
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    DteDeb = DateAdd("yyyy", -1, Date)
    Set c = .Range("A:A").Find(DteDeb, LookIn:=xlFormulas, Lookat:=xlWhole)
    If Not c Is Nothing Then
        LigDeb = c.Row
        Set c = .Range("A:A").Find(Date, LookIn:=xlFormulas, Lookat:=xlWhole)
        If Not c Is Nothing Then
            LigFin = c.Row
            Set c = Nothing
            .Range("B" & LigDeb & ":E" & LigFin - 1).Copy .Range("B" & LigFin)
        End If
    End If
End With
End Sub