Code pour archiver des données hebdos

Fermé

NNNNAAAA Messages postés 3 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 17 mars 2016 - 11 mars 2016 à 16:37
NNNNAAAA Messages postés 3 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 17 mars 2016 - 17 mars 2016 à 13:17

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

A voir également:

Code pour archiver des données hebdos
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

1 réponse

Réponse 1 / 1

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
12 mars 2016 à 21:57

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

NNNNAAAA Messages postés 3 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 17 mars 2016
15 mars 2016 à 15:16

Ok merci pour la réponse!

Peux tu me préciser comment coller de "Synthèse" cellules R4 à V4, en "Hist" cellules C6 à C9 ?

Merci !

Utilisateur anonyme
15 mars 2016 à 15:43

Com restauré.

@+

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 713
15 mars 2016 à 18:51

Bonjour,

comment coller de "Synthèse" cellules R4 à V4, en "Hist" cellules C6 à C9 ?

Pourquoi avoir posé une question avec des données tout à fait différentes ?

NNNNAAAA Messages postés 3 Date d'inscription vendredi 11 mars 2016 Statut Membre Dernière intervention 17 mars 2016
17 mars 2016 à 13:17

Je n'ai pas réussi à joindre le fichier excel, j'ai fait des copies écran aménagées.

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...