[VBA-E] Utilisation de la commande range

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

Code:

---

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

Avant derniere :

Code:

---

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:

---

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

---

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:

---

Range("A6:AL21").Select

---

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

Code:

---

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

---