Vba nombre aléatoire
Résolu
texastina
Messages postés
52
Date d'inscription
Statut
Membre
Dernière intervention
-
texastina Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
texastina Messages postés 52 Date d'inscription Statut Membre Dernière intervention -
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 :)
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 :)
A voir également:
- Vba nombre aléatoire
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Excel compter cellule couleur sans vba - Guide
- Gto nombre episode ✓ - Forum Cinéma / Télé
- Faites afficher avec un fond coloré les cellules qui contiennent une valeur comprise entre 250 et 350. quel nombre est dessiné en surbrillance ? ✓ - Forum Excel
2 réponses
Bonjour,
A+
Sub color()
Dim TabCouleur
TabCouleur = Array(3, 23, 43, 1, 6)
Randomize
Cells(1, 1).Interior.ColorIndex = TabCouleur(Int(5 * Rnd))
End Sub
A+
Bonjour,
Essaie avec
A+
Essaie avec
Sub Test()
Randomize
Range("A1") = Int(10 * Rnd) + 1
End Sub
A+
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 :)
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 :)
A +