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
964

Statistiques des forums

Discussions
314 708
Messages
2 112 097
Membres
111 416
dernier inscrit
philipperoy83