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

Titi456 · 22 Mars 2023

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

sylvanu · 22 Mars 2023

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 · 22 Mars 2023

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

Titi456 · 31 Mars 2023

Bonjour Sylvanu,

Merci beaucoup pour votre aide; votre proposition sans verrouillage et par simple clic me convient parfaitement.

Bonne fin de semaine à vous et bon week-end!

Thierry

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

Titi456

XLDnaute Junior

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Titi456

XLDnaute Junior

Discussions similaires