Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…