Discussion :

[mattjol]

Bonjour j'utilise, pour sélectionner une plage dont le nombre de lignes est relatif, la commande

Code :

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

Range("A6:AL" & Range("A65536").End(xlUp).Row).Select

Cela me permet de sélectionner toutes les lignes d'un tableau, jusqu'à la dernière quelle que soit sa taille.

Cependant j'ai 2 questions:

- quel code utiliser pour sélectionner toutes les lignes jusqu'à l'avant dernière?
- quel code utiliser pour qu'une boite de dialogue me demande de rentrer le n° de la dernière ligne qui doit être contenue dans ma sélection?

Merci d'avance

Mattjol

[dadavyvy]

Avant derniere :

Code :

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

Range("A6:AL" & Range("A65536").End(xlUp).Row - 1).Select

Pour demander à l'utilisateur de faire une saisie :application.InputBox(...) ou Interaction.InputBox(...), ensuite reste plus qu'a controler que le resultat de cette fonction est bien un nombre. Si l'utilisateur clique sur "Annuler", alors Application.InputBox retourne False, Interaction.InputBox retourne "".

Une dernière remarque :
Range("A65536").End(xlUp).Row ne donne que la dernière ligne ayant une valeur (visible ou non voire une formule) dans la colonne A et non pas le derniere ligne utilisée dans la feuille entière. Pour cela, il faut utiliser UsedRange.

Code :

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

1
2
3
4
Set wks = Feuil1
ligne_1 = wks.UsedRange.Row
ligne_nb = wks.UsedRange.Rows.Count
ligne_der = wks.UsedRange.Rows.Count - wks.UsedRange.Row + 1

[mattjol]

j'étais sûr d'avoir essayé le Row - 1 et que ça ne marchait pas ...
bon tant pis, en tout cas ça marche très bien maintenant!

Pour le application.inputbox, peut tu me dire comment utiliser dans le code cette saisie de l'utilisateur?

Par exemple que devient le code

Code :

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

Range("A6:AL21").Select

si ce numéro de ligne 21 est saisi par l'utiliseur?

[dadavyvy]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Do While True
    numero = Interaction.Input("Saisir la derniere ligne de la plage", "Nombre entier positif")
    ' Controle de la valeur saisie
    If Not Isnumeric(replace(numero,".",",",,,vbTextCompare)) Then
        MsgBox "le numero doit être un entier positif"
    Else
        numero = Abs(Fix(numero))
        Exit Do
    End If
Loop
Range("A6:AL" & numero).Select