erreur de syntaxe ?

[rudy]

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]

 

[myDearFriend!]

Bonsoir Rudy, le Forum,

Tu as du faire une erreur en recopiant le code...

DimA As Integer, ... il manque un espace entre le Dim et le A
Couleur(A) = ... il manque un S à couleurs


Cordialement,

 

[Bebere]

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]

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

 

[rudy]

OK merci je vais reprendre mais lunette et etre un peu plus patient

A+


😱