TRANSPOSITION DE DONNEES

Résolu

VINCEADONF62 Messages postés 6 Date d'inscription mardi 10 septembre 2013 Statut Membre Dernière intervention 25 septembre 2017 - 14 sept. 2017 à 16:55
vb95 Messages postés 3441 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 3 décembre 2023 - 25 sept. 2017 à 15:19

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

A voir également:

TRANSPOSITION DE DONNEES
Récupérer données json (javascript) - Conseils pratiques -Javascript
Base de données javascript - Conseils pratiques -Javascript
Nomenclature base de données - Conseils pratiques -PHP
Connexion base de données - Conseils pratiques -PHP
Les données en arabe ✓ - Forum PHP

1 réponse

Réponse 1 / 1

cs_MPi Messages postés 3877 Date d'inscription mardi 19 mars 2002 Statut Membre Dernière intervention 17 août 2018 22
15 sept. 2017 à 14:40

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

VINCEADONF62 Messages postés 6 Date d'inscription mardi 10 septembre 2013 Statut Membre Dernière intervention 25 septembre 2017
25 sept. 2017 à 13:52

Super !
Merci cà fonctionne à merveille !
Un grand merci à toi

Vincent

vb95 Messages postés 3441 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 3 décembre 2023 165 > VINCEADONF62 Messages postés 6 Date d'inscription mardi 10 septembre 2013 Statut Membre Dernière intervention 25 septembre 2017
Modifié le 25 sept. 2017 à 15:20

Bonjour
Reste alors à marquer ce post comme résolu ( voir au début du post "Marquer comme Résolu"
Merci

Discussions similaires

Prob de Restauration base de données

Chargement de données

Base de données voitures Marques et Modeles

Erreur de conversion du type de données varchar en numeric.

conception base de données e-commerce

Votre réponse

Discussions similaires