Problème saisie TextBox dans un formulaire contenant un Webbrowser

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 !

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.

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 :D .

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...

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:

---

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:

---

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?

;)

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 ?

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

Pour ma deuxième question, je ne passe à vrai dire pas par un TextBox, mais par un CommandBox.

En fait, je souhaiterais afficher un message informant comme quoi la macro est en cours de traitement (ça peut durer plusieurs minutes), mais il s'avère que le message ne s'affiche qu'à la fin de la l'éxcution de la macro.

re

heu...... tu a besoins d'un webbrowser pour ca ???????????

Oui :mrgreen:

re
si la mise a jour concerne quelque chose dans le classeur je suis sur a 100% que non
sinon tu es trop vague dans la description de ton projet