Discussion :

[SpaceFrog]

Bon voilà le code que j'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select

mais il ne me donnt pas le même résultat que:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("A2", Selection.End(xlDown)).Select

je ne souhaite que la première colonne ...

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2", Range("A2").End(xlDown)).Select

[SpaceFrog]

range de range pfff ...
décidément VBA est pire que tout ...

Merci Bidou ...

[bidou]

ce n'est pas un range de range, c'est toi qui prends une notation simplifiée peu lisible.

En écriture stricte cela s'écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range(ActiveSheet.Cells(2,1),ActiveSheet.Cells(2.1).End(xlDown)).Select

[ouskel'n'or]

Non, c'est logique, comme tu sélectionnes une plage (ce que j'avais raté), tu parts de la première cellule... jusqu'à la dernière de la même colonne...
Tu aurais pu faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DernièreCellule = Range("B2").End(xlDown).Row
Range(Cells(2, 1), Cells(DernièreCellule, 1)).Select

... pour simplifier