Selection Colonnes

[NicolasC91]

Bonjour à tous,

J'ai un petit problème de sélection de colonnes que je n'arrive pas à résoudre.

J'ai un tableau de données que je sélectionne avec UsedRange
Puis l'ajout de .Columns("A:B") permet de sélectionner les 2 premières colonnes.

Ma question est la suivante : comment sélectionne t-on par exemple la 1ère et la 5ème colonne ?

Merci de vos réponses 🙂

Nicolas


-----------------------------------------------------------------

Sub Test()

Dim Range1 As Range '

Set Range1 = ActiveSheet.UsedRange.Columns("A:B")

Range1.Select

End Sub

------------------------------------------------------------------

 

[Guest]

Re : Selection Colonnes

Bonsoir,

Ceci devrait le faire. J'ai rajouté un contrôle du nombre de colonne du UsedRange

With  ActiveSheet.UsedRange
if columns.count>=5 then Union(.Columns(1),.columns(5)).select
End With

Mais

 ActiveSheet.UsedRange.Range("A:A,E:E").select

fonctionne aussi

A+

 

[NicolasC91]

Re : Selection Colonnes

Merci de ta réponse.

En fait toujours ce même problème car j'ai un premier Range qui prend toute ma table sauf les 5 premières lignes (Range1)
J'aimerais que le Range2 comprenne la colonne 1 et 5 du Range1.

J'ai essayé comme cela mais ça ne marche pas :/

Merci beaucoup

Nicolas

---------------------------------------------------------------------

Sub Test()

Dim Range1 As Range '
Dim Range2 As Range

Set Range1 = ActiveSheet.UsedRange.Rows("6:" & ActiveSheet.UsedRange.Rows.Count)

Set Range2 = Range1.Range("A:A,E:E")


End Sub

---------------------------------------------------------------------

 

[Guest]

Re : Selection Colonnes

Re,

Oui c'est une forme moins souple à gérer que la première (Union)

Mais

Set Range2 = Union( Range1.Columns(1),Range1.columns(5))

fonctionnera

Ainsi qui:

Set Range2 = Range1.Range("A1:A" & Range1.Rows.Count & ",E1:E" & Range1.Rows.Count)

mais complexifie l'écriture


A+

 

[NicolasC91]

Re : Selection Colonnes

Merci Beaucoup =)