Discussion :

[Cadenwarr]

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 :

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

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

[Singular]

Ç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 :

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

1
2
3
4
5
Application.EnableEvents = False
 
' ... code
 
Application.EnableEvents = True

[Cadenwarr]

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 :

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.

[Singular]

Essayes plutôt:

Code :

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

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

[Cadenwarr]

ça marche !!!!!!

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