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

[Gnedea]

Bonjour les experts du forum.
J'ai deux problèmes avec mon application.
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.
Le deuxième est que si le problème de l'écriture du symbole @ est résolu, on clique maintenant sur le bouton masquer ou afficher case. A ce niveau le défilement du webbrowser s'arrête, or je voudrais que le défilement continu pendant que la macro s'exécute pour faire patienter l'utilisateur.
Est ce qu'il y a un moyen pour le faire ?
S'il y a une autre solution je suis preneur.
Merci pour votre aide.
Je joins mon fichier

 

[Gnedea]

Le premier fichier envoyé est une erreur j'envoie le fichier à nouveau
C'est le fichier résultat fruit

 

[jurassic pork]

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.

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

 

[Gnedea]

O

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

Merci jurassic et concernant le deuxième problème pour faire patienter avec le défilement du webbrowser ? Comment faire ?

 

[jurassic pork]

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 :

#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

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

Ami calmant, J.P

 

[Gnedea]

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 :

#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

Merci Jurassic c'est
Génial ça fonctionne normalement