Sélection aléatoire de cellule
Résolu/Fermé
DeepGap
Messages postés
2
Date d'inscription
mercredi 2 juillet 2014
Statut
Membre
Dernière intervention
2 juillet 2014
-
2 juil. 2014 à 09:46
DeepGap Messages postés 2 Date d'inscription mercredi 2 juillet 2014 Statut Membre Dernière intervention 2 juillet 2014 - 2 juil. 2014 à 10:48
DeepGap Messages postés 2 Date d'inscription mercredi 2 juillet 2014 Statut Membre Dernière intervention 2 juillet 2014 - 2 juil. 2014 à 10:48
A voir également:
- Choisir cellule aléatoire excel
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Formule excel - Guide
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
2 juil. 2014 à 10:26
2 juil. 2014 à 10:26
Bonjour,
Sub CellAlea()
Dim AleaRow As Integer
Dim AleaCol As Integer
Randomize Timer
AleaRow = Int(Rnd() * 3) + 1
AleaCol = Int(Rnd() * 3) + 1
Cells(AleaRow, AleaCol).Select
End Sub
2 juil. 2014 à 10:48
J'ai finalement trouvé une solution de mon côté, sans que cela fâche qui que ce soit , parce que même si je demande de l'aide, je ne lache pas "l'affaire".
Donc la voici
Cells(Int(Rnd * 3) + 8, Int(Rnd * 3) + 8).Select
Elle permet de sélectionner dans la plage h8:j10 qui était ma cible au départ
J'aurais bien sur réadapter ta réponse Pollux31
Je suis parti de l'écriture suivante que j'ai trouvé sur le net
Cells(Int(Rnd * 10) + 1, 1).Select
J'ai testé afin de comprendre comment elle fonctionnait et puis j'ai trouvé la solution ci-dessus.
Encore un grand merci
Cordialement