OVH Cloud OVH Cloud

Exécution d'une macro (suite)

3 réponses
Avatar
eric
Bonjour,
1) je copie le contenu d'une cellule
2) je clique dans une autre cellule
3) Je crée une nouvelle macro
4) je fais coller (Resultat : le contenu de la 1re cellule est copié dan
s la 2me)
5) j'arrête l'enregistrement de la macro
6) je copie une cellule, je clique dans une autre cellule et j'exécute l
a macro
J'obtiens le message :"Erreur 1004 : La méthode Paste de la classe Works
heet a échoué"
Je clique sur Débogage et voila le code de ma macro :
Sub Macro2()
ActiveSheet.Paste
End Sub
Quelqu'un aurait-il une idée pourquoi ça ne marche pas
Merci d'avance
Eric

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Mon Aug 1 12:01:19 2005 depuis l'IP : 81.255.5.245 [VIP 215971270583]

3 réponses

Avatar
MichDenis
Bonjour Éric,

Selon ce que tu désires faire :

Copie directement le contenu et le format (pas tout comme la hauteur de la cellule...)

'------------------------------
Sub Exemple1()
'pour copier
Range("A1").Copy Range("A2")

Range("A1:C10").copy Range("G25")

'Déplacer vers une autre cellule
Range("A1").Cut Range("A3")

End Sub
'------------------------------


Remarque que la procédure débute par copier la cellule ou plage de cellules dans le presse-papier avant de sélectionner la cellule
de destination et de copier le contenu vers la cellule de destination.

Application.CutCopyMode = False enlève le "pointillé" autour de la cellule source.

'------------------------------
Sub exemple2()

Range("A1").Copy
Range("A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
'------------------------------


Salutations!



"eric" a écrit dans le message de news: dckrtf$tgi$
Bonjour,
1) je copie le contenu d'une cellule
2) je clique dans une autre cellule
3) Je crée une nouvelle macro
4) je fais coller (Resultat : le contenu de la 1re cellule est copié dan
s la 2me)
5) j'arrête l'enregistrement de la macro
6) je copie une cellule, je clique dans une autre cellule et j'exécute l
a macro
J'obtiens le message :"Erreur 1004 : La méthode Paste de la classe Works
heet a échoué"
Je clique sur Débogage et voila le code de ma macro :
Sub Macro2()
ActiveSheet.Paste
End Sub
Quelqu'un aurait-il une idée pourquoi ça ne marche pas
Merci d'avance
Eric

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Mon Aug 1 12:01:19 2005 depuis l'IP : 81.255.5.245 [VIP 215971270583]
Avatar
MPi
Salut,

le problème vient du fait que lorsque tu actives le menu Macro à partir
d'Excel, celui-ci vide le presse-papier. Tu peux faire le test en affichant
le presse-papier.
Copie... le presse-papier contient les données
Ouvre la boîte de dialogue Macro... le presse-papier est aussitôt vidé
Pas toujours facile de comprendre la façon de faire d'Excel ...

Si tu places un rectangle sur ta feuille et que tu lui affectes ta macro, ça
fonctionnera, puisque tu ne passeras pas par le menu et le presse-papier
restera intact.

Michel


Bonjour,
1) je copie le contenu d'une cellule
2) je clique dans une autre cellule
3) Je crée une nouvelle macro
4) je fais coller (Resultat : le contenu de la 1re cellule est copié dan
s la 2me)
5) j'arrête l'enregistrement de la macro
6) je copie une cellule, je clique dans une autre cellule et j'exécute l
a macro
J'obtiens le message :"Erreur 1004 : La méthode Paste de la classe Works
heet a échoué"
Je clique sur Débogage et voila le code de ma macro :
Sub Macro2()
ActiveSheet.Paste
End Sub
Quelqu'un aurait-il une idée pourquoi ça ne marche pas
Merci d'avance
Eric

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Mon Aug 1 12:01:19 2005 depuis l'IP : 81.255.5.245 [VIP 215971270583]



Avatar
eric
Je ne sais pas ce que ça veut dire "placer un rectangle sur une feuille, tu
veux dire une cellule ?
De toutes façon, j'ai constaté que ça marchait avec un raccourci clavier
affecté à ma macro....
Merci beaucoup
Eric
"MPi" a écrit dans le message de news:

Salut,

le problème vient du fait que lorsque tu actives le menu Macro à partir
d'Excel, celui-ci vide le presse-papier. Tu peux faire le test en
affichant
le presse-papier.
Copie... le presse-papier contient les données
Ouvre la boîte de dialogue Macro... le presse-papier est aussitôt vidé
Pas toujours facile de comprendre la façon de faire d'Excel ...

Si tu places un rectangle sur ta feuille et que tu lui affectes ta macro,
ça
fonctionnera, puisque tu ne passeras pas par le menu et le presse-papier
restera intact.

Michel


Bonjour,
1) je copie le contenu d'une cellule
2) je clique dans une autre cellule
3) Je crée une nouvelle macro
4) je fais coller (Resultat : le contenu de la 1re cellule est copié dan
s la 2me)
5) j'arrête l'enregistrement de la macro
6) je copie une cellule, je clique dans une autre cellule et j'exécute l
a macro
J'obtiens le message :"Erreur 1004 : La méthode Paste de la classe Works
heet a échoué"
Je clique sur Débogage et voila le code de ma macro :
Sub Macro2()
ActiveSheet.Paste
End Sub
Quelqu'un aurait-il une idée pourquoi ça ne marche pas
Merci d'avance
Eric

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
Article poste via Voila News - http://www.news.voila.fr
Le : Mon Aug 1 12:01:19 2005 depuis l'IP : 81.255.5.245 [VIP
215971270583]