selection et recopie variable.

[CB60]

Bonjour à tous
Actuellement j'ai ces deux lignes de code qui me permette d'aller en bas d'une liste de remonter de 21 ligne et de copier l'ensemble.

DerLigne = Selection.Row
' permet de remonter de 21 lignes et de les selectionner
Rows(DerLigne - 21 & ":" & DerLigne).Select
Je suis à la place du "21" mettre une variable qui me permettrais de choisir le nombre de ligne à copier.
Pour exemple en cellule "A1" je met 10 et la macro me recopie seulement les 10 dernieres lignes.
Pouvez vous m'indiquer la syntaxe.
Merci
Bruno

 

[Pierrot93]

Re : selection et recopie variable.

Bonjour Bruno

peut être une solution dans le code ci dessous, par contre j'ai pas testé ...

x =Range("A1").value
Rows(DerLigne - x & ":" & DerLigne).Select

Bonne journée
@+

 

[CB60]

Re : selection et recopie variable.

Bonjour Pierrot,
merci beaucoup ta ligne de code répond à mon attente et fonctionne correctement
Bonne journée
Bruno

 

[CB60]

Re : selection et recopie variable.

re

Maintenant mon soucis se trouve sur cette ligne.
Cells(DerLigne - x & ":" & DerLigne, 3).Activate
Je souhaite selectionner de la derniére ligne, remonter de ce nombre variable (X) de ligne et ensuite prendre dans les lignes selectionnées la colonne 3 pour lui mettre une valeur.
Ou est l'erreur car ma macro plante à cet endroit.
Merci
Bruno