VINCEADONF62
Messages postés6Date d'inscriptionmardi 10 septembre 2013StatutMembreDernière intervention25 septembre 2017
-
14 sept. 2017 à 16:55
vb95
Messages postés3441Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDerniè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
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 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és6Date d'inscriptionmardi 10 septembre 2013StatutMembreDernière intervention25 septembre 2017 25 sept. 2017 à 13:52
Super !
Merci cà fonctionne à merveille !
Un grand merci à toi
Vincent
vb95
Messages postés3441Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention 3 décembre 2023165
>
VINCEADONF62
Messages postés6Date d'inscriptionmardi 10 septembre 2013StatutMembreDernière intervention25 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
25 sept. 2017 à 13:52
Merci cà fonctionne à merveille !
Un grand merci à toi
Vincent
Modifié le 25 sept. 2017 à 15:20
Reste alors à marquer ce post comme résolu ( voir au début du post "Marquer comme Résolu"
Merci