erreur de syntaxe ?

rudy

XLDnaute Occasionnel
bonjour a tous je recherche des moyen d animer une page excel je vien juste de recopier (il faut pas rire S.V.P) se texte pour savoir se que sa donne mais il y a toujour une erreur que je n arrive pas a repérer ????

merci de votre aide et si vous avait des liens a me filet sa serai le bien venu

A+ [file name=RD_20051212210520.zip size=6892]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RD_20051212210520.zip[/file]
 

Pièces jointes

  • RD_20051212210520.zip
    6.7 KB · Affichages: 12

Bebere

XLDnaute Barbatruc
bonsoir Rudy,MyDearFriend

le code corrigé
Sub Guirlande()
Dim Boucle, Tempo, x, y As Integer

Dim A As Integer, Taille As Integer, Duree As Integer

Dim Couleurs(10000) As Integer

Taille = 20: Duree = 100

For A = 1 To Taille: Couleur(A) = Rnd * 56: Next A

For Boucle = 1 To Duree

For x = 1 To Taille

Range('A1').Offset(x + 5, 0).Interior.ColorIndex = Couleurs(x)

Next x

For y = Taille To 2 Step -1: Couleurs(y) = Couleurs(y - 1): Next y

Couleurs(1) = Rnd * 56

For Tempo = 1 To 1000000#: Next Tempo

Next Boucle

End Sub
à bientôt :)
 

Bebere

XLDnaute Barbatruc
re
oups,autant pour moi

Sub Guirlande()
Dim Boucle, Tempo, x, y As Integer

Dim A As Integer, Taille As Integer, Duree As Integer

Dim Couleurs(10000) As Integer

Taille = 20: Duree = 100

For A = 1 To Taille: Couleurs(A) = Rnd * 56: Next A

For Boucle = 1 To Duree

For x = 1 To Taille

Range('A1').Offset(x + 5, 0).Interior.ColorIndex = Couleurs(x)

Next x

For y = Taille To 2 Step -1: Couleurs(y) = Couleurs(y - 1): Next y

Couleurs(1) = Rnd * 56

For Tempo = 1 To 1000000#: Next Tempo

Next Boucle

End Sub
 

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86