Copier coller un range de cellule en colonne tous les jours

Bonjour,

je suis débutant en VBA ...

J'aimerais pouvoir Copier coller une meme colonne d'un tableau A Feuil1 (G5:G30) sur un tableau B feuil2 (G55:G80) tous les jours en décalant la nouvelle colonne sur la droite de celle de la veille -- > soit en (H55:H80) .....(I55:I80) ..

quelqu'un peut il m'aider ?

Salut Gérard,

• noms des feuilles A et B ?
• en automatique à l'ouverture du fichier ?
• manuel ?

* clic ou double-clic quelque part ?

A+

Merci pour votre réponse,

nom de la feuille A = "GG 2017" nom de la feuille B = "Archive"

oui en automatique à l'ouverture du classeur.

La macro peut elle démarrer 2 minutes après l'ouverture du tableur ? si oui alors choisir cette option.

pas de bouton et pas de clic

@+

pouvez vous m'aider ?

Bonsoir Gérard, Bonsoir Curulis

Je pense que tu dois mettre cela dans l'évènement autopen de ton classeur

Sheets ("Archive").Range("G55:G80").Value = Sheets("GG 2017").Range("G5:G30").Value

Après pour faire évoluer, je ne vois pas à première vue et je n"ai pas le temps ce soir, désolée

Essaie déjà cela

Bye

merci pour votre reponse, c'est super sympa !!

En effet en le mettant dans autopen le fichier se met à jour automatiquement mais j'aimerais que la macro demarre 1fois chaque jour et non pas à chaque ouverture du fichier.

pouvez-vous m'indiquer comment faire démarrer ma macro 1 fois par jour meme si j'ouvre mon tableur 5 fois par jour ?

Merci

Salut Gérard,

Salut l'équipe,

Pour éviter que la macro copie plusieurs fois les données un même jour, j'actualise la date en 'GG 2017' [AA1].

Il reste deux ambigüités :

- Est-ce vraiment la même colonne chaque jour où, elle aussi, évolue-t-elle en même temps que la colonne de copie?

° [G5:G30] -> [G55:G80] ==> [H5:H30] -> [H55:H80]...

° ou [G5:G30] -> [G55:G80] ==> [G5:G30] -> [H55:H80]

- corollaire, la première copie commence-t-elle en 'Archive' [G55] ?

Dans 'THISWORBOOK', tu colles ceci :

Private Sub Workbook_Open()
'
Application.OnTime Now + TimeValue("00:02:00"), "CopieColonne"
'
End Sub

Dans le Module1, ceci :

Public Sub CopieColonne()
'
Dim sWk As Worksheet
Set sWk = Worksheets("Archive")
'
With Worksheets("GG 2017")
    If CDate(.[AA1]) <> Date Then
        .[AA1] = Date
        iCol = sWk.Cells(55, Columns.Count).End(xlToLeft).Column + 1
        If iCol < 7 Then iCol = 7
        sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
        sWk.Range(sCol & 55 & ":" & sCol & 80).Value = .Range("G5:G30").Value
    End If
End With
'
End Sub

A adapter en fonction des réponses aux questions ci-dessus...

A+

merci pour votre reponse

j'ai du adapter la macro mais ca fonctionne !!!

encore merci .. vous etes top !!!