Posez votre question Signaler

TRANSPOSITION DE DONNEES [Résolu]

Messages postés
6
Date d'inscription
mardi 10 septembre 2013
Dernière intervention
25 septembre 2017
 - - Dernière réponse : vb95
Messages postés
1818
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
17 mars 2019
 - 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 

Votre réponse

Répondre au sujet

1 réponse

Signaler Commenter la réponse de cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Dernière intervention
23 août 2018
 16
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
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
1818
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
17 mars 2019
 63 > VINCEADONF62
Messages postés
6
Date d'inscription
mardi 10 septembre 2013
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

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.