Problème macro choix aléatoire dans liste

[ONYXTEQUILA]

Bonjour à tous,
Je voudrais créer une macro qui sélectionnerait une case aléatoirement dans une colonne, j'ai fait ceci :

Sub selection_aléatoire()
Application.ScreenUpdating = False
Randomize
'Sélectionne aléatoirement une case de la ligne 34 à 252 et de la colonne b
Cells(Int(Rnd * 219) + 34, 2).Select

ActiveCell.Copy
Range("a7").Select
ActiveSheet.Paste
End Sub

Mon problème est que parfois, quand je clique sur le bouton associé à cette macro, une case supérieure à la case 252 est sélectionnée. Je ne comprends pas pourquoi. Je suis débutante en création de macros, quelqu'un pourrait-il prendre quelques minutes pour m'aider.

Merci d'avance

Sophie

 

[vgendron]

Hello
as tu essayé avec la syntaxe donnée par l'aide VBA de la fonction RND?

'Sélectionne aléatoirement une case de la ligne 34 à 252 et de la colonne b
Cells(Int((252 - 34 + 1) * Rnd + 34), 2).Select

 

[ONYXTEQUILA]

Hello
as tu essayé avec la syntaxe donnée par l'aide VBA de la fonction RND?

'Sélectionne aléatoirement une case de la ligne 34 à 252 et de la colonne b
Cells(Int((252 - 34 + 1) * Rnd + 34), 2).Select

Mille mercis, ça fonctionne correctement maintenant.

Bonne fin de journée
Sophie