erreur 1004 à la copie

mercant76

XLDnaute Impliqué
bonjour à tout le forum,

je n'arrive pas à copier une selection de cellules.

à partir d'un clic sur une cellule, je récupère des données
dans une autre feuille.

comme ces données sont des formules, je récupère( enfin j'essaie)
ces données en copier, coller une valeur.

et là j'ai une erreur d'exécution 1004.

je n'y comprend rien, car si j'élimine le clic sur cellule, çà marche.

je vous remercie d'avance de vos lumières.

moi, c'est éteint.

@+
 

Pièces jointes

  • Prog.zip
    11.2 KB · Affichages: 19
  • Prog.zip
    11.2 KB · Affichages: 19
  • Prog.zip
    11.2 KB · Affichages: 20

Roland_M

XLDnaute Barbatruc
Re : erreur 1004 à la copie

bonjour
tu rencontres le même problème que j'ai eu récemment
ta routine n'est pas dans un module, elle est sur un code de feuille
donc il te faut chaque fois préciser le nom de la feuille, ou mettre ta routine dans un module

exemple ici tu as:
Sheets("BASE DE DONNEE").Select
Range("H5:H8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FICHE FAB1").Select
Range("E5").Select
etc...
il te faut tout modifier comme ceci:
Sheets("BASE DE DONNEE").Range("H5:H8").Copy Destination:=Sheets("FICHE FAB1").Range("E5")

etc...

Roland
 
Dernière édition:

Cousinhub

XLDnaute Barbatruc
Re : erreur 1004 à la copie

Bonsoir,
sans vraiment savoir ce que tu désires obtenir au final, il est préférable de mettre ses codes dans un module standard, et non dans le code de la feuille.
En effet, même si tu peux sélectionner une autre feuille, tu ne peux pas sélectionner des cellules d'une autre feuille...
D'ailleurs, à priori, dans ton cas, la sélection n'est pas obligatoire (elle l'est rarement, d'ailleurs)
Bonne soirée
 

roro69

XLDnaute Impliqué
Re : erreur 1004 à la copie

Bonsoir,à tous
Tiens essaye ce code .Bonne soirée.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("h2")) Is Nothing Then
With Target
Sheets(2).Select
Sheets(1).Columns(1).Copy Sheets(2).Range("A1")
Sheets(1).Columns(2).Copy Sheets(2).Range("B1")
Sheets(1).Columns(3).Copy Sheets(2).Range("C1")
Sheets(1).Columns(5).Copy Sheets(2).Range("D1")
Sheets(1).Range("H5:H8").Copy
Sheets(2).Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
End If
End Sub
 

mercant76

XLDnaute Impliqué
Re : erreur 1004 à la copie

bonsoir à roland m, bhbh, roro69 et à tout le forum.

je vais tester vos lignes et je vous redirais.

pour bhbh, je suis dans une feuille, car j'utilise la fonction " clic sur cellule" et çà , à priori, çà ne marche pas dans un module.

@+
 

Cousinhub

XLDnaute Barbatruc
Re : erreur 1004 à la copie

Bonsoir, mercant76
rien ne t'empêche de mettre un Call maprocedure dans ta feuille et de mettre ta procédure dans une feuille....
Cela évite bien des problèmes.

exemple :

dans un module standard :

Code:
Public MaCell

Sub ma_proc()
MsgBox MaCell
End Sub

et dans l'évènement de la feuille 1 :

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then MaCell = Target: Call ma_proc
End Sub
 

Discussions similaires

Réponses
5
Affichages
94

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000