Macro sélection d'une plage

Marsh Posté le 20-10-2009 à 21:03:04

Bonjour,

J'aimerais connaitre le code qui me permettra de sélectionner la plage A3 jusqu'a la dernière cellule remplie en F + 1 colonne

Merci

Marsh Posté le 20-10-2009 à 21:03:04

Marsh Posté le 21-10-2009 à 09:45:16

Pour aller de F3 jusqu'à la dernière cellule de la colonne F, on peut faire

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

On peut aussi utiliser xlToLeft, xlToRight, etc.

Ou bien on peut utiliser une boucle pour trouver le numéro de la ligne de la première cellule vide en dessous de F3

Set src_feuille = ThisWorkbook.Sheets("Feuil1" )
src_col_no = 6 ' pour la colonne F (A = 1, B = 2)
src_lg_no = 3 ' à partir de la troisième ligne
Do While Not IsEmpty(src_feuille.Cells(src_lg_no, src_col_no))
src_lg_no = src_lg_no + 1
Loop

Marsh Posté le 20-11-2009 à 11:49:00

Salut
Je pense que ceci pourrait te convenir:

dernière = Range("F3" ).End(xlDown).Row
Range(Range("a3" ), Range("G" & dernière)).Select

@+

Marsh Posté le 20-11-2009 à 12:50:23

Merci à vous @+

Marsh Posté le 06-12-2009 à 18:08:02

En fait, ceci est encore mieux, car ne tient pas compte d'éventuelles cases vides en colonne F:

'cherche la dernière cell vide de la colonne:

RowFin = Range("F65536" ).End(xlUp).Row + 1

'sélectionne la plage voulue:

Range(Range("a3" ), Range("G" & RowFin )).Select

Cordialement

---------------
Olympus OM-D EM-5 + 14-42

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *