Discussion :

[retraite83]

Bonjour

je voudrai interdire le "Ctrl X" pour éviter le déplacement des formules et se retrouver avec des cellules vides tout en autorisant le "Ctrl C" / "Ctrl V" pour copier

L'essai le plus concluant trouvé est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub InterdireCouper()
  On Error Resume Next
  With Application
    'interdire le raccourci Ctrl + X
    .OnKey "^x", ""
    'interdire le couper
    .CommandBars("Edit").FindControl(ID:=21).Enabled = False
    .CommandBars("Cell").FindControl(ID:=21).Enabled = False
    .CommandBars("Column").FindControl(ID:=21).Enabled = False
    .CommandBars("Row").FindControl(ID:=21).Enabled = False
    .CommandBars("Button").FindControl(ID:=21).Enabled = False
    .CommandBars("Formula Bar").FindControl(ID:=21).Enabled = False
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = False
    .CommandBars("Standard").FindControl(ID:=21).Enabled = False
  End With
End Sub
 
Sub RetablirCouper()
  On Error Resume Next
  With Application
    ' rétablir le raccourci Ctrl + X
    .OnKey "^x"
   ' Rétablir le couper
    .CommandBars("Edit").FindControl(ID:=21).Enabled = True
    .CommandBars("Cell").FindControl(ID:=21).Enabled = True
    .CommandBars("Column").FindControl(ID:=21).Enabled = True
    .CommandBars("Row").FindControl(ID:=21).Enabled = True
    .CommandBars("Button").FindControl(ID:=21).Enabled = True
    .CommandBars("Formula Bar").FindControl(ID:=21).Enabled = True
    .CommandBars("Worksheet Menu Bar").FindControl(ID:=21).Enabled = True
    .CommandBars("Standard").FindControl(ID:=21).Enabled = True
End With
End Sub

mais cela me semble dangereux... et difficilement compréhensible...

Peut-on faire plus simple ?

[Patrice740]

Bonjour,

Pourquoi interdire ????
N'est-ce pas plus positif d'expliquer ?

[retraite83]

Bonjour Patrice

OUI !!! j'ai expliqué... mais l'utilisateur oublie, plongé dans ses pensées métier, il devrait faire "ctrl C" / "ctrl V" mais il fait "Ctrl X" / "ctrl V"...du coup il casse les formules... Ok c'est son pb, mais je préférerai lui interdire...

Je viens de lire une prose sur onkey... pas trouvé encore la solution

[Patrice740]

OUI !!! j'ai expliqué... mais l'utilisateur oublie, plongé dans ses pensées métier, il devrait faire "ctrl C" / "ctrl V" mais il fait "Ctrl X" / "ctrl V"...du coup il casse les formules... Ok c'est son pb, mais je préférerai lui interdire...

Pas besoin d'un usine à gaz, il suffit de protéger la feuille (les formules).

[retraite83]

Bonjour

je viens de tester, ce n'est pas suffisant

dans une feuille F1 j'ai une cellule C4 sans formule où on peut saisir une donnée

dans la feuille F2 j'ai une cellule dans laquelle j'ai la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=F1!C4

si je fais copier/coller de C4 en C5 dans F1 j'ai bien dans la feuille F2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=F1!C5

si je fais couper/coller (Ctrl - X) de C4 en C5 dans F1 j'ai dans la feuille F2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=F1!#REF!

C'est cela que je veux interdire

[Philippe Tulliez]

Bonjour,
Lorsque l'on protège une feuille, on ne peux pas faire de Couper/Coller des cellules verrouillées mais en revanche on peut faire une Copie
Pour empêcher la sélection de cellules et ainsi éviter le Copier/Coller, il suffit de décocher l'option Sélectionner les cellules verrouillées comme illustré ci-dessous

[Patrice740]

Sur la feuille 2 :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDIRECT("'F1'!C4")

et

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDIRECT("'F1'!C5")

Le fait de couper C4 coller en C5 sur F1 ne modifie pas les formules en F2.

Et si tu veux une formule "tirable" et/ou copiable :

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDIRECT("'F1'!" & ADRESSE(LIGNE(C4);COLONNE(C4)))

EDIT : Perso j'évite d'utiliser INDIRECT. On peut aussi utiliser DECALER, exemple =DECALER('F1'!A4;0;2)

[retraite83]

#13

Bonjour et merci

Je garde la solution INDIRECT, je ne comprends pas trop DECALER

[retraite83]

Bonjour

j'ai aussi trouvé et adapté :

à l'open du fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Cible As dataObject
 
Application.OnKey "^x", ""  ' Interdire Ctrl + X
Set Cible = New dataObject ' Active la référence "Microsoft Forms 2.0 Object Library."
Cible.setText ""  ‘ Vide presse papier
Cible.putInClipboard
Set Cible = Nothing

et au close

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.OnKey "^x"  ' Rétablir Ctrl + X

cela semble très bien marcher et correspond à mon besoin après une série de tests, mais pour l'ensemble du fichier

Par contre je ne sais pas s'il y a des effets de bord à une telle solution

Merci de vos éclairages