Bonjour à toutes et à tous
J'ai besoin de votre aide pour le problème suivant :
Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen
bienvenu) sachant que je voudrais :
10 chiffres sur une liste allant de 1 à 20
14 chiffres sur une liste allant de 21 à 48
11 chiffres sur une liste allant de 49 à 71
Merci d'avance pour vos lumières
Cordialement
Pascal
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
patrick lyon
bonjour =ALEA.ENTRE.BORNES(21;48) fonctionne chez moi par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
bonjour
=ALEA.ENTRE.BORNES(21;48)
fonctionne chez moi
par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" <nspm_@_probin_tibco.fr> a écrit dans le message news:
#Aw5$3$VDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et à tous
J'ai besoin de votre aide pour le problème suivant :
Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen
bienvenu) sachant que je voudrais :
10 chiffres sur une liste allant de 1 à 20
14 chiffres sur une liste allant de 21 à 48
11 chiffres sur une liste allant de 49 à 71
Merci d'avance pour vos lumières
Cordialement
Pascal
bonjour =ALEA.ENTRE.BORNES(21;48) fonctionne chez moi par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
AV
Sub zz_Tirage_Alea() [A:A] = "" nb = InputBox("Nbre de nombres ?", "") bornInf = InputBox("Borne Inférieure", "") bornSup = InputBox("Borne Supérieure", "") For i = 1 To nb Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" & bornInf & ")") If i > 1 Then While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is Nothing Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" & bornInf & ")") Wend End If Next End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas gérées mais si tu sais pas faire, relance... AV
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
Sub zz_Tirage_Alea()
[A:A] = ""
nb = InputBox("Nbre de nombres ?", "")
bornInf = InputBox("Borne Inférieure", "")
bornSup = InputBox("Borne Supérieure", "")
For i = 1 To nb
Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" &
bornInf & ")")
If i > 1 Then
While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is
Nothing
Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf &
")+" & bornInf & ")")
Wend
End If
Next
End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas gérées
mais si tu sais pas faire, relance...
AV
"papou" <nspm_@_probin_tibco.fr> a écrit dans le message news:
#Aw5$3$VDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et à tous
J'ai besoin de votre aide pour le problème suivant :
Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen
bienvenu) sachant que je voudrais :
10 chiffres sur une liste allant de 1 à 20
14 chiffres sur une liste allant de 21 à 48
11 chiffres sur une liste allant de 49 à 71
Merci d'avance pour vos lumières
Cordialement
Pascal
Sub zz_Tirage_Alea() [A:A] = "" nb = InputBox("Nbre de nombres ?", "") bornInf = InputBox("Borne Inférieure", "") bornSup = InputBox("Borne Supérieure", "") For i = 1 To nb Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" & bornInf & ")") If i > 1 Then While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is Nothing Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" & bornInf & ")") Wend End If Next End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas gérées mais si tu sais pas faire, relance... AV
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
papou
Bonjour AV Merci pour ta solution que je vais adapter. Cordialement Pascal
"AV" a écrit dans le message de news:%
Sub zz_Tirage_Alea() [A:A] = "" nb = InputBox("Nbre de nombres ?", "") bornInf = InputBox("Borne Inférieure", "") bornSup = InputBox("Borne Supérieure", "") For i = 1 To nb Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" &
bornInf & ")") If i > 1 Then While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is Nothing Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf &
")+" & bornInf & ")") Wend End If Next End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas gérées
mais si tu sais pas faire, relance... AV
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
Bonjour AV
Merci pour ta solution que je vais adapter.
Cordialement
Pascal
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23hPThIAWDHA.1780@TK2MSFTNGP11.phx.gbl...
Sub zz_Tirage_Alea()
[A:A] = ""
nb = InputBox("Nbre de nombres ?", "")
bornInf = InputBox("Borne Inférieure", "")
bornSup = InputBox("Borne Supérieure", "")
For i = 1 To nb
Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+"
&
bornInf & ")")
If i > 1 Then
While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is
Nothing
Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" &
bornInf &
")+" & bornInf & ")")
Wend
End If
Next
End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas
gérées
mais si tu sais pas faire, relance...
AV
"papou" <nspm_@_probin_tibco.fr> a écrit dans le message news:
#Aw5$3$VDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et à tous
J'ai besoin de votre aide pour le problème suivant :
Je cherche par quel moyen sortir des nombres aléatoires sur une feuille
en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen
bienvenu) sachant que je voudrais :
10 chiffres sur une liste allant de 1 à 20
14 chiffres sur une liste allant de 21 à 48
11 chiffres sur une liste allant de 49 à 71
Merci d'avance pour vos lumières
Cordialement
Pascal
Bonjour AV Merci pour ta solution que je vais adapter. Cordialement Pascal
"AV" a écrit dans le message de news:%
Sub zz_Tirage_Alea() [A:A] = "" nb = InputBox("Nbre de nombres ?", "") bornInf = InputBox("Borne Inférieure", "") bornSup = InputBox("Borne Supérieure", "") For i = 1 To nb Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf & ")+" &
bornInf & ")") If i > 1 Then While Not Range(Cells(1, 1), Cells(i - 1, 1)).Find(Cells(i, 1)) Is Nothing Cells(i, 1) = Evaluate("int(rand()*(" & bornSup & "-" & bornInf &
")+" & bornInf & ")") Wend End If Next End Sub
PS : les erreurs éventuelles de saisies dans les inputbox ne sont pas gérées
mais si tu sais pas faire, relance... AV
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
Esteban
Bonjour,
Cette fonction fait partie des Utilitaires d'Analyses. Pour les ajouter :> Menu Outils/Macro complémentaires/Utilitaire d'Analyse
Cordialement, Esteban "patrick lyon" a écrit dans le message de news:bgd5ms$
bonjour =ALEA.ENTRE.BORNES(21;48) fonctionne chez moi par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
Bonjour,
Cette fonction fait partie des Utilitaires d'Analyses.
Pour les ajouter :> Menu Outils/Macro complémentaires/Utilitaire d'Analyse
Cordialement,
Esteban
"patrick lyon" <patric.k@lyon.com> a écrit dans le message de
news:bgd5ms$dch1@news.rd.francetelecom.fr...
bonjour
=ALEA.ENTRE.BORNES(21;48)
fonctionne chez moi
par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" <nspm_@_probin_tibco.fr> a écrit dans le message news:
#Aw5$3$VDHA.2352@TK2MSFTNGP12.phx.gbl...
Bonjour à toutes et à tous
J'ai besoin de votre aide pour le problème suivant :
Je cherche par quel moyen sortir des nombres aléatoires sur une feuille
en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen
bienvenu) sachant que je voudrais :
10 chiffres sur une liste allant de 1 à 20
14 chiffres sur une liste allant de 21 à 48
11 chiffres sur une liste allant de 49 à 71
Merci d'avance pour vos lumières
Cordialement
Pascal
Cette fonction fait partie des Utilitaires d'Analyses. Pour les ajouter :> Menu Outils/Macro complémentaires/Utilitaire d'Analyse
Cordialement, Esteban "patrick lyon" a écrit dans le message de news:bgd5ms$
bonjour =ALEA.ENTRE.BORNES(21;48) fonctionne chez moi par contre tu peux avoir des doublons vu que c'est de l'aléatoire
"papou" a écrit dans le message news: #Aw5$3$
Bonjour à toutes et à tous J'ai besoin de votre aide pour le problème suivant : Je cherche par quel moyen sortir des nombres aléatoires sur une feuille en
utilisant idéalement les fonctions ALEA et RANG (mais tout autre moyen bienvenu) sachant que je voudrais : 10 chiffres sur une liste allant de 1 à 20 14 chiffres sur une liste allant de 21 à 48 11 chiffres sur une liste allant de 49 à 71 Merci d'avance pour vos lumières Cordialement Pascal
