La Vouivre
XLDnaute Occasionnel
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
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