Logiciel de chiffres aléatoires
fab116
Messages postés
9
Statut
Membre
-
jacq41788 -
jacq41788 -
salut a tous,
quelqu'un peut-il me dire s'il existe un logiciel me permettant de melanger des chiffres de façon aleatoire ( style je ne sais pas quoi jouer au loto et ce logiciel me donne 6 n° au hasard)
merci de me renseigner.
quelqu'un peut-il me dire s'il existe un logiciel me permettant de melanger des chiffres de façon aleatoire ( style je ne sais pas quoi jouer au loto et ce logiciel me donne 6 n° au hasard)
merci de me renseigner.
A voir également:
- Chiffre aléatoire loto
- Clavier iphone chiffre et lettre - Guide
- Excel trier par ordre croissant chiffre - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Chiffre en lettre - Télécharger - Outils professionnels
- Tableau de combinaison loto 5/90 - Forum Excel
6 réponses
bonjour
regardes ici tu devrais pouvoir résoudre ton souci :
http://www.commentcamarche.net/forum/affich-1304194-fonction-al%E9atoire-sur-excel#38
il te faut avoir une feuille de "données" sur laquelle tu mets en A1:A49
les numéros du loto et tu obtiens sur la feuille "resu" les numéros à jouer
il faut remplacer 100 par 6 ou plus si tu joue plus de chiffres
et bien nommer les feuilles ou changer le nom dans les paramètres.
nbr_sel = 6 ' le nombre de lignes à réviser (numéros)
inf_feu = "données" ' les données sont sur la feuille inf_feu
res_feu = "resu" ' le résultat est sur la feuille res_feu
regardes ici tu devrais pouvoir résoudre ton souci :
http://www.commentcamarche.net/forum/affich-1304194-fonction-al%E9atoire-sur-excel#38
il te faut avoir une feuille de "données" sur laquelle tu mets en A1:A49
les numéros du loto et tu obtiens sur la feuille "resu" les numéros à jouer
il faut remplacer 100 par 6 ou plus si tu joue plus de chiffres
et bien nommer les feuilles ou changer le nom dans les paramètres.
nbr_sel = 6 ' le nombre de lignes à réviser (numéros)
inf_feu = "données" ' les données sont sur la feuille inf_feu
res_feu = "resu" ' le résultat est sur la feuille res_feu
jacq41788
J'ai Keno et 15 N° Je cherche un logiciel qui pourrait mettre mes 15 N° pour trier et me de donner les 10 n° sur 15
salut a toi, je te remercie de m'être venu en aide .
pas comme un certain (biboual) qui se moque du monde.
j'essai ce que tu m'a envoyer et je te tiens au courant.
@+ et encore merci.
pas comme un certain (biboual) qui se moque du monde.
j'essai ce que tu m'a envoyer et je te tiens au courant.
@+ et encore merci.
salut, peux-tu me dire ce qui cloche dans l'énnoncé suivant
If Worksheets(res_feu).Cells(res_lig,res_col).Offset(i).Value_=Worksheets(inf_feu).Cells(inf_lig,inf_col).Offset(choix-1).Value_Then
Exit For
End If
Next i
Loop Until Worksheets(res_feu).Cells(res_lig, res_col).Offset(i).Value = "" 'copie des données sélectionneés
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Formula="="&inf_feu& "!R"&choix&"C"Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Resize(1,nbr_col).FillRight
je te remerci d'avance
@+
If Worksheets(res_feu).Cells(res_lig,res_col).Offset(i).Value_=Worksheets(inf_feu).Cells(inf_lig,inf_col).Offset(choix-1).Value_Then
Exit For
End If
Next i
Loop Until Worksheets(res_feu).Cells(res_lig, res_col).Offset(i).Value = "" 'copie des données sélectionneés
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Formula="="&inf_feu& "!R"&choix&"C"Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Resize(1,nbr_col).FillRight
je te remerci d'avance
@+
bonjour
tes changements de ligne ne sont pas corrects :
If Worksheets(res_feu).Cells(res_lig,res_col).Offset(i).Value _
=Worksheets(inf_feu).Cells(inf_lig,inf_col).Offset(choix-1).Value _
Then Exit For
End If
Next i
Loop Until _
Worksheets(res_feu).Cells(res_lig, res_col).Offset(i).Value = "" 'copie des données sélectionneés
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Formula= _
"=" & inf_feu & "!R" & choix & "C"
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Resize(1,nbr_col).FillRight
il faut un espace avant et après le caractère "&".
tes changements de ligne ne sont pas corrects :
If Worksheets(res_feu).Cells(res_lig,res_col).Offset(i).Value _
=Worksheets(inf_feu).Cells(inf_lig,inf_col).Offset(choix-1).Value _
Then Exit For
End If
Next i
Loop Until _
Worksheets(res_feu).Cells(res_lig, res_col).Offset(i).Value = "" 'copie des données sélectionneés
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Formula= _
"=" & inf_feu & "!R" & choix & "C"
Worksheets(res_feu).Cells(res_lig,res_col).Offset(lig).Resize(1,nbr_col).FillRight
il faut un espace avant et après le caractère "&".
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question