selection aleatoire d'une cellule

[sri75]

Bonjour à tous et joyeux noel.

Sur une plage de cellule de type A1:A10 je cherche une macro qui irait placer mon curseur aléatoirement dans cette plage.

A chaque fois que je relance la macro mon curseur se place sur une autre cellule, au hasard.

Merci de votre aide.

 

[PascalXLD]

Bonjour

Essaies ceci

Sub toto()

Range('A' & (Int((10 * Rnd) + 1))).Select

End Sub

 

[Robert]

Bonjour Sri75, bonjour le forum,

Essaie cette macro :

Sub Macro1()
Randomize 'Initialise le générateur de nombres aléatoires
'Pour générer des entiers aléatoires dans une plage donnée, utilisez la formule ci-dessous :
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
a = Int(10 * Rnd + 1)
Cells(a, 1).Select 'sélectionne aléatoirement une cellule dans la plage A1:A10
End Sub

Édition

Bonjour Pascal. Toujours aussi rapide malgré le froid polaire...

Message édité par: Robert, à: 28/12/2005 13:59

 

[sri75]

Ca fonctionne parfaitement merci Robert.

 

[PascalXLD]

Message spécial à Robert

Je fus peut-être plus rapide mais à la rigueur tellement rapide que je ne fus point vu 😉

Bonne journée

 

[Robert]

Bonjour Sri, Pascal, bonjour le Forum,

Mort de rire Pascal ! L'avantage des gros c'est qu'on nous voit... Ou bien SRI veut dire Seul Robert pour l'Instant ou bien Sans Remerciement à l'Iniciant. Alors c'est moi qui te remercie pour lui...

 

[sri75]

D'habitude je mets merci à tous dans mes posts,

pour une fois que je personnalise je me plante.

Donc mes excuses à Pascal et bonnes fêtes à tous.