Discussion :

[baryum]

Dans la colonne A de la feuille 2 j'ai au maximum 250 mots anglais avec la traduction dans la colonne B

Je souhaite en appuyant sur un bouton "Démarrage" faire défiler ces mots dans deux texbox avec un rythme de 1 mots par seconde.

Voilà le code :

Code :

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

1
2
3
4
5
6
7
8
  For i = 1 To Worksheets("Feuil2").Range("A1:A250").End(xlDown).Row
 
            Acceuil.TextBox_English.Value = Worksheets("Feuil2").Range("A" & i)
            Acceuil.TextBox_Français.Value = Worksheets("Feuil2").Range("B" & i)
 
            Application.Wait Time + TimeSerial(0, 0, 1)
 
        Next i

Problème :

Cela fonctionne correctement mais uniquement en réalisant une manipulation hasardeuse ^^

1) Cliquer sur le bouton "démarrage" dans le userform
2) Cliquer sur l'icone excel dans la barre inférieure
3) Ne plus rien toucher jusqu'à la fin

Si je ne clique pas sur l'icone excel, le programme de défilement s’exécute mais n'affiche pas les mots dans la texbox.

Hypothèse : Je pense que le userform doit être inactif lors de l’exécution du code, pour le moment je n'ai pas trouver la solution en code

[Daniel.C]

Bonjour,
Mets un "DoEvents" avant et après ton instruction 'Wait".

[Marc-L]

Bonjour,

essayer avant la pause d'abord avec la fonction DoEvents et le cas échéant avec la méthode Repaint …

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

[baryum]

Code :

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

1
2
3
4
5
6
7
8
 For i = 1 To Worksheets("Feuil2").Range("A1:A250").End(xlDown).Row
 
            Acceuil.TextBox_English.Value = Worksheets("Feuil2").Range("A" & i)
            Acceuil.TextBox_Français.Value = Worksheets("Feuil2").Range("B" & i)
            DoEvents
            Application.Wait Time + TimeSerial(0, 0, 1)
 
        Next i

Les deux méthodes fonctionnent

DoEvents : Bien, avec cependant le cercle bleu de la souris qui tourne en permanence durant l’exécution (Si il y a moyen de le retirer, je suis preneur).
Repaint : Bien, sans cercle bleu de la souris mais le userform scintille de temps en temps.

Merci pour l'information

[Daniel.C]

Au lieu de "Wait", utilise la méthode "OnTime".

[baryum]

Voilà le code en entier avec une ComboBox_Tps_Attente qui peut prendre la valeur 1 2 ou 3

1) Ontime réclame une procédure Application.OnTime Now + TimeValue("00:00:01"), ......... ?, je mets quoi puisqu'il y a pas de procédure à exécuter ?
2) Application.OnTime Now + TimeValue("00:00:01"), le 01 en gras doit prendre la valeur ComboBox_Tps_Attente.value

Code :

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

1
2
3
4
5
6
7
8
9
10
11
        For i = 1 To Worksheets("Feuil2").Range("A1:A250").End(xlDown).Row
             
            Acceuil.TextBox_English.Value = Worksheets("Feuil2").Range("A" & i)
            Acceuil.TextBox_Français.Value = Worksheets("Feuil2").Range("B" & i)

            'Acceuil.Repaint ' actualise userform           
            'Application.Wait Time + TimeSerial(0, 0, ComboBox_Tps_Attente.Value)

            DoEvents
            Application.OnTime Now + TimeValue("00:00:01")
        Next i

[Daniel.C]

En tête de module :

Code :

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

Public Ctr As Long

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Application.OnTime Now + TimeValue("00:00:01"), "ChangeTextbox"
End Sub
Sub ChangeTextbox()
    Dim Intervalle
    Ctr = Ctr + 1
    Intervalle = Now + TimeValue("00:00:1")
    Application.OnTime Intervalle, "ChangeTextbox"
    Acceuil.TextBox_English.Value = Worksheets("Feuil2").Range("A" & I)
    Acceuil.TextBox_Français.Value = Worksheets("Feuil2").Range("B" & I)
    If Ctr = Worksheets("Feuil2").Range("A1:A250").End(xlDown).Row Then
        Application.OnTime Intervalle, "ChangeTextbox", Schedule:=False
    End If
End Sub