Comment fait-on pour faire clignoter un label ou faire defiler le titre d'une fe

Question

Comment fait-on pour faire clignoter un label ou faire defiler le titre d'une feuille mais sans utiliser Timer?
(car je suis debutant et je travaille sur un projet qui qui utilise vba et où il ya pas de timer.
Merci de votre aide

cs_legion91 · Answer

Sans timer (enfin la on va le programme) même si je croi ne pas repondre a ta kestion mais bon

Private Sub Command1_Click()
'clignote
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
LoopIf Label1.Visible True Then Label1.Visible False Else Label1.Visible = True
a = Timer
Loop
End Sub

Private Sub Command2_Click()
'defilement
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
Label2.Caption = Mid(Label2.Caption, 2, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
a = Timer
Loop
End Sub

'### LEGION91 ###

algo69 · Answer

Je te remercie, ça marche merveilleusement bien
et Bravo LEGION91

algo69 · Answer

Mais est ce qu'on peut faire tourner le timer en meme temps que mon pgm (que je veux faire tourner). Exemple:

Private Sub UserForm_Initialize()
'defilement
Dim a As String
a = Timer
Do
Do Until a + 0.5 <= Timer
DoEvents
Loop
Label2.Caption = Mid(Label2.Caption, 2, Len(Label2.Caption) - 1) & Left(Label2.Caption, 1)
a = Timer
Loop

  call MaFonction()  'appel d'1 fction

End Sub

cs_legion91 · Answer

Heu dans cas je te conseillerai Private Sub UserForm_Activate()

Comment fait-on pour faire clignoter un label ou faire defiler le titre d'une fe

4 réponses

Discussions similaires