Sélection aléatoire de cellule

Résolu

DeepGap Messages postés 2 Statut Membre -
DeepGap Messages postés 2 Statut Membre - 2 juil. 2014 à 10:48

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

Afficher la suite

1 réponse

Réponse 1 / 1
Polux31 Messages postés 7219 Statut Membre 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
1. DeepGap Messages postés 2 Statut Membre
  
  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

Sélection aléatoire de cellule

1 réponse

Discussions similaires

Newsletters