Sélection aléatoire de cellule

Résolu
DeepGap Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
DeepGap Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

dans une plage de 9 cellules de type range("a1:c3") je souhaite au moyen d'une procédure vba sélectionner une cellule de manière aléatoire.
Mes recherches sur les forum sont demeurées infructueuses.

Merci d'avance pour votre aide

1 réponse

Réponse 1 / 1
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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
1
DeepGap Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci Polux31 pour cette réponse rapide qui fonctionne
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
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Excel formule : savoir si une cellule contient partie texte
plunderer007 -
francois -

14 réponses
tirage aléatoire sans doublon
missfraise02 -
sc -

14 réponses
Impossible fusionner cellules
aubli -
Christian -

3 réponses
excel fractionner une cellule horizontalement
jalil -
barbiy -

5 réponses