Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Nb aléatoire avec evaluate

Nb aléatoire avec evaluate

3 réponses
Avatar
jp
Bonjour,

En colonne 1 j'ai les valeurs mini en colonne 2 j'ai les valeurs
maxi.
J'utilise la macro suivante pour g=E9n=E9rer des valeurs al=E9atoires:

Sub AttribConsol()
For i =3D 3 To (Cells(1, 10).Value) / 10
a =3D Cells(i, 1).Value
b =3D Cells(i, 2).Value
Cells(i, 13) =3D Evaluate("=3DALEA.ENTRE.BORNES(a,b)")
Next i
End Sub

En colonne 13 j'obtiens "#NOM?"

Quelqu'un saurait me dire o=F9 est l'erreur?
Merci d'avance

JP
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Cells(i, 13) = Evaluate("RANDBETWEEN(" & A & "," & b & ")")

Si tu as une version antérieure à excel 2007, tu dois ajouter la
bibliothèque (référence) suivante à partir de la fenêtre de l'éditeur
de code : barre des menus / outils / references / ATPVBAEN.XLA





"jp" a écrit dans le message de news:

Bonjour,

En colonne 1 j'ai les valeurs mini en colonne 2 j'ai les valeurs
maxi.
J'utilise la macro suivante pour générer des valeurs aléatoires:

Sub AttribConsol()
For i = 3 To (Cells(1, 10).Value) / 10
a = Cells(i, 1).Value
b = Cells(i, 2).Value
Cells(i, 13) = Evaluate("=ALEA.ENTRE.BORNES(a,b)")
Next i
End Sub

En colonne 13 j'obtiens "#NOM?"

Quelqu'un saurait me dire où est l'erreur?
Merci d'avance

JP
Avatar
Jacky
Bonjour,

Essaie
Cells(i, 13) = Evaluate("ALEA.ENTRE.BORNES(" & a & "," & b & ")")

Non testé , mais devrait faire
--
Salutations
JJ


"jp" a écrit dans le message de news:

Bonjour,

En colonne 1 j'ai les valeurs mini en colonne 2 j'ai les valeurs
maxi.
J'utilise la macro suivante pour générer des valeurs aléatoires:

Sub AttribConsol()
For i = 3 To (Cells(1, 10).Value) / 10
a = Cells(i, 1).Value
b = Cells(i, 2).Value
Cells(i, 13) = Evaluate("=ALEA.ENTRE.BORNES(a,b)")
Next i
End Sub

En colonne 13 j'obtiens "#NOM?"

Quelqu'un saurait me dire où est l'erreur?
Merci d'avance

JP
Avatar
jp
Merci à michdenis et jacky, les deux fonctionnent!
JP

On 14 déc, 14:10, "Jacky" wrote:
Bonjour,

Essaie
 Cells(i, 13) = Evaluate("ALEA.ENTRE.BORNES(" & a & "," & b & ")")

Non testé , mais devrait faire
--
Salutations
JJ

"jp" a écrit dans le message de news:

Bonjour,

En colonne 1 j'ai les valeurs mini en colonne 2  j'ai les valeurs
maxi.
J'utilise la macro suivante pour générer des valeurs aléatoires:

Sub AttribConsol()
   For i = 3 To (Cells(1, 10).Value) / 10
    a = Cells(i, 1).Value
    b = Cells(i, 2).Value
    Cells(i, 13) = Evaluate("=ALEA.ENTRE.BORNES(a,b)")
  Next i
End Sub

En colonne 13 j'obtiens "#NOM?"

Quelqu'un saurait me dire où est l'erreur?
Merci d'avance

JP