[EXCEL VBA]nombre au choix de l'ordinateur

Résolu
iliesss Messages postés 120 Statut Membre -  
michel_m Messages postés 18903 Statut Contributeur -
Bonjour,

j'ai une plage A1:A31 comment faire une macro qui affacte dans cette plage des nombre entre 8000,00 et 11000,00 de leur choix.

et merci
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Statut Modérateur 2 763
 
Bonjour,
Pour une plage plus importante, il faudra absolument* une autre macro. En attendant, voici ma contribution (modeste) à votre problème : 

Dim Lig As Integer 
Randomize 
For Lig = 1 To 31 
toto: 
Cells(Lig, 1) = Round(Rnd * 100000, 0) 
If Cells(Lig, 1) < 11000 And Cells(Lig, 1) > 8000 Then 
Else 
GoTo toto 
End If 
Next


* Il convient habituellement d'éviter les goto toto...
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
Bonjour,

peut-^tre + simple 

Sub noter()
Dim cellule As Range
Dim nbre as integer
Application.ScreenUpdating = False
Randomize
For Each cellule In Range("A1:A31")
    nbre = Int(Rnd * 3000) + 8000
    cellule = nbre
Next cellule
End Sub
0
pijaku
 
Salut Michel_m,
Effectivement, bien plus simple, plus rapide et aussi plus juste "programmaticalement" parlant.
Bonne journée
0
iliesss Messages postés 120 Statut Membre
 
salut mr pijaku
merci pour toi et pour mr michel
ca marche tres bien.
mais si mon nombre contien deux chiffres apres la vergule comme faire SVP
0
michel_m Messages postés 18903 Statut Contributeur 3 317
 
bonjour 
Sub noter()
Dim cellule As Range
Dim nbre As Double
Application.ScreenUpdating = False
Randomize
For Each cellule In Range("A1:A31")
    nbre = Rnd * 3000 + 8000
    cellule = Round(nbre, 2)
Next cellule
End Sub
0