Erreur '1004' (classe Range)

[Gunther]

Bonjour le forum,

j'ai un problème assez étrange avec le worksheet de l'une de mes feuil.
en fait, ce que je souhaite, c'est que lorsque je fais un double clic sur une cellule, le contenu de la cellule se colle (collage de valeur) dans une autre feuil.

Bref, le code ne pose aucun problème quand je l'utilise via un bouton
il ne pose pas de problème, non plus, quand je fais un doubleclick afin de coller la valeur dans une autre cellule de la meme feuille...

Par contre, dès que je souhaite faire un collage dans une autre feuil... ca coince :

je me ramasse l'erreur suivante

Erreur d'exécution '1004':
La méthode de la classe Range a échoué.

le code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Selection.Copy
    Sheets("sorties").Select
    Range("C7").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

je ne comprends pas !!!

Merci d'avance pour votre coup de main !!

 

[Gorfael]

Re : Erreur '1004' (classe Range)

Salut Gunther et le forum
Voilà ce que ça donne d'exécuter des select quand il n'y en a pas besoin . Un module de classe n'admet la sélection d'aucune autre feuille que celle avec laquelle il est lié.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
cancel=false
'fait avorté le menu contextuel 
Target.Copy
Sheets("sorties").Range("C7").PasteSpecial Paste:=xlValues
End Sub

A+

 

[Gunther]

Re : Erreur '1004' (classe Range)

Bonjour Jean-Marcel, Gorfael,

Vos codes marchent nickel ^^
Merci a vous !

mais pouvez-vous m'expliquer le pourquoi de cette erreur ?