Nombre aléatoire

[Nath69]

Bonjour.
Je voudrais créer un bouton qui, lorsqu'on clique dessus, affiche dans une cellule (R8 par exemple) un nombre entier compris entre 1 et 6.
Merci de votre aide.
Nath.

 

[Myta]

Salut nath69 et le forum

Essaye ceci

Private Sub CommandButton1_Click()
Randomize
' Renvoie une valeur aléatoire comprise entre 1 et 6.
Range("R8") = Int((6 * Rnd) + 1)
End Sub

Mytå

 

[Nath69]

Bonjour.
Merci Myta. Ca marche.
Y a-t-il une possibilité pour que la cellule "R8" soit vide à l'ouverture du fichier ? D'autre part, Je n'arrive pas à insérer un long texte dans une cellule. Sont-elles limitées en nombre de carractère ?
Merci.

 

[Myta]

Re Nath69

Pour la cellule vide a l'ouverture à inserer dans ThisWorkbook

Private Sub Workbook_Open()
Worksheets("Feuil1").Range("R8") = ""
End Sub

Pour le nombre limite de caractères avec Excel 2000 c'est 1024 caractères
pour les autres versions je ne sais pas sauf que Excel 5 etait limité a 255
caractères.

Mytå

 

[Nath69]

Re.
Merci pour ta réponse. Malheureusement, je suis extrêmement débutante et je ne connais pas : ThisWorkbook.
Merci.
Nath.