Selection de range

Bonjour je n'arrive pas à faire ça et je deviens dingue:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'combien de ligne a selectionner Dim jours As Long Dim i As Long Nom = InputBox("Combien de jours concernés : ", "Jours")   Dim DernCell As Long 'dernière ligne colonne A DernCell = Range("A" & Rows.Count).End(xlUp).Cell i = -jours Range(DernCell, "f" & i).Select   Selection.Copy

---

Bonjour,

si on peut savoir ce que tu cherches exactement a faire, ca nous aiderait pas mal :aie:

:cristal:

Oui désolé

Je cherche à copier un rectangle de cellule en partant de la dernière cellule de la colonne A à la colonne F en remontant du nombre de ligne indiqué par la valeur la text box

Si tu veux faire un bloc de cellules, il faut que les deux parties dans ton Range soient des Range :

Code:

---

1 2 3 4 5 6 7 8

Dim FirstCel As Range Dim LastCel As Range   Set LastCel = Range("F" & Range("A65536").End(xlUp).Row) Set FirstCel = LastCel.Offset(-jours,-5)   Range(FirstCel,LastCel).Select

---

Merci car au moins je sélectionne sans bug cependant quelque soit la valeur de Jours cela sélectionne que la dernière ligne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Jours As Integer   Nom = InputBox("Combien de jours concernés : ", "Jours") Dim FirstCel As Range Dim LastCel As Range   Set LastCel = Range("E" & Range("A65536").End(xlUp).Row) Set FirstCel = LastCel.Offset(-Jours, -4)   Range(FirstCel, LastCel).Select End Sub

---

Encore faut il metter le resultat de ton inputbox dans la bonne variable

Code:

---

Jours = InputBox("Combien de jours concernés : ", "Jours")

---

Bah oui c'est logique merci, je suis pas malin.

Dernière question pourquoi cela prend une cellule de plus.

Quand je mets 1 cela prend 2 lignes et ainsi de suite