Alain, J'ai le message d'Erreur Syntax, le ")") et sélectionné et il m'est demandé de corriger par une paranthèse. Même la correction me donne un message d'erreur. Merci Guido
| Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. | Comment interdire que les cellules sélectionnent le même nombre, pour | afficher que des nombres différents.
C'est plus du tout la même question ! Il ne s'agit plus du tirage aléatoire d'UNE valeur entre bornes mais du
tirage SANS DOUBLON de x valeurs entre bornes Ex : Pour tirer 6 chiffres entre 1 et 10 sans doublons et les reporter en
A1:A6 :
Sub zz_Tire() BornInf = 1: BornSup = 10 For i = 1 To 6 Sub zz_Tire() BornInf = 1: BornSup = 10
For i = 1 To 6 x = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" & BornInf & ")") If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i = i - 1 Else Cells(i, 1) = x Next End Sub
If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i i - 1 Else Cells(i, 1) = x Next End Sub
AV
Alain,
J'ai le message d'Erreur Syntax,
le ")") et sélectionné et il m'est demandé de corriger par une paranthèse.
Même la correction me donne un message d'erreur.
Merci
Guido
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:eYj%23AfbeGHA.5016@TK2MSFTNGP04.phx.gbl...
| Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre.
| Comment interdire que les cellules sélectionnent le même nombre, pour
| afficher que des nombres différents.
C'est plus du tout la même question !
Il ne s'agit plus du tirage aléatoire d'UNE valeur entre bornes mais
du
tirage SANS DOUBLON de x valeurs entre bornes
Ex : Pour tirer 6 chiffres entre 1 et 10 sans doublons et les
reporter en
A1:A6 :
Sub zz_Tire()
BornInf = 1: BornSup = 10
For i = 1 To 6
Sub zz_Tire()
BornInf = 1: BornSup = 10
For i = 1 To 6
x = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" &
BornInf
& ")")
If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i = i -
1
Else Cells(i, 1) = x
Next
End Sub
If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i i - 1
Else Cells(i, 1) = x
Next
End Sub
Alain, J'ai le message d'Erreur Syntax, le ")") et sélectionné et il m'est demandé de corriger par une paranthèse. Même la correction me donne un message d'erreur. Merci Guido
| Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. | Comment interdire que les cellules sélectionnent le même nombre, pour | afficher que des nombres différents.
C'est plus du tout la même question ! Il ne s'agit plus du tirage aléatoire d'UNE valeur entre bornes mais du
tirage SANS DOUBLON de x valeurs entre bornes Ex : Pour tirer 6 chiffres entre 1 et 10 sans doublons et les reporter en
A1:A6 :
Sub zz_Tire() BornInf = 1: BornSup = 10 For i = 1 To 6 Sub zz_Tire() BornInf = 1: BornSup = 10
For i = 1 To 6 x = Evaluate("int(rand()*(" & BornSup + 1 & "-" & BornInf & ")+" & BornInf & ")") If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i = i - 1 Else Cells(i, 1) = x Next End Sub
If Evaluate("isnumber(match(" & x & ",A1:A6,0))") = True Then i i - 1 Else Cells(i, 1) = x Next End Sub
AV
Daniel
Tu peux mettre dans le code de la feuille :
Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo Application.EnableEvents = True End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1) Auquel cas tu peux te servir de F9 pour changer les valeurs. Cordialement. Daniel "Guido" a écrit dans le message de news: %
Bonsoir Daniel, cette façon de faire est très simple. Merci. Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un bouton qui me fera le tri à chaque fois (remplacer F9) Salutations Guido
"Daniel" a écrit dans le message de news:Opr5N%
Admettons que tes 6 cellules sooient en colonne. Dans la colonne suivante, tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de chaque nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes sur la
colonne contenant les fonctions =ALEA() Daniel "Guido" a écrit dans le message de news: %
Bonjour a tous, merci de votre aide. Ce système est excellent. Une autre question. Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. Comment interdire que les cellules sélectionnent le même nombre, pour afficher que des nombres différents.
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending,
Header:=xlNo
Application.EnableEvents = True
End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1)
Auquel cas tu peux te servir de F9 pour changer les valeurs.
Cordialement.
Daniel
"Guido" <guido@nospam.com> a écrit dans le message de news:
%2392ub6beGHA.2188@TK2MSFTNGP04.phx.gbl...
Bonsoir Daniel,
cette façon de faire est très simple. Merci.
Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un
bouton qui me fera le tri à chaque fois (remplacer F9)
Salutations
Guido
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:Opr5N%23ZeGHA.3996@TK2MSFTNGP04.phx.gbl...
Admettons que tes 6 cellules sooient en colonne. Dans la colonne
suivante,
tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de
chaque
nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes sur
la
colonne contenant les fonctions =ALEA()
Daniel
"Guido" <guido@nospam.com> a écrit dans le message de news:
%23ZLFMjZeGHA.1276@TK2MSFTNGP03.phx.gbl...
Bonjour a tous,
merci de votre aide. Ce système est excellent.
Une autre question.
Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre.
Comment interdire que les cellules sélectionnent le même nombre, pour
afficher que des nombres différents.
Guido
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:uzbG6mYeGHA.3484@TK2MSFTNGP04.phx.gbl...
Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo Application.EnableEvents = True End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1) Auquel cas tu peux te servir de F9 pour changer les valeurs. Cordialement. Daniel "Guido" a écrit dans le message de news: %
Bonsoir Daniel, cette façon de faire est très simple. Merci. Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un bouton qui me fera le tri à chaque fois (remplacer F9) Salutations Guido
"Daniel" a écrit dans le message de news:Opr5N%
Admettons que tes 6 cellules sooient en colonne. Dans la colonne suivante, tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de chaque nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes sur la
colonne contenant les fonctions =ALEA() Daniel "Guido" a écrit dans le message de news: %
Bonjour a tous, merci de votre aide. Ce système est excellent. Une autre question. Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. Comment interdire que les cellules sélectionnent le même nombre, pour afficher que des nombres différents.
Merci pour ce petit truc. Cela m'aidera bien à avancer.
Bien a toi
Guido
"Daniel" a écrit dans le message de news:
Tu peux mettre dans le code de la feuille :
Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo Application.EnableEvents = True End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1) Auquel cas tu peux te servir de F9 pour changer les valeurs. Cordialement. Daniel "Guido" a écrit dans le message de news: %
Bonsoir Daniel, cette façon de faire est très simple. Merci. Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un bouton qui me fera le tri à chaque fois (remplacer F9) Salutations Guido
"Daniel" a écrit dans le message de news:Opr5N%
Admettons que tes 6 cellules sooient en colonne. Dans la colonne suivante, tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de chaque nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes sur
la
colonne contenant les fonctions =ALEA() Daniel "Guido" a écrit dans le message de news: %
Bonjour a tous, merci de votre aide. Ce système est excellent. Une autre question. Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. Comment interdire que les cellules sélectionnent le même nombre, pour afficher que des nombres différents.
Merci pour ce petit truc. Cela m'aidera bien à avancer.
Bien a toi
Guido
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:OqAkokeeGHA.4892@TK2MSFTNGP02.phx.gbl...
Tu peux mettre dans le code de la feuille :
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending,
Header:=xlNo
Application.EnableEvents = True
End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1)
Auquel cas tu peux te servir de F9 pour changer les valeurs.
Cordialement.
Daniel
"Guido" <guido@nospam.com> a écrit dans le message de news:
%2392ub6beGHA.2188@TK2MSFTNGP04.phx.gbl...
Bonsoir Daniel,
cette façon de faire est très simple. Merci.
Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un
bouton qui me fera le tri à chaque fois (remplacer F9)
Salutations
Guido
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de
news:Opr5N%23ZeGHA.3996@TK2MSFTNGP04.phx.gbl...
Admettons que tes 6 cellules sooient en colonne. Dans la colonne
suivante,
tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de
chaque
nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes
sur
la
colonne contenant les fonctions =ALEA()
Daniel
"Guido" <guido@nospam.com> a écrit dans le message de news:
%23ZLFMjZeGHA.1276@TK2MSFTNGP03.phx.gbl...
Bonjour a tous,
merci de votre aide. Ce système est excellent.
Une autre question.
Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre.
Comment interdire que les cellules sélectionnent le même nombre, pour
afficher que des nombres différents.
Guido
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:uzbG6mYeGHA.3484@TK2MSFTNGP04.phx.gbl...
Merci pour ce petit truc. Cela m'aidera bien à avancer.
Bien a toi
Guido
"Daniel" a écrit dans le message de news:
Tu peux mettre dans le code de la feuille :
Private Sub Worksheet_Calculate() Application.EnableEvents = False Range("B1:C12").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlNo Application.EnableEvents = True End Sub
(Remplissage des colonnes A, B et C à partir de la ligne 1) Auquel cas tu peux te servir de F9 pour changer les valeurs. Cordialement. Daniel "Guido" a écrit dans le message de news: %
Bonsoir Daniel, cette façon de faire est très simple. Merci. Mais pour avoir les chiffres aléatoirement, il me faudra donc mettre un bouton qui me fera le tri à chaque fois (remplacer F9) Salutations Guido
"Daniel" a écrit dans le message de news:Opr5N%
Admettons que tes 6 cellules sooient en colonne. Dans la colonne suivante, tu mets tes nombres de 1 à 12. Dans la colonne suivante, en face de chaque nombre, tu mets =ALEA(). Tu tries ensuite les deux dernières colonnes sur
la
colonne contenant les fonctions =ALEA() Daniel "Guido" a écrit dans le message de news: %
Bonjour a tous, merci de votre aide. Ce système est excellent. Une autre question. Sur mes 6 cellules, il arrive que j'ai plusieurs fois le même nombre. Comment interdire que les cellules sélectionnent le même nombre, pour afficher que des nombres différents.
