XL 2010 VBA - Copier cellule verrouillée par double clics

Titi456

XLDnaute Junior
Bonjour,

J'ai créé une liste des symboles spéciaux que j'utilise le plus souvent et je souhaiterais pouvoir double cliquer sur n'importe quel symbole et pouvoir le copier (sans coller; je souhaite le coller par la suite dans un fichier Word).

Pouvez-vous m'aider? Le fichier attaché est verrouillé par mot de passe et c'est un point "."

Mes meilleures salutations,

Thierry
 

Pièces jointes

  • _Symboles.xlsm
    17 KB · Affichages: 5
Solution
Bonjour Titi,
Il n'est pas utile de déprotéger la feuille pour copier.
Un essai en PJ avec un simple clic pour copier avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    Target.Copy
Fin:
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Titi,
Il n'est pas utile de déprotéger la feuille pour copier.
Un essai en PJ avec un simple clic pour copier avec :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
    If Target.Count > 1 Or Target = "" Then Exit Sub
    Target.Copy
Fin:
End Sub
 

Pièces jointes

  • _Symboles.xlsm
    21.9 KB · Affichages: 1

Discussions similaires

Réponses
4
Affichages
984

Statistiques des forums

Discussions
315 091
Messages
2 116 109
Membres
112 662
dernier inscrit
lou75