Vba nombre aléatoire

Résolu

texastina Messages postés 55 Statut Membre -
texastina Messages postés 55 Statut Membre - 12 oct. 2015 à 09:56

Bonjour à tous,

J'ai un petit problème, je veux générer un nombre aléatoire grâce au VBA
J'ai donc utiliser la formule :
sub ()

Randomize
nombre_aleatoire = Int(10*Rnd) + 1

End sub ()

Et mon problème est que rien ne s'affiche dans la case A1, pourquoi ? Comment faire pour que le code sache que c'est dans la case A1 que je veux mon chiffre aléatoire ?

Merci à tous pour vos réponses :)

Afficher la suite

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3360 Statut Membre 526
Bonjour,
```
Sub color()
Dim TabCouleur
    TabCouleur = Array(3, 23, 43, 1, 6)
    Randomize
    Cells(1, 1).Interior.ColorIndex = TabCouleur(Int(5 * Rnd))
End Sub
```
A+
1
1. texastina Messages postés 55 Statut Membre
  
  Merci encore une foi ! :)
  
  A +
  
  0
Réponse 2 / 2
Gyrus Messages postés 3360 Statut Membre 526
Bonjour,

Essaie avec
```
Sub Test()
    Randomize
    Range("A1") = Int(10 * Rnd) + 1
End Sub
```
A+
0
1. texastina Messages postés 55 Statut Membre
  
  Salut Gyrus
  
  Super merci ça marche :)
  
  Et une autre question : est ce que tu saurais comment faire apparaitre une couleur aléatoire toujours en VBA ? Attention mon critère est que je voudrais que l'aléatoire s'applique que aux couleurs primaire (juste Rouge, bleu, vert,noir,jaune) et non pas à toute la palette couleur de excel ?
  Actuelement j'utilise ce code :
  Sub color()
  Randomize
  Cells(1, 1).Interior.Color = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
  
  End Sub
  
  Merci encore :)
  
  0

Vba nombre aléatoire

2 réponses

Discussions similaires

Newsletters