Empêcher le CutCopyMode de se désactiver lors de changement sur une feuille

[pacoako]

Bonjour à tous,

Je voulais savoir s'il y a une façon d'évite que le CutCopyMode se désactive lors de modification sur la feuille? J'ai essayé de désactiver les évenements avec Application.Enableevents = False mais sans succès...

Est-ce qu'il y a un moyen de faire ça?

Merci pour votre aide!! Salut!! 😀

 

[soenda]

Re : Empêcher le CutCopyMode de se désactiver lors de changement sur une feuille

Bonsoir le fil, pacoako

Eviter que le "Cutcopy se désactive si l'on sélectionne une autre plage ...
Je ne crois pas 😕

Mais vois si tu peux adapter le brin suivant :
- On effectue une copie
- On désectionne la plage
- Puis on la resélectionne
=> Au final tout se passe comme si on avait interdit la déselection du "CutCopy"

Sub UnePiste()
    Dim R As Range
 
    [A1:A3].Copy [D1]
    Set R = [A1:A3]    [B][COLOR=green] ' Sauvegarde la plage[/COLOR][/B]
 
    CutCopyMode = False [B][COLOR=green]' Désactivation (remplace ton code)[/COLOR][/B]
 
    R.Select           [COLOR=green][B]' Réactivation[/B][/COLOR]
 
End Sub

A plus

 

[JNP]

Re : Empêcher le CutCopyMode de se désactiver lors de changement sur une feuille

Bonjour le fil 🙂,
Si le but est de faire une "multi copie", c'est à dire conserver la zone à copier dans le presse papier, on peux shunter les équivalents clavier en mettant dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^c"
Application.OnKey "^v"
End Sub
Private Sub Workbook_Open()
Application.OnKey "^c", "CopieConservée"
Application.OnKey "^v", "CollerConservée"
End Sub

et dans un module

Public AGarder As Range
Sub CopieConservée()
If AGarder Is Nothing Then
Set AGarder = Selection
End If
AGarder.Copy
End Sub
Sub CollerConservée()
Dim Plage As Range
Set Plage = Selection
AGarder.Copy Plage
End Sub

voir fichier joint.
Mais attention, je n'ai pas shunté les menus, ni le menu contextuel (manoeuvre différente entre 2000 et 2007...).
Bonne journée 😎

 

[pacoako]

Re : Empêcher le CutCopyMode de se désactiver lors de changement sur une feuille

Bonjour le forum, bonjour à vous 2

Merci beaucoup pour vos réponse elles me seront très certainement utiles!! J'ai hâte de tester le tout! A+