erreur 1004 à la copie

[mercant76]

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.

@+

 

[Roland_M]

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

 

[Cousinhub]

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]

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]

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]

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 :

Public MaCell

Sub ma_proc()
MsgBox MaCell
End Sub

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

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

 

[mercant76]

Re : erreur 1004 à la copie

bonjour bhbh,

merci, je vais essayer.

@+