permutation plages variables

[philippe69]

Bonjour le forum

Suite à un précédent post Eric S m'a gentiment donné la solution pour permuter 2 plages variables (voir macro ci-dessous.
Néanmoins comme ces plages sont variables, je pense qu'il est possible de ne sélectionner que le plage concernée au lieu de la colonne entière.
J'ai bien essayé de bidouiller qq chose mais sans succès.
Aussi, je m'en remet à vous

Amicalement
Philippe

Sub permute()
with sheets('relevés')
Columns('A:E').Cut
Columns('G:K').Insert Shift:=xlToRight
Columns('G:K').Cut
Columns('A:E').Insert Shift:=xlToRight
end with
End Sub

 

[philippe69]

J'ai bricolé un peu et apparement, j'ai touvé un code qui fonctionne.
Je ne sais pas si c'est très académique.
Etant débutant en vba, je suis friand de toutes les différentes solutions. Donc si qq a mieux ou plus simple à me proposer ce sera avec joie.

D'ailleurs (si c'est possible), j'aimerais garder le format des colonnes que je permute de façon à éviter d'avoir des xxxxxxxxxx dans certaines cellules.

Amicalement
Philippe

Sub permute()
With Sheets('relevé')
Range([A1], [E1].End(xlDown)).Cut
Range([G1], [K1].End(xlDown)).Insert Shift:=xlToRight
Range([G1], [K1].End(xlDown)).Cut
Range([A1], [E1].End(xlDown)).Insert Shift:=xlToRight
End With
End Sub

 

[philippe69]

J'ai bricolé un peu et apparement, j'ai touvé un code qui fonctionne.
Je ne sais pas si c'est très académique.
Etant débutant en vba, je suis friand de toutes les différentes solutions. Donc si qq a mieux ou plus simple à me proposer ce sera avec joie.

D'ailleurs (si c'est possible), j'aimerais garder le format des colonnes que je permute de façon à éviter d'avoir des xxxxxxxxxx dans certaines cellules.

Amicalement
Philippe

Sub permute()
With Sheets('relevé')
Range([A1], [E1].End(xlDown)).Cut
Range([G1], [K1].End(xlDown)).Insert Shift:=xlToRight
Range([G1], [K1].End(xlDown)).Cut
Range([A1], [E1].End(xlDown)).Insert Shift:=xlToRight
End With
End Sub