Nombre aléatoire

M

Myta

Guest

• 4 Septembre 2003

• #2

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å

 

Vote positif 0 Vote négatif

N

Nath69

Guest

• 5 Septembre 2003

• #3

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.

 

Vote positif 0 Vote négatif

M

Myta

Guest

• 5 Septembre 2003

• #4

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å

 

Vote positif 0 Vote négatif

N

Nath69

Guest

• 5 Septembre 2003

• #5

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

 

Vote positif 0 Vote négatif