TournicotiTournicoton

Retour vers Excel

Faire tourner un texte sur lui-même

Réaliser un effet de bannière tournante avec du texte dans une cellule. Ici, nous entrons n'importe quel texte dans la cellule E10 et nous actionnons le bouton pour déclencher l'action

Code :

'StandardModule: Modul1

Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Rotate()
  Dim C As Range
  Dim i%
  Set C = Range("E10")
  For i = 1 To 200
    C = Right(C, Len(C.Value) - 1) + Left(C, 1)
    Sleep 100
  Next i
End Sub

For i = 1 to 200 détermine la durée de l'animation....Ce paramètre est obligatoire sinon nous entrons dans une boucle sans fin et il nous impossible d'entrer d'autres données
Sleep 100 détermine la vitesse de rotation

Code pour le bouton :

Private Sub CommandButton1_Click()
 Call Rotate
End Sub

Télécharger le fichier exemple TourniCotiTourniCoton

FIN