XL 2010 VBA - Double clics pour copier du texte

[tchi456]

Bonjour,

Je souhaite pouvoir copier du texte dans une cellule non verrouillée en double cliquant dans les cellules d'un tableau dont les cellules sont verrouillées.
Dans la cellule ou j'aimerai que le texte soit copié, il y a une liste déroulante comportant les noms qui se trouvent dans le tableau.

Avez-vous une astuce qui pourrait m'aider?

Meilleures salutations,

Thierry

 

[Bernard_XLD]

Bonjour tchi456, le forum

Léger manque de précisions et de fichier test/exemple dans votre demande.
Merci d'enrichir, ce n'est pas aux contributeurs, qui sont tous bénévoles, de passer du temps à essayer de comprendre et à monter un fichier de test pour, au final, ne pas correspondre à ce que vous attendez.

Bien cordialement, @+

 

[tchi456]

Bonjour tchi456, le forum

Léger manque de précisions et de fichier test/exemple dans votre demande.
Merci d'enrichir, ce n'est pas aux contributeurs, qui sont tous bénévoles, de passer du temps à essayer de comprendre et à monter un fichier de test pour, au final, ne pas correspondre à ce que vous attendez.

Bien cordialement, @+

Bonjour Yeahou,

Le fichier malheureusement est trop volumineux pour vous être envoyé mais j'ai créé un exemple.
Je souhaite double cliquer sur les cellules B5:AA5 (cellules verrouillées) et que le nom inscrit dans la cellule se copie dans la cellule AG8 (cellule déverrouillée).
Idem pour les cellules A6:A31 dans AG10.

Meilleures salutations,

Thierry

 

[Phil69970]

Bonjour @tchi456 , @Yeahou

Si j'ai compris, j'ai laissé la possibilité de mettre un MDP

dans les cellules d'un tableau dont les cellules sont verrouillées.

*Merci de ton retour

@Phil69970

 

[tchi456]

Bonjour Phil,

Merci pour votre proposition. Ca fonctionne super bien quand le fichier est déverrouillé mais malheureusement pas quand le fichier est verrouillé par mot de passe "toto". J'ai pourtant enlevé les 4 guillemets.

Meilleures salutations,

Thierry

 

[Phil69970]

Re

2 modifications à faire

et ensuite à la fin du code rajouter

Cancel = True
End Sub

Voir le fichier

*Merci de ton retour

@Phil69970

 

[tchi456]

Ca fonctionne à merveille !
Donc impossible de le faire sans pouvoir sélectionner les cellules verrouillées mais ça me va très bien.

Bonne journée et bonne année !