XL 2010 Faire patienter l'utilisateur avec le défilement dans un webbrowser

Gnedea à dit:

Lorsque je clique sur le bouton démarrer le défilement du webbrowser caché fonctionne et je n'arrive pas à écrire le symbole @ demandé obligatoirement.

Cliquez pour agrandir...

jurassic pork à dit:

Hello,
pas de chance le caractère @ est spécial dans une Textbox , c'est pour rentrer un numérique. Par contre si tu tapes Alt+064 tu auras bien un @.
Ami calmant, J.P

Cliquez pour agrandir...

jurassic pork à dit:

Hello,
le souci c'est que le webbrowser ne se rafraichit pas dans ta boucle et il y a un temps mort de 1 seconde avec ton Wait.
L'idée c'est d'accélerer la boucle à 40 ms en utilisant un Sleep :

VB:

#If VBA7 Then
   Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
   Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Private Sub CommandButton1_Click()
Dim x As Integer
label1.Left = 24
label1.Top = 66
Label2.Left = 48
Label2.Top = 42
Label4.Left = 87
Label4.Top = 67

WebBrowser1.Left = 82
WebBrowser1.Top = 44

CASE_COMPTE_A_REBOUR.Left = 68.05
CASE_COMPTE_A_REBOUR.Top = 67

'===================== COMPTE A REBOUR ======================================
CASE_COMPTE_A_REBOUR.Caption = 20
Dim COMPTE_A_REBOUR As Integer
With UserForm1
For x = CASE_COMPTE_A_REBOUR.Caption * 25 To 0 Step -1
Sleep 40: DoEvents ' 40 ms
If x Mod 25 = 0 Then
    CASE_COMPTE_A_REBOUR.Caption = x / 25
End If
Next
End With
'============================================================================
If CASE_COMPTE_A_REBOUR.Caption = 0 Then

End If

End Sub

Regarde la pièce jointe 1211117

Peut-être que patricktoulon aura une meilleure idée.

Ami calmant, J.P

Cliquez pour agrandir...