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
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
A voir également:
- Code pour archiver des données hebdos
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
1 réponse
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
12 mars 2016 à 21:57
12 mars 2016 à 21:57
Bonjour,
Avec ce que j'ai compris, tu peux essayer avec ce code basique :
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


15 mars 2016 à 15:16
Peux tu me préciser comment coller de "Synthèse" cellules R4 à V4, en "Hist" cellules C6 à C9 ?
Merci !
15 mars 2016 à 15:43
@+
15 mars 2016 à 18:51
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 ?
17 mars 2016 à 13:17