Code macro pour transposer une feuille
Résolu/Fermé
cooljuly
Messages postés
40
Date d'inscription
mercredi 23 mars 2016
Statut
Membre
Dernière intervention
6 septembre 2016
-
31 mars 2016 à 15:51
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 11 avril 2016 à 14:14
cooljuly Messages postés 40 Date d'inscription mercredi 23 mars 2016 Statut Membre Dernière intervention 6 septembre 2016 - 11 avril 2016 à 14:14
A voir également:
- Code macro pour transposer une feuille
- Code asci - Guide
- Code puk bloqué - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Code telephone oublié - Guide
- Code blocks free - Télécharger - Langages
1 réponse
via55
Messages postés
14401
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
17 avril 2024
2 701
31 mars 2016 à 21:08
31 mars 2016 à 21:08
Bonjour cooljuly
Macro à mettre dans un module et à lancer depuis la feuille Consolidation
Tu peux rajouter en début de macro une instruction pour effacer la feuille Synthèse si nécessaire, style
Sheets("Synthèse").Range("A1:Z2000).ClearContents
Cdlmnt
Via
Macro à mettre dans un module et à lancer depuis la feuille Consolidation
Sub transfert()
Dim Ligne As Long, DernCol As Integer
'derniere colonne remplie en ligne1 de la feuille active
DernCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
'derniere ligne remplie en colonne 1 de la feuille active
Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
'selectionne plage et copie
Range(Cells(1, 1), Cells(Ligne, DernCol)).Select
Selection.Copy
' colle dans Synthèse
Sheets("Synthèse").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
Tu peux rajouter en début de macro une instruction pour effacer la feuille Synthèse si nécessaire, style
Sheets("Synthèse").Range("A1:Z2000).ClearContents
Cdlmnt
Via
11 avril 2016 à 14:14