XL 2016 Un clavier dans un userform avec les symboles en grec et mathématique

Bonjour Amis du forum


Je voudrais faire un clavier avec les lettres grec, et si je me sent encore du courage je le ferais avec les symbole de math

Entre autres je cherche le symbole de racine care en code ascii

Par double clic sur une cellule l'userform apparais bien si la cellule est vide, mais ne fonctionne pas avec une cellule avec une déjà une valeur, que faut-il modifier dans le code pour avoir l'userform dans la cellule active

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

UserForm1.Show

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sur les boutons je mets ce code, pour mettre le symbole

Par exemple 70 Ω

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub CommandButton1_Click () 'omega

ActiveCell.Value = ActiveCell & " " & ChrW(&H3A9)

End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

1 - Que faut-il modifier pour que je puisse avoir l'userform par double click dans la cellule active pour ajouter le symbole directement

2- est-il possible de fermer l'userform dès que le symbole est saisi

3- de plus je ne peux pas faire d'opération avec les cellules ainsi renseignées, pouvez-vous me dire pourquoi, que dois-je modifier