Bonsoir,
Merci à toutes les personnes qui ont repondu ci dessus. J'arrive sans problème à entasser des centaines de colonnes l'une sous l'autre dans la meme colonne. Cependant, dans le cadre de mon travail de recherche j'aurai besoin d'entasser un duo de colonnes ( Colonne Nom et colonne prenom) deux sous deux.
Bonjour,
Votre demande serait plus visible dans un nouveau sujet de la section "Excel - VBA".
Une proposition de macro :
Sub Transpose()
Dim Lig As Long, LigMax As Long, Col As Integer, ColMax As Integer, i As Long
With Sheets("Source") 'Nom feuille à adapter
LigMax = .Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne (basé sur colonne "A")
ColMax = .Cells(1, Columns.Count).End(xlToLeft).Column 'Dernière colonne (basé sur ligne 1)
For Col = 1 To ColMax Step 2 'Boucle sur les colonnes (par pas de 2)
For Lig = 1 To LigMax 'Boucle sur les lignes
i = i + 1 'Incrémente le compteur des lignes de destination
Sheets("Destination").Cells(i, 1) = .Cells(Lig, Col) '1ère colonne
Sheets("Destination").Cells(i, 2) = .Cells(Lig, Col + 1) '2ème colonne
Next Lig
Next Col
End With
End Sub
Votre fichier modifié :