Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

amelioration macro loto (Nono)

 

3 utilisateurs anonymes et 84 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

amelioration macro loto (Nono)

Prévenir les modérateurs en cas d'abus 
JJ82
jj82
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 14/05/2006 à 06:03:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à tous,
 Bonjour Nono,
 je viens d'essayer ta macro tres simple mais qui fonctionne (c'est bien pour apprendre les boucles et condiions)
 je la liste ici:

 Sub LOTO()
 For c = 1 To 8 'colonnes de résultats
 For l = 1 To 6  'nombres
 Worksheets("feuil1" ).Range(Cel​ls(l, c), Cells(l, c)).Formula = "=rand()"
 Cells(l, c).Value = Int(Cells(l, c) * 100)  
 If Cells(l, c).Value > 49 Or Cells(l, c).Value = 0 Then
 Do While Cells(l, c).Value > 49 Or Cells(l, c).Value = 0  
 Worksheets("feuil1" ).Range(Cel​ls(l, c), Cells(l, c)).Formula = "=rand()"
 Cells(l, c).Value = Int(Cells(l, c) * 100)
 Loop
 End If
 If l > 1 Then
 For l1 = 1 To l - 1
 If Cells(l, c) = Cells(l1, c) Then
 Worksheets("feuil1" ).Range(Cel​ls(l, c), Cells(l, c)).Formula = "=rand()"
 Cells(l, c).Value = Int(Cells(l, c) * 100)
 If Cells(l, c).Value > 49 Or Cells(l, c).Value = 0 Then
 Do While Cells(l, c).Value > 49 Or Cells(l, c).Value = 0 Or Cells(l, c) = Cells(l1, c)
 Worksheets("feuil1" ).Range(Cel​ls(l, c), Cells(l, c)).Formula = "=rand()"
 Cells(l, c).Value = Int(Cells(l, c) * 100)
 Loop
 End If
 End If
 Next
 End If
 Next
 Next
 For c = 1 To 8
 Range(Cells(1, c), Cells(6, c)).Select
 Selection.Sort Key1:=Worksheets("feuil1" ).Cel​ls(1, c), Order1:=xlAscending, Header:=xlGuess, _
 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 Next
 End Sub

 Je souhaiterais apporter 2 modifications si tu peux m'aider:
 1- que la fonction aléatoire se fasse mais à partir de nombres définis au départ 'ex: donnez 25 nombres pour lesquels vous souhaitez un tirage et je saisis mes 25 nombres)
 2- que l'on puisse aussi choisir la forme de restitution (entrez la forme: par ex je saisirais: 1 unité 2 diz 1 vingt 1 trent et 1 quarantaine

 Ainsi la fonction aléatoire se ferait à partir de mes numeros et sous la forme que je souhaite

 Est ce possible?
 Merci et bon dimanche
 JJ

aide toi et le ciel t'aidera
rene-1953
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 14/05/2006 à 08:08:05  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
ta macro interdit le tirage du "49" (utilise "<50" )
 c'est dommage, ce numéro existe
 pour un tirage dans une série que tu choisis,
 il faut que tu crées une boucle de 25 saisies, tu rentres tes 25 numéros dans chacune des inputs, qui s'appeleront saisie(0)=ton premier choix, ... saisie(24)=ton 25° choix
 tu fais un aléatoire sur un un tableau de 25, et hop!, pas de probleme

 pour tes choix selon le rang des dizaines, faut reflechir 5 mn, et ce matin, c'est dur

 @+


---------------
_____________________________
René
(Publicité)
nono60620
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 14/05/2006 à 21:07:49  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

rene©1953 a écrit :

ta macro interdit le tirage du "49" (utilise "<50" )
 c'est dommage, ce numéro existe

 salut
 en fait j ai mis 'strictement superieur a 49' ou 'egal a zero'
 donc le 49 est autoriser

 l idee de 25 numeros est judicieuse

 a+



nono60620
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 14/05/2006 à 21:16:41  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 



 

 Je souhaiterais apporter 2 modifications si tu peux m'aider:
 1- que la fonction aléatoire se fasse mais à partir de nombres définis au départ 'ex: donnez 25 nombres pour lesquels vous souhaitez un tirage et je saisis mes 25 nombres)
 2- que l'on puisse aussi choisir la forme de restitution (entrez la forme: par ex je saisirais: 1 unité 2 diz 1 vingt 1 trent et 1 quarantaine

 Ainsi la fonction aléatoire se ferait à partir de mes numeros et sous la forme que je souhaite

 Est ce possible?
 Merci et bon dimanche
 JJ

 



 j ai reflechi a ton pb
 je tenvoie une macro demain
 essaye de te familiariser avec les userform
 (visual basic editor/inserer/userform)
 ensuite tu a une boite a outils controle
 tu clique sur un controle et tu le met dans le userform
 tu met 2 boutons (OK et ANNULER)
 tu met 25 inputbox (pour tes 25 nombres)
 tu rajoute 5 inputbox pour selectionner le nombres de dizaine,vingtaine,trentaine etc...
 pour activer un userform tu fais une macro (la principale)
 et tu met le code 'userform1.show'
 dans le bouton ANNULER du userform tu ecris le code 'userform1.hide'

 bons essais
 a+

nono60620
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 15/05/2006 à 18:11:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
http://img181.imageshack.us/im​g181/6489/loto250hw.th.jpg[/URL][/img]
 salut
 voici la copie ecran que doit avoir ton userform
 je me suis trompé ce sont des textbox et pas des inputbox
 voici le code a mettre dans le userform
 Private Sub CommandButton1_Click()
 nombre_maxi = 6
 unite = Val(UserForm1.TextBox26.Value)
 dizaine = Val(UserForm1.TextBox27.Value)
 vingtaine = Val(UserForm1.TextBox28.Value)
 trentaine = Val(UserForm1.TextBox29.Value)
 quarantaine = Val(UserForm1.TextBox30.Value)
 total = unite + dizaine + vingtaine + trentaine + quarantaine
 If total > nombre_maxi Or total < 1 Then
 MsgBox ("le total ne fait pas 6 nombres , recommencez" )
 Exit Sub
 End If
 Cells(1, 10) = TextBox1.Value
 Cells(2, 10) = TextBox2.Value
 Cells(3, 10) = TextBox3.Value
 Cells(4, 10) = TextBox4.Value
 Cells(5, 10) = TextBox5.Value
 Cells(6, 10) = TextBox6.Value
 Cells(7, 10) = TextBox7.Value
 Cells(8, 10) = TextBox8.Value
 Cells(9, 10) = TextBox9.Value
 Cells(10, 10) = TextBox10.Value
 Cells(11, 10) = TextBox11.Value
 Cells(12, 10) = TextBox12.Value
 Cells(13, 10) = TextBox13Value
 Cells(14, 10) = TextBox14.Value
 Cells(15, 10) = TextBox15.Value
 Cells(16, 10) = TextBox16.Value
 Cells(17, 10) = TextBox17.Value
 Cells(18, 10) = TextBox18.Value
 Cells(19, 10) = TextBox19.Value
 Cells(20, 10) = TextBox20.Value
 Cells(21, 10) = TextBox21.Value
 Cells(22, 10) = TextBox22.Value
 Cells(23, 10) = TextBox23.Value
 Cells(24, 10) = TextBox24.Value
 Cells(25, 10) = TextBox25.Value


 UserForm1.Hide
 End Sub

 Private Sub CommandButton2_Click()
 UserForm1.Hide
 End Sub

 voici le code de la macro principale
 Sub loto25()
 UserForm1.TextBox1.Value = 1
 UserForm1.TextBox2.Value = 2
 UserForm1.TextBox3.Value = 3
 UserForm1.TextBox4.Value = 4
 UserForm1.TextBox5.Value = 5
 UserForm1.TextBox6.Value = 6
 UserForm1.TextBox7.Value = 7
 UserForm1.TextBox8.Value = 8
 UserForm1.TextBox9.Value = 9
 UserForm1.TextBox10.Value = 10
 UserForm1.TextBox11.Value = 11
 UserForm1.TextBox12.Value = 12
 UserForm1.TextBox13.Value = 13
 UserForm1.TextBox14.Value = 14
 UserForm1.TextBox15.Value = 15
 UserForm1.TextBox16.Value = 16
 UserForm1.TextBox17.Value = 17
 UserForm1.TextBox18.Value = 18
 UserForm1.TextBox19.Value = 19
 UserForm1.TextBox20.Value = 20
 UserForm1.TextBox21.Value = 21
 UserForm1.TextBox22.Value = 22
 UserForm1.TextBox23.Value = 23
 UserForm1.TextBox24.Value = 24
 UserForm1.TextBox25.Value = 25
 UserForm1.TextBox26.Value = 1
 UserForm1.TextBox27.Value = 1
 UserForm1.TextBox28.Value = 1
 UserForm1.TextBox29.Value = 1
 UserForm1.TextBox30.Value = 1

 UserForm1.Show
 End Sub

 a +

(Publicité)
nono60620
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 16/05/2006 à 19:47:50  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
salut
 bonne nouvelle
 j ai fait la macro pour une lite de 25 numeros
 je te l envoie demain
 je butte encore pour choisir le nombre de dizaine ,vingtaine etc..
 mais je pense qu a la fin  de la semaine ca devrai etre bon
 a+

jj82
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 18/05/2006 à 17:43:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir et merci
 Pour le moment je ne peux tester cette macro etant chez mes parents sans Excel
 A plus tard et merci
 JJ

nono60620
Sur la bonne voie (de 100 à 499 messages postés)
  1. Posté le 19/05/2006 à 17:53:16  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
salut
 des que t es ok tu me le dis
 a+

(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Audacity (Amélioration sonore ?)[Résolu] logiciel d'amelioration divx??
EXCEL : Loto amélioration xp ....fiable ou pas ?
Macro sur internet amelioration de ma section membres
Plus de sujets relatifs à : amelioration macro loto (Nono)

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
comment supprimer outlook express 6 2
realisation graphique avec excel 2002 2
Ashampoo Internet Accelerator pb avec le wifi 0
compteur 0
graphique excel : barre pour limite de perception 1