aide sur macro

[lao31]

Bonjour

Me suis aventure a faire une macro qui au depart me semble simple:

Sub Macro1()

Dim i As Integer

i = RAND() * (12 - 1) + 1
Range("c2:c6").Hyperlinks(i).Follow

End Sub

quand je l execute j ai ce message d erreur:
Sub or function not defini ..

VBA ne reconnait il pas les fonction alea ?

Merci pour votre aide

 

[Pierrot93]

Re : aide sur macro

Bonjour,

essaye peut être comme ceci :

Dim i As Integer
Randomize
i = Int(12 * Rnd) + 1
Range("c2:c6").Hyperlinks(i).Follow

bonne journée
@+

 

[Pierrot93]

Re : aide sur macro

Re,

Petit complément, avec ce code i prendra une valeur comprise de 1 à 12...

 

[lao31]

Re : aide sur macro

Re Le Forum Bonjour Pierrot

Merci beaucoup, cela faisait 2 jours que je ramai, et la en 2 mins la solution.

j etais parti dans des macro absurdes ( voir mes posts precedent ).
Une nouvelle fois merci pour votre aide

lao