Défilement chronométré d'une liste !

[Michel_ja]

Bonjour à tous : j'aimerais savoir s'il est possible de faire défiler successivement dans une cellule A1, une liste de termes préalablement définis (ce qu'on fait par exemple pour les listes déroulantes) à une vitesse détérminée.
Mon souci est que je dois rentrer successivement dans cette cellule une grande liste de pays ; une fois le pays rentré, j'obtiens des valeurs dans des cellules où se trouve la fonction BDSOMME. Chonométrer ce défilement serait important car cela me laisserait le temps de voir si la tendances des chiffres est à la hausse ou à la baisse.... Peut-être qu'une macro est capable de faire cela.
Merci d'avance pour vos idées.

 

[JNP]

Re : Défilement chronométré d'une liste !

Bonsoit Michel_ja 🙂,
Jettes un œil sur la fonction "Wait" en VBA, elle devrait te donner satisfaction.
Bonne soirée 😎

 

[kjin]

Re : Défilement chronométré d'une liste !

Bonsoir,
A adapter
A+
kjin

 

[Michel_ja]

Re : Défilement chronométré d'une liste !

Bonjour, j'ai adapté le code en écrivant le texte ci-dessous. La macro commence bien et m'insert le premier pays mais je reçois juste après un message d'erreur disant que le macro ne peut être trouvée ("the macro can not be found"). Cela viendrait d'où ?
Merci les gars

Dim temps As Variant, i As Integer

Sub Compteur()
temps = Now + TimeValue("00:00:02") 'Ici 2 secondes
Application.OnTime temps, "MajCel"
End Sub

Sub Majcel()

i = i + 1
If i = 43 Then i = 2
Cells(45407, 6) = Sheets("Countries").Cells(i, 1)
Compteur
End Sub

Sub StopCompteur()
On Error Resume Next
Application.OnTime temps, "MajCel", , False
i = 0
End Sub

 

[Michel_ja]

Re : Défilement chronométré d'une liste !

OUPS !!! C'est bon ça fonctionne 🙂
La raison du petit contre temps, du message d'erreur, est que la macro n'était pas dans "Module". La macro était écrite dans dans une page du fichier !
Merci KJIN et Merci JNP !
Cool !