poignée de recopie

[ychc]

Bonsoir le forum,

Dans le but de protéger deux feuilles dans un classeur, j'ai inséré ce code afin d'empêcher le copier/coller.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("a1:j500"), Target) Is Nothing Then
Application.CellDragAndDrop = True
Else
Application.CellDragAndDrop = False
End If
End Sub

Depuis, lorsque j'ouvre n'importe quel autre fichier excel, le copier/coller fonctionne normalement, mais c'est la poignée de recopie qui n'apparaît plus.
Je n'arrive pas à remettre en service cette fonction à l'ouverture de nouveaux ou d'anciens fichiers comme à l'origine.
Si quelqu'un a déja connu ce petit problème, je suis preneur de toutes propositions.
Merci et bonne soirée à vous.

 

[Guest]

Re : poignée de recopie

Bonsoir,

Oui Excel c'est un peu comme les WC il vaut mieux le quitter dans l'état où on l'a trouvé en entrant.

Dans le module ThisWorkBook de ton fichier qui modifie DragAndDrop:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.CellDragAndDrop = True
End Sub

A+

 

[Victor21]

Re : poignée de recopie

Bonsoir, ychc

Aide d'Excel :

Afficher ou masquer la poignée de recopie
Cliquez sur Options dans le menu Outils, puis sélectionnez l'onglet Modification.
Activez ou désactivez la case à cocher Glissement-déplacement de la cellule.

 

[ychc]

Re : poignée de recopie

Bonsoir Hasco, Victor

Merci pour vos réponses, j'ai réussi à me remettre aux conditions habituelles.
Bonne soirée.