Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel macro copie par click cellule récalcitrante

macro copie par click cellule récalcitrante

2 réponses
Avatar
gilles
BONJOUR A TOUS=20
Macro r=E9calcitrante
Quand je clique sur D3 de la page 1, je voudrais , sur la=20
page 2 copier la zone Z14 :AD28 en A14 j'ai un message
Erreur 1004
La m=E9thode SELECT de la classe RANGE a =E9chou=E9

J'ai essay=E9 avec un double click, avec Woorksheet_change,=20
et woorksheet_calculate, sans succ=E8s

Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
If Target.Address =3D "$D$3" Then
Sheets("Page 2").Select

Range("Z14:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=3D-20
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode =3D False
Range("A14").Select
End If
End Sub

Alors si un pro(videntiel) pouvait m'apporter sa lumi=E8re..
Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
bonjour gilles,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" Then
Sheets("Page 2").Range("Z14:AD28").Copy Sheets("Page 2").Range("A14")
Application.CutCopyMode = False
End If
End Sub

isabelle


BONJOUR A TOUS
Macro récalcitrante
Quand je clique sur D3 de la page 1, je voudrais , sur la
page 2 copier la zone Z14 :AD28 en A14 j'ai un message
Erreur 1004
La méthode SELECT de la classe RANGE a échoué

J'ai essayé avec un double click, avec Woorksheet_change,
et woorksheet_calculate, sans succès

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$D$3" Then
Sheets("Page 2").Select

Range("Z14:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-20
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A14").Select
End If
End Sub

Alors si un pro(videntiel) pouvait m'apporter sa lumière..
Merci


Avatar
gilles
merci isabelle
je vais voir si ça marche , parce qu'il reste toujours le
coeff. de ma médiocrité vba, mais en attendant merci pour
la rapidité
-----Message d'origine-----
bonjour gilles,

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

If Target.Address = "$D$3" Then
Sheets("Page 2").Range("Z14:AD28").Copy Sheets("Page
2").Range("A14")

Application.CutCopyMode = False
End If
End Sub

isabelle


BONJOUR A TOUS
Macro récalcitrante
Quand je clique sur D3 de la page 1, je voudrais , sur
la


page 2 copier la zone Z14 :AD28 en A14 j'ai un message
Erreur 1004
La méthode SELECT de la classe RANGE a échoué

J'ai essayé avec un double click, avec
Woorksheet_change,


et woorksheet_calculate, sans succès

Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
If Target.Address = "$D$3" Then
Sheets("Page 2").Select

Range("Z14:AD28").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-20
Range("A14").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A14").Select
End If
End Sub

Alors si un pro(videntiel) pouvait m'apporter sa
lumière..


Merci
.