Code pour archiver des données hebdos

Question

bonjour,

Je voudrais archiver les données hebdos, et les passer d'un format horizontal (onglet Synthèse) à un format vertical (onglet Hist).

J'aimerais d'abord effectuer un copier coller valeur, puis transposer les données, et enfin appliquer la mise en forme comme ci dessous.

Comment créer un code pour faire cela, et aussi pour que chaque semaine je n'écrase pas les données précédentes?

Merci

gbinforme · Answer

Bonjour,

Avec ce que j'ai compris, tu peux essayer avec ce code basique :
Public Sub archive()
Dim col As Integer, lig As Long
    lig = Sheets("Synthèse").Cells(Rows.Count, 1).End(xlUp).Row
    col = Sheets("Hist").Cells(1, Columns.Count).End(xlToLeft).Column + 1
    Sheets("Synthèse").Cells(lig, 1).Resize(1, 5).Copy
    Sheets("Hist").Cells(1, col).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End Sub

Code pour archiver des données hebdos

1 réponse

Votre réponse