Boucle dans cellule

[Hulk]

Hello,

je souhaite faire défiler en cliquant sur un bouton, en boucle ou une fois, une liste de noms dans une cellule voulue. Est-ce possible ?

Merci pour votre aide !

Hulk.

 

[Hervé]

Re : Boucle dans cellule

bonsoir

comme ceci par exemple :

Private Sub CommandButton1_Click()
Dim c As Range

For Each c In Range("a1:a" & Range("a65536").End(xlUp).Row)
    Range("f8") = c
    Sleep 1000
Next c
End Sub

et ceci a rajouter dans un module (exclusivement dans un module)

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

bye

 

[Hulk]

Re : Boucle dans cellule

Re-bonsoir à tous,

Impec Hervé grand merci !

Si je ne m'abuse, peux-tu juste encore me montrer la version boucle ? (dans ce cas, avec un bouton stop nommé "Commandbuton2")

Merci encore pour ton aide.

Hulk.

 

[Hervé]

Re : Boucle dans cellule

salut

la version bouton d'arret mais avec un togglebutton, plus facile a manier.

bye