Discussion :

[lesebh]

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

Code :

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

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

[Jean-Philippe André]

Bonjour,

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

[lesebh]

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

[Jean-Philippe André]

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

Code :

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

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

[lesebh]

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 :

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

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

[Jean-Philippe André]

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

Code :

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

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

[lesebh]

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