Transposer Excel
Bonjour,
Je souhaiterai obtenir de l'aide pour transposer un tableau de 2000 lignes.
Ci-joint ce que je souhaite effectuer (feuille 2)
Merci!
Bonjour,
Il n'est pas bien difficile de faire un petit travail de préparation en sélectionnant la colonne D de Parcelles.
Onglet Données Choisir avancé...
Cocher Copier vers un nouvel emplacement et extraction sans doublon
et choisir une cellule cible ou les données seront extraites dans mon exemple j'ai choisi K1 mais peu importe...
Insérer une nouvelle feuille (Nommée "Feuil1")
Copier/Coller la liste obtenue sans doublon dans la "Feuil1" colonne A
Ensuite exécuter la macro suivante :
Sub Test()
Dim o As Range
With Worksheets("Parcelles")
k = .Range("A1").End(4).Row
kk = Worksheets("Feuil1").Range("A1").End(4).Row
For Each o In Worksheets("Feuil1").Range("A2:A" & kk)
S = o.Value
For i = 2 To k
If .Cells(i, 4) = S Then
o.Offset(, x + 1) = .Cells(i, 1)
x = x + 1
End If
Next
x = 0
Next
End With
End SubYORAPUKA ajouter les en-tête que tu veux dans les colonnes B,C,D...
A+
Bonjour,
C'est exactement ce qu'il me fallait. Merci beaucoup