Un compteur qui se déplace

Fermé
duduleray - 26 mars 2012 à 16:07
Bonjour a toutes et tous, forum



j'ai créer un UserForm avec un Label1

Après avoir vu ce petit fichier voir code ci-dessous en Démo, je souhaiterai svp faire la mème chose dans mon userform via le label1, je n'arrive pas a coder cela

il faut svp que le compteur compte ou décompte, en fait suivre le curseur d'un Control Slider avec son ruban bleu qui avance ou recule avec la molette de la souris ou par click

PS:pour le compteur donner l'illusion qu'il se déplace sur une rangée

Merci de votre aide et de votre temps, bonne après midi

Cdlt

'*** DEMO CODE COMPTEUR
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As Byte: Dim i
Range("F2:Y20") = ""                    'on efface la plage

For x = 1 To 20
Application.Wait (Now + TimeValue("0:00:01"))     'tempo pour ne pas aller trop vite

Cells(2, 5 + x) = x
Cells(2, 5 + x - 1) = ""                                'on efface l'affichage précédent

Next x
End Sub