Sélectionner plusieurs colonnes contiguës

[Magic_Doctor]

Bonjour à tous,

Je voudrais, tout simplement, sélectionner un ensemble de plusieurs colonnes côte à côte.
Voilà ce que j'ai écrit :

Dim NumFirstCol As Byte, NumLastCol As Byte, colonne1 As Range, colonne2 As Range, colonnes As Range

NumFirstCol = [Encabezado].Cells(1, 1).Column + [HauteurTableau]
NumLastCol = [Encabezado].Cells(1, 1).Column + [Encabezado].Columns.Count - 1

Set colonne1 = Columns(FirstCol)
Set colonne2 = Columns(LastCol)
Set colonnes = Union(colonne1, colonne2)
colonnes.Select

En fait, et c'est logique, ça me sélectionne la colonne1 et la colonne2 mais pas les colonnes, disons intermédiaires, qui se trouvent entre ces 2 colonnes (limites de la plage des colonnes).
Quelle syntaxe utiliser pour sélectionner TOUTES les colonnes depuis "colonne1" jusqu'à "colonne2" incluses ?

Merci pour toute aide.

 

[job75]

Re : Sélectionner plusieurs colonnes contiguës

Bonjour Magic Doctor,

Utilise Range à la place de Union...

A+

 

[Guest]

Re : Sélectionner plusieurs colonnes contiguës

Bonjour,

Tu peux utiliser l'objet Range:

Range(Colonne1, Colonne2).select
Si Colonne1 et Colonne2 sont eux-même des objets Range.

Ou utiliser la forme : range( NumFirstCol & ":" & numLastCol).select

A+
[Edit] Re, Job

 

[soune26]

Re : Sélectionner plusieurs colonnes contiguës

salut Magic, le fil

J'ai pas testé mais cela devrait le faire:

Range(Columns(1), Columns(3)).Select

bizzzzzzzzzzzz

 

[Magic_Doctor]

Re : Sélectionner plusieurs colonnes contiguës

Bojour job,

Encore une fois merci, ça marche !

Dim NumFirstCol As Byte, NumLastCol As Byte, colonne1 As Range, colonne2 As Range, colonnes As Range

NumFirstCol = [Encabezado].Cells(1, 1).Column + [HauteurTableau]
NumLastCol = [Encabezado].Cells(1, 1).Column + [Encabezado].Columns.Count - 1

Set colonne1 = Columns(NumFirstCol)
Set colonne2 = Columns(NumLastCol)
Set colonnes = Range(colonne1, colonne2)
colonnes.Select

 

[Magic_Doctor]

Re : Sélectionner plusieurs colonnes contiguës

Hasco et soune26 bonjour,

Merci pour vos réponses, j'avais répondu après avoir déjeûné (décalage horaire oblige) et n'avais pas réactualisé le fil...