Le copié-collé inter-feuilles ne marche plus !

[Tonino7]

Bonsoir, désolé de polluer le forum avec ces questions, mais depuis 2 jours, le copié-collé de feuilles à feuilles ne marche plus , que ce soit par raccourci ctrl-c ou avec le menu. Je suis obligé d'ouvrir le fichier une deuxième fois pour que ça marche.

J'ai peur d'etre devenu fou et qu'en fait on ne peut tout simplement pas faire de copié collé feuilles à feuilles. Mais j'ai la forte impression que je pouvais avant.
Pourtant j'ai absolument pas touché aux options hormis les options de quadrillage, entete des colonnes et lignes, masquage des barres d'outils etc

donc voilà, j'suis bien embeté. Si vous connaissez la clé, ça me réjouirait assez. Merci

 

[flo2002]

Re : Le copié-collé inter-feuilles ne marche plus !

bonsoir,
pas trés bien compris le probleme....
essaye clique droit sur une feuille et copier.

 

[Tonino7]

Re : Le copié-collé inter-feuilles ne marche plus !

lol je sais que je suis pas extremement calé sur excel, mais là quand même...

 

[Tonino7]

Re : Le copié-collé inter-feuilles ne marche plus !

Je vois pas ce que t'as pas compris. Le copié collé ne marche pas entre 2 feuilles.

 

[flo2002]

Re : Le copié-collé inter-feuilles ne marche plus !

vraiement bizzar, as tu essayer d'inserer de nouvelle feuille et de le faire sur ces feuilles?
SUr une meme feuille ca marche donc?

 

[Tonino7]

Re : Le copié-collé inter-feuilles ne marche plus !

Non, même en insérant une feuille ça ne marche pas .


Mais ...... Je viens de trouver le pourquoi du comment à l'instant ..

Je viens de faire un test en désactivant une macro que j'ai créée récemment...
Et BINGO... ça remarche. Mais c'est vraiment super bizarre. C'est cette macro evenementielle là :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

With ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True

End with

End Sub

Certes ça concerne bien l'activation d'une nouvelle feuille mais je vois absolument pas le rapport avec le copié collé...

 

[flo2002]

Re : Le copié-collé inter-feuilles ne marche plus !

en effet tres bizzar, a la limite ti peux la mettre simplement sur une feuille cette macro ou le faire avec les options.

 

[Tonino7]

Re : Le copié-collé inter-feuilles ne marche plus !

ouai, c'est sûr que c'est pas un gros problème, mais j'voudrais bien savoir si y'a que chez moi que ça fait ça avec cette macro?

 

[flo2002]

Re : Le copié-collé inter-feuilles ne marche plus !

re
je crois que j'ai compris:
en effet chez moi j'ai le meme pb mais c'est normal, tu lance une appli entre le copier et le cller et donc il ne gare pas l'info.

 

[JeanMarie]

Re : Le copié-collé inter-feuilles ne marche plus !

Bonjour

Comme te l'a dit Florent, Excel perd la sélection de copie, il existe quand même deux solutions :
- à la paluche, affiche la barre d'outils du presse-papier, sélectionne ta plage de cellule à copier, tu vois qu' Excel a rajouté une icône dans la boîte, déplace toi sur l'autre feuille, sélectionne la cellule, et clique sur l'icône rajoutée. Voilà ta copie est faîte.

- en modifiant ton code ainsi

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[COLOR=SeaGreen][I]'Déclare un objet DataObjet[/I][/COLOR]
Dim MyData As DataObject
[COLOR=SeaGreen][I]'Initialise l'objet[/I][/COLOR]
Set MyData = New DataObject

[I][COLOR=SeaGreen]'Gestion d'erreur, si le presse-papiers est vide, VBA provoque une erreur[/COLOR][/I]
On Error Resume Next
[COLOR=SeaGreen]'Place les données du presse-papiers dans cet objet[/COLOR]
MyData.GetFromClipboard

'With ActiveWindow
'.DisplayHorizontalScrollBar = True
'.DisplayVerticalScrollBar = True
'End With
[I][COLOR=SeaGreen]
'Replace les données de l'objet dans le presse-papiers[/COLOR][/I]
MyData.PutInClipboard

End Sub

@+Jean-Marie