Erreur '1004' (classe Range)

Gunther

XLDnaute Nouveau
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 :
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 !!
 
Dernière édition:

Gorfael

XLDnaute Barbatruc
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 :p. Un module de classe n'admet la sélection d'aucune autre feuille que celle avec laquelle il est lié.
Code:
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+
 

Discussions similaires

Réponses
14
Affichages
294

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson