selection aleatoire d'une cellule

PascalXLD

XLDnaute Barbatruc

• 28 Décembre 2005

• #2

Bonjour

Essaies ceci

Sub toto()

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

End Sub

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Décembre 2005

• #3

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

Cliquez pour agrandir...

Édition

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

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

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 28 Décembre 2005

• #4

Ca fonctionne parfaitement merci Robert.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 28 Décembre 2005

• #5

Message spécial à Robert

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

Bonne journée

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Décembre 2005

• #6

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...

 

Vote positif 0 Vote négatif

S

sri75

XLDnaute Occasionnel

• 28 Décembre 2005

• #7

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.

 

Vote positif 0 Vote négatif