Sélectionner en VBA une série de colonne discontinue

[Patchi06]

Bonjour

Voici mon souci : J'ai un tableau de 28 colonnes sur X lignes (nb variable). J'aimerai copier une partie des colonnes ce tableau vers un autre tant qu'une valeur est inscrite en colonne A.

J'ai essayé plusieurs méthodes mais quelque chose m'échappe. et les explications (F1) ne m'ont pas beaucoup aidées.

Pour l'instant, j'ai
Range("A:F,I:I,M:M,O:Q" & Range("Q65536").End(xlUp).Row).Select


Il me serait facile de copier/coller de A à F, puis I, puis M... mais cela ne me plait pas. Si quelqu'un pouvait m'aider... Merci d'avance.

 

[PMO2]

Re : Sélectionner en VBA une série de colonne discontinue

Bonjour,

Essayez

Sub aa()
Dim n As Long
n = Range("Q65536").End(xlUp).Row
Range("A1:F" & n & ",I1:I" & n & ",M1:M" & n & ",O1:Q" & n & "").Select
End Sub

 

[Patchi06]

Re : Sélectionner en VBA une série de colonne discontinue

Merci !
Ce code fonctionne au premier essai ; Il a l'avantage d'être simple et clair.