Range définit à partir de colonne

Par exemple, en utilisant Intersect et Rows...
With Worksheets("Nom")
Intersect(.Range("C:D"),.Range("1:3")).Select
End With

En faisant attention de bien préciser l'objet supportant les range à
intersectionner (la feuille Nom dans l'exemple)...

--
A+

V.

Salut,

Soit une ou des colonnes définies par:
D:D ou D:E
Comment définir un object range qui va de la ligne 1 dans cette/ces
colonne(s) à la dernière ligne non vide à partir de cette info de lettre
de colonnes ?

Merci pour vos conseils

--
DR

Bonjour,

x = "D:E"
Set y = Intersect(Range(x), Range("1:1"))
y.Resize(Range(x).Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row).Select

JB

Salut,

Soit une ou des colonnes définies par:
D:D ou D:E
Comment définir un object range qui va de la ligne 1 dans cette/ces
colonne(s) à la dernière ligne non vide à partir de cette info de l ettre
de colonnes ?

Merci pour vos conseils

--
DR

Bonjour,

x = "D:E"
Set y = Intersect(Range(x), Range("1:1"))
y.Resize(Range(x).Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row).Select

merci pour ton idée.
je me suis inspiré de cela et j'ai retenu

x = "D:E"
Intersect(Range(x), Range(Range("1:1"),
Range(x).SpecialCells(xlCellTypeLastCell))).Select

Les colonnes ont toute la meme longueur.

--
DR