Transformer tableau en colonne

sharkantipav · 5 Mai 2014

Bonjour,
J'essaye de transformer un tableau en colonne a l'aide de vba... ss succes
J'ai un tableau contenant 8 Collonne 2 par 2...
J'ai essaye de copier coller 2 collonne a la suite
et puis de trier et deffacer les cellules blanches sans succes

J'ai attache un fichier -- Je souhaite transformer la partie Bleu> mon resultat souhaite est la partie jaune....

Merci de votre aide

Staple1600 · 5 Mai 2014

Re : Transformer tableau en colonne

Bonsoir à tous

sharkantipav
Poser des questions, c'est bien, assurer leur suivi c'est mieux
j'attends toujours de tes nouvelles dans ces trois discussions que tu as initiées...
https://www.excel-downloads.com/threads/mass-emailing-vba.219827/
https://www.excel-downloads.com/threads/creation-de-fichier-excel-personnalise.219775/
https://www.excel-downloads.com/threads/poster-un-fichier-sur-un-serveur-https.219126/

sharkantipav · 5 Mai 2014

Re : Transformer tableau en colonne

Hello Staple1600
MErci pr ta reponse constructive.
Sur les 2 premiere post.... je nais pas eu de reponse... gessaye de les supprimer.. ss arriver a le faire...

Staple1600 · 5 Mai 2014

Re : Transformer tableau en colonne

Re

Je t'ai répondu dans les trois discussions il me semble, non ?

Sinon pour ta question ici, essaies cette macro

Code:

Sub a()
Dim i&
With ActiveSheet.UsedRange.Value = .UsedRange.Value: End With
For i = 3 To 8 Step 2
Range(Cells(1, i), Cells(Rows.Count, i).End(3)).Resize(, 2).Cut _
Cells(Rows.Count, 1).Resize(, 2).End(3)(2)
Next
Range(Cells(1, 1), Cells(Rows.Count, 1).End(3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").CurrentRegion.Sort Key1:=[A1], Order1:=xlAscending
End Sub

sharkantipav · 5 Mai 2014

Re : Transformer tableau en colonne

Merci pr ta reponse.... Jai une erreur de compilation Invalid Reference par rapport a .UsedRange ... une idee d'ou ca peut venir

Thx

Staple1600 · 5 Mai 2014

Re : Transformer tableau en colonne

Re

Essaies comme ceci alors (test OK sur ta PJ)

Code:

Sub b()
Dim i&
With ActiveSheet
.UsedRange.Value = .UsedRange.Value
 End With
For i = 3 To 8 Step 2
Range(Cells(1, i), Cells(Rows.Count, i).End(3)).Resize(, 2).Cut _
Cells(Rows.Count, 1).Resize(, 2).End(3)(2)
Next
Range(Cells(1, 1), Cells(Rows.Count, 1).End(3)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A1").CurrentRegion.Sort Key1:=[A1], Order1:=xlAscending
End Sub

sharkantipav · 5 Mai 2014

Re : Transformer tableau en colonne

Waw excellent et tres rapide... je suis impressionne
JE vais essayer de comprendre comment il fonctionne
Merci bcp

Transformer tableau en colonne

sharkantipav

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

sharkantipav

XLDnaute Occasionnel

Discussions similaires