Posez votre question Signaler

TRANSPOSITION DE DONNEES [Résolu]

Messages postés
6
Date d'inscription
mardi 10 septembre 2013
Statut
Membre
Dernière intervention
25 septembre 2017
 - - Dernière réponse : vb95
Messages postés
2025
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
19 janvier 2020
 - 25 sept. 2017 à 15:19
VBA Office (Excel, Word ...) Posez votre question Signaler
Bonjour à tous,

voilà, j'ai une colonne de données (417 valeurs sur la Colonne A) que je souhaiterais transposer en 3 colonnes (A1 vers D1, A2 vers E1 et A3 vers F1, puis A4 vers D2, A5 > E2...)
Plutôt que de reprendre cette macro

Range("A1:A3").Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

et de la copier 139 fois en modifiant les valeurs, auriez-vous une astuce svp ?

Merci beaucoup !!

Vincent
Afficher la suite 

1 réponse

Signaler Commenter la réponse de cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
 15
0
Merci
Bonjour,

Essaie comme ceci 

Sub Transposer()
    Dim I As Long, nbLignes As Long, Dest As Long
    
    With Sheets("Feuil1")   'Changer le nom de la feuille au besoin
        nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row   'nombre de lignes en A
        Dest = 1    'Ligne de destination
        For I = 1 To nbLignes Step 3    'boucle en groupe de 3
            Range(Cells(I, 1), Cells(I + 2, 1)).Copy
            Range("D" & Dest).PasteSpecial Transpose:=True
            Dest = Dest + 1
        Next
    End With
End Sub
Signaler Commenter la réponse de VINCEADONF62
VINCEADONF62
Messages postés
6
Date d'inscription
mardi 10 septembre 2013
Statut
Membre
Dernière intervention
25 septembre 2017
 -
Super !
Merci cà fonctionne à merveille !
Un grand merci à toi

Vincent
Signaler Commenter la réponse de vb95
vb95
Messages postés
2025
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
19 janvier 2020
 80 > VINCEADONF62
Messages postés
6
Date d'inscription
mardi 10 septembre 2013
Statut
Membre
Dernière intervention
25 septembre 2017
 -
Bonjour
Reste alors à marquer ce post comme résolu ( voir au début du post "Marquer comme Résolu"
Merci
Commenter la réponse de cs_MPi
Répondre Posez votre question