Transposer plages de données
Bonjour à tous les amoureux d'Excel
Je découvre petit à petit avec émerveillement la puissance d'excel et de vba. j'ai toujours réussi à trouver les réponses à mes questions sur les forums mais là je cale .
j'aimerais pouvoir transposer plusieurs plages de données n fois qu'il y a de colonnes. je pense que le fichier joint est bien plus explicite
Merci d'avance de votre aide.
Bonjour
Merci de compléter ton profil en indiquant ta version Excel
Une solution PowerQuery, intégré à Excel à partir de 2016, en add on à partir de 2010
Actualiser par Données, Actualiser tout si le tableau initial évolue
Bonjour Yanov, 78chris, le forum,
Un essai par macro....
[EDIT] : correction d'un bug...
Sub Bouton1_Cliquer()
Dim tablo, tabloN(), tabloT(), tabloP(), k%, i%, j%
Sheets("Feuil2").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
With Sheets("Feuil1")
j = 3
Do While j <= 5
k = 0
tablo = .Range("A2").CurrentRegion
For i = 3 To UBound(tablo, 1)
ReDim Preserve tabloN(1 To 4, 1 To k + 1)
tabloN(1, 1 + k) = tablo(i, 1)
tabloN(2, 1 + k) = tablo(i, 2)
If tablo(i, 1) <> "" Then tabloN(3, k + 1) = .Cells(2, j)
tabloN(4, 1 + k) = tablo(i, j)
k = 1 + k
Next i
On Error Resume Next
Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1).Resize(UBound(tabloN, 2), 4) = Application.Transpose(tabloN)
Sheets("Feuil2").Columns.AutoFit: Sheets("Feuil2").Columns.HorizontalAlignment = xlLeft
Erase tabloN
j = j + 1
Loop
End With
Sheets("Feuil2").Activate
End SubCordialement,
Bonjour le forum !
@78chris ma version d'Excel est 2019 mais je ne connais ni la solution "PowerQuery" ni "en add on". je vais les explorer car il est toujours bon d'apprendre.
@xorsankukai c'est exactement ce que je veux
Franchement MERCI les gars . vous êtes des killers
Bonjour
PowerQuery est totalement intégré à Excel 2019 et accessible depuis l'onglet données