Bonjour à toutes et tous,
Je cherche une façon de faire descendre une cellule ligne par ligne à un rytme différent (style tétris) selon valeur en "A1" (valeur pouvant aller de 1 à 15),
mais je n'arrive pas à gérer la vitesse, actuellement si je mets valeur de 1 à 5, pas de différence et si je mets 6 on vois plus rien.
Merci à tous.
Nicolas
Je cherche une façon de faire descendre une cellule ligne par ligne à un rytme différent (style tétris) selon valeur en "A1" (valeur pouvant aller de 1 à 15),
mais je n'arrive pas à gérer la vitesse, actuellement si je mets valeur de 1 à 5, pas de différence et si je mets 6 on vois plus rien.
VB:
Sub DescenteCellule()
Dim vitesse As Double
Dim delai As Double
Dim i As Integer
Dim couleur As Long
If IsNumeric(Range("A1").Value) Then
vitesse = Range("A1").Value
If vitesse <= 0 Then
MsgBox "La valeur de A1 doit être supérieure à 0.", vbExclamation
Exit Sub
End If
Else
MsgBox "Veuillez entrer un nombre valide dans la cellule A1.", vbExclamation
Exit Sub
End If
delai = 1 / (1 + (vitesse - 1) * 0.2)
couleur = Range("D5").Interior.Color
Range("D5:D25").Interior.ColorIndex = xlNone
For i = 5 To 25
Range("D5:D25").Interior.ColorIndex = xlNone
Range("D" & i).Interior.Color = couleur
DoEvents
Application.Wait Now + TimeSerial(0, 0, delai)
Next i
Range("D25").Interior.ColorIndex = xlNone
Range("D5").Interior.Color = RGB(0, 255, 0) ' Vert
End SubMerci à tous.
Nicolas