Discussion :

[xababaTT]

Bonjour,
J’ai un fichier qui contient plusieurs feuilles de calculs (toutes protégées par un MDP). Toutes mes feuilles sont équipées de menus déroulants pour faciliter les utilisateurs et uniformiser les saisies. Dans les validations des données j’ai :
Coché : ignoré si vide
Coché : quand des données non valides sont tapées
Style : Arrêt

Cela marche très bien si dans les cellules concernées on tape une valeur différente, elle est refusée.

Néanmoins, j’ai des petits malins qui arrivent à mettre autre chose avec une solution de Copier/Coller !!
Question : y a-t-il un moyen pour éviter cela ????

Une autre solution serait si possible de capter l’événement sélection de la cellule où se trouve le menu déroulant est de dérouler le menu automatiquement pour empêcher l'utilisateur de saisir du texte dans la cellule.
Est-ce possible ? Je sais qu’on peut le faire avec les combobox control mais avec les déroulements de menu avec les objets de validations je ne sais pas
Merci d’avance

[Pierre Fauconnier]

Salut.

Perso, j'éduque mes utilisateurs à travailler avec l'outil que j'ai créé pour eux, en les informant que s'ils ne respectent pas les règles, ils seront probablement les premiers lésés. Ne pas oublier qu'Excel est un tableur et pas un "outil de développement de logiciel".

On ne sait pas capter l'événement "Copy" sur une cellule. On peut, sur l'événement Change, vérifier que la cellule contient une donnée valide (i.e. qui est présente dans une liste) et éventuellement informer l'utilisateur ou défaire ce qui vient d'être fait...

On peut aussi tout verrouiller et ne travailler qu'avec des userforms... C'est cependant dénaturer totalement Excel et créer, sur base d'un outil qui n'est pas fait pour, une appli complète, avec ce que cela suppose comme compétences en développement d'applications à devoir mettre en oeuvre. Le jeu en vaut-il la chandelle? Poser la question revient à y répondre, pour moi

[MarcelG]

Bonsoir à vous, Bonsoir au Forum,

Désolé pour cette absence (surbooké).

Pierre!

De mémoire, il est possible d'empêcher la copie en vidant le presse papier lors d'un changement de sélection dans la feuille de travail.

Soit.

Dans le code inhérent à la feuille de travail

Code :

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

1
2
3
4
5
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call empêche_copie
End Sub

Dans un module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Public Sub empêche_copie()
    OpenClipboard 0
    EmptyClipboard
    CloseClipboard
End Sub

Eventuellement à adapter en fonction de l'évènement.

Le code de la procédure est reporté dans la FAQ à la partie consacrée au presse-papier.

Ciao a tutti. A più tardi.