Transformer tableau en colonne

[sharkantipav]

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]

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]

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]

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

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]

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]

Re : Transformer tableau en colonne

Re

Essaies comme ceci alors (test OK sur ta PJ)

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]

Re : Transformer tableau en colonne

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