Discussion :

[mentat]

Bonjour à tous,

Voilà j'ai un petit problème que je pense tout bête mais je bute lol.

Je souhaiterai faire une petite sélection de plusieurs cellules d'un tableau entre la colonne B et la colonne I.

Je prend donc la cellule B3 avec ce code:

Code :

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

Worksheets("Base de donné").Range("membres3").Offset(1, 0)

Et je prend la dernière cellule de la case I par ce code:

Code :

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

Worksheets("Base de donné").Range("I65536").End(xlUp)

Seulement ses deux codes correspondent à la valeur des 2 cellules...

Je souhaiterais faire une sélection de toutes les cellules comprise entre...

Dans un cas Normal j'aurai utilisé une commande du style

Code :

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

Range("B3":"I19").select

Si qu'elqu'un peut m'aider

Merci...

[Invité]

Bonsoir,

Peut-être quelque chose comme cela :

Code :

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

1
2
dl = Worksheets("Base de donné").Range("I65536").End(xlUp).Row
Worksheets("Base de donné").Range("B3:I" & dl).select

[laetitia]

bonjour mentat le forum brute je dirais comme cela !!!

Code :

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

Range("b4" & ":I" & Cells(Rows.Count, 9).End(xlUp).Row).Select

oups pas rafraichi bonjour jacques & bonne fêtes a tous

[mentat]

Merci à Tous les deux...

J'ai essayé vos deux codes, il fonctionnent bien tout les deux...

J'ai décidé de prendre le code de Jean Jacques car celui de Laetitia, insert une ligne vide supplémentaire.

J'ai juste modifié un peu pour remplacé B4.

Code :

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

1
2
3
 dl = Worksheets("Base de donné").Range("I65536").End(xlUp).Row
 dc = Worksheets("Base de donné").Range("membres3").Offset(1, 0).Row
 Worksheets("Base de donné").Range("B" & dc & ":I" & dl).Copy

Encore Merci à vous deux...

Bonne soirée et encore bonne fêtes de fin d'années à tous...