Logiciel de chiffres aléatoires
Fermé
fab116
Messages postés
9
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
29 mars 2006
-
31 mai 2005 à 22:40
jacq41788 - 7 déc. 2012 à 23:47
jacq41788 - 7 déc. 2012 à 23:47
6 réponses
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
26 juin 2005 à 22:18
26 juin 2005 à 22:18
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
fab116
Messages postés
9
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
29 mars 2006
27 juin 2005 à 17:23
27 juin 2005 à 17:23
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.
fab116
Messages postés
9
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
29 mars 2006
28 juin 2005 à 16:04
28 juin 2005 à 16:04
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
@+
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
28 juin 2005 à 23:06
28 juin 2005 à 23:06
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
fab116
Messages postés
9
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
29 mars 2006
29 juin 2005 à 13:39
29 juin 2005 à 13:39
un grand merci a toi
@+ fab
@+ fab
7 déc. 2012 à 23:47