Problème pour déplacer une ligne à partir d'une variable

Bonjour à tous,

Je suis débutant en excel (version 2000) et j'ai un problème pour utiliser une variable.

Je souhaite en fait déplacer une ligne quelconque de là où elle se trouve vers la ligne 2. Mon soucis c'est que le numéro de la ligne à déplacer se trouve dans une cellule (ici L5 dans le classeur references) et qu'il change fréquemment.

Le code que j'ai mis pour le moment est le suivant :

Code:

---

1 2 3 4

Private Sub Bouton_Click() i = range("L5").Value Worksheets("references").Rows(i).Copy _ Destination:=Sheets("references").Range("A2")

---

Il ne marche pas à ma grande déception et je crois que ça vient de la variable mais je ne sais vraiment pas comment faire. Est-ce que quelqu'un pourrait m'aider ? Je cherche la solution la plus simple possible.

Merci beaucoup d'avance

Ça fonctionne très bien chez moi.

Il faut s'assurer que:

1- La feuille active doit être "references".
2- Le contenu de la cellule L5 doit être au format Nombre (pas au format Texte)
3- Si il y a une possibilité que la valeur en L5 change entre le moment de l'assignation à la variable et le Copy, il faut mettre le tout entre:

Code:

---

1 2 3 4 5

Application.EnableEvents = False   ' ... code   Application.EnableEvents = True

---

Merci déjà de ta réponse. J'ai modifié le format de cellule (il était en standard, je l'ai passé en nombre à 0 décimales) mais j'ai toujours le même message d'erreur à apparaître :

Citation:

---

Erreur d'exécution '1004'
Erreur définie par l'application ou par l'objet

---

Il m'affiche alors mon code vba en me surlignant en jaune les deux dernières lignes (juste au dessus de end sub) et en mettant le petit curseur jaune sur Destination:=....).

Le contenu de L5 n'ait pas modifié après l'attribution de la variable.

Essayes plutôt:

Code:

---

1 2	Worksheets("references").Rows(i).Copy Worksheets("references").Range("A2").PasteSpecial

---

ça marche !!!!!!

Merci beaucoup, tu me retires une sacré épine du pied, là