Discussion :

[Orbeaman]

Bonjour,

Je viens de m'apercevoir, qu'il met impossible de saisir les charactères tels accesibles les charactères tels que "{", "[", "|", "\",... En fait tous ceux via la toûche "Alt" dans un TextBox d'un formulaire qui contient un Webbrowser (j'ai l'impression que le Webbrower inhibie la toûche "Alt".

Ps : je précise que depuis Excel 2013 et 2016 interdit (et non Excel 2010) l'insertion d'un objet Webbrowser par défaut dans un classeur (ce que j'aurais préféré). Il est possible d'y remédier en changeant une clé registre, mais ça nécessite les droits administrateurs. Le fait de passer par un formulaire permet de contourner ce problème de droits...

J'ai joins un exemple.

Si quelqu'un à une idée ? Merci par avance !

[clementmarcotte]

Bonjour,

Juste pour être sûr, essaie les mêmes caractères dans un autre programme ou directement dans une feuille de calcul. Parce que Winscrap 10 est affligé du même problème depuis la mise à jour d'octobre.

[Orbeaman]

Je suis rassuré dans le sens où ça ne montre pas d'erreur de programmation pour ma part. J'avais des doutes, car j'utilise des classes, et je pensais que le problème pouvait venir des références que je passais...

Finallement, ça fonctionne tant bien que mal :
- en tappant Alt suivi du code ASCII (via le clavier numérique) ;
- en copiant / collant depuis un éditeur de texte ;
- avec un TextBox dans un formulaire "pop-up" sans Webbrowser ;
- ...
- sauf en tappant directement le texte .

J'imagine que le problèmes des différentes librairies .Net (ça dépasse un peu mon spectre de compétences) qui sont inhibées par défaut...

[patricktoulon]

bonjour
il faut simplement rendre invisible le webbrowser pendant que le keycode 17(ALT Gr) est activé
soit par les api soit par un jeu d'astuce dans le textbox keydown et Keyup

EDIT:
tiens je suis allé le repecher dans mon wysiwyg mail CDO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim oldchar
Dim oldlen
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Or KeyCode = 18 Then WebBrowser1.Visible = False: oldchar = IIf(TextBox1.Value <> "", Right(TextBox1.Value, 1), ""): oldlen = Len(TextBox1.Value)
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If oldlen <> Len(TextBox1.Value) Or oldchar <> Right(TextBox1.Value, 1) Then WebBrowser1.Visible = True: TextBox1.SelStart = Len(TextBox1.Value)
End Sub

et je viens meme de m'en rendre compte (comme quoi des fois 4 ans apres on réfléchi autrement)
ca peut se resumé a ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then WebBrowser1.Visible = False
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 17 Then WebBrowser1.Visible = True
End Sub

autrement dit des que tu appuie ou tant que tureste appuyé sur la touche "ALT Gr" le webbrowser est invisible on peut donc taper tout les caracteres speciaux
le fait de rendre invisible puis visible est une gene moins importante que de devoir taper le code asc non?

[Orbeaman]

Merci pour l'astuce Patrick, mais j'aurais à vrai dire préférer laisser le Webbrowser visible pendant la saisie dans la TextBox. Je garde quand même l'astuce en tête...

Une autre question au passage : est-il possible d'actualiser un Webbrowser pendant l'excécution d'une macro ?

[patricktoulon]

oui bien sur heureusement
un webbrowser se comporte comme un explorateur html (ie,chrome,etc...)
c'est quoi exactement ton projet ?
le fait d'etre invisible n'empche pas le .document du webbrowser d'etre rafraichi ou mis a jour