Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3815 connectés 

 
 

Sujet(s) à lire :
    - [Topic unique] Espace et exploration spatiale
    - [TU] Espace, planète Mars
 

 Mot :   Pseudo :  
  Aller à la page :
 
 Page :   1  2  3  4  5  ..  203  204  205  ..  2449  2450  2451  2452  2453  2454
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

[Fusées] 2026.05.09 22h00 UTC • CZ-7 • Tianzhou 10 • Wenchang

n°33910378
hyperboles​ke
Posté le 09-04-2013 à 13:13:29  profilanswer
 

Reprise du message précédent :
J'avais trouvé un site : www.courte-paille.fr
Mais le truc rame à mort et une erreur me pétait quand je voulais afficher les résultats :D


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
mood
Publicité
Posté le 09-04-2013 à 13:13:29  profilanswer
 

n°33911095
hyperboles​ke
Posté le 09-04-2013 à 13:55:12  profilanswer
 

Plutôt que de faire un tirage au sort, j'ai ajouté un tirage au sort multiple.
Je tire au sort environ 30 ou 40 fois avec la macro, la liste s'incrémente et puis ça m'indique automatiquement le pseudo qui est sorti le plus de fois.
 


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911189
hugeq
Optimisation Team Member
Posté le 09-04-2013 à 14:00:07  profilanswer
 

je propose un huissier  [:o_doc]


---------------
Corporate Certified  Iso 90069
n°33911206
e-TE
Posté le 09-04-2013 à 14:01:27  profilanswer
 

les résultats? :D
 
je suis déjà en retard pour ma réunion de 14h :o

n°33911207
hyperboles​ke
Posté le 09-04-2013 à 14:01:27  profilanswer
 

Je peux mettre à dispo ma macro :o


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911210
hyperboles​ke
Posté le 09-04-2013 à 14:01:44  profilanswer
 

Mon code est tellement optimisé que ça tourne depuis 2 minutes :o


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911213
e-TE
Posté le 09-04-2013 à 14:02:01  profilanswer
 

bon bah je verrais ce soir alors :D

n°33911222
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 14:02:17  profilanswer
 

"Remboursez nos invitations, remboursez nos invitations, remboursez nos ..."  [:garypresident:3]

n°33911360
hyperboles​ke
Posté le 09-04-2013 à 14:09:04  profilanswer
 

Et le Gagnant est .....
 
turtlecrf, un lurkeur [:ddr555]
 
http://hfr-rehost.net/preview/self/0fb3c3a5e769d57d91f49630d6b0c92417ad04e3.jpg

Message cité 1 fois

---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911399
hyperboles​ke
Posté le 09-04-2013 à 14:10:57  profilanswer
 

La liste à droite représente simplement le 30ème tirage au sort. :jap:
 
 
J'attend maintenant la confirmation de turtlecrf.


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
mood
Publicité
Posté le 09-04-2013 à 14:10:57  profilanswer
 

n°33911495
hugeq
Optimisation Team Member
Posté le 09-04-2013 à 14:15:13  profilanswer
 

AdHoc a écrit :

Le différentiel entre le premier et le dernier est [:uxam]


on reconnait les cocus  :o


---------------
Corporate Certified  Iso 90069
n°33911506
Gilgamesh ​d'Uruk
Lui-même
Posté le 09-04-2013 à 14:15:52  profilanswer
 
n°33911554
hyperboles​ke
Posté le 09-04-2013 à 14:18:30  profilanswer
 

Voila, c'est fait.
 
Ma méthode de tirage au sort peut sembler bizarre mais au moins, de mon côté, je sais que je n'ai rien influencé du tout.
 
Bravo au gagnant.
 
Pour les autres, check MP :o


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911607
hyperboles​ke
Posté le 09-04-2013 à 14:20:49  profilanswer
 

AdHoc a écrit :


 
Pour le mec qui mérite sans doute le plus d'aller là-haut [:dovakor_:2]


 
Même pas deuxième, tu as eu zéro occurences sur les 30 tirages  [:mayonaise]

Message cité 1 fois

---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33911673
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 14:25:06  profilanswer
 

hyperboleske a écrit :


 
Même pas deuxième, tu as eu zéro occurences sur les 30 tirages  [:mayonaise]


Statistiquement c'est un chat noir :o
 
Je veux faire un audit du code, et une saisie par les huissier du matériel :o

Message cité 1 fois
Message édité par maouuu le 09-04-2013 à 14:25:29
n°33911769
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 14:31:12  profilanswer
 

Pour compenser Gilgamesh, je vais lui faire un lot de consolation sur Planck alors :o (vu que je crois qu'il adore aussi ce satellite).

Message cité 1 fois
n°33912012
stefes007
M'enfin !
Posté le 09-04-2013 à 14:45:21  profilanswer
 

maouuu a écrit :

Pour compenser Gilgamesh, je vais lui faire un lot de consolation sur Planck alors :o (vu que je crois qu'il adore aussi ce satellite).


tu fais pas sortir Planck de son orbite pour faire plaisir à Gilga  :o tu le laisses bien où il est !

Message cité 1 fois
n°33912044
hyperboles​ke
Posté le 09-04-2013 à 14:46:59  profilanswer
 

maouuu a écrit :


Statistiquement c'est un chat noir :o
 
Je veux faire un audit du code, et une saisie par les huissier du matériel :o


 

Code :
  1. Private Sub CommandButton1_Click()
  3. Dim nbcell As Integer
  4. Dim i As Integer
  5. Dim j As Integer
  6. Dim iter As Integer
  7. Dim value As String
  8. Dim h As Integer
  11. j = 1
  13. iter = Range("E5" ).value
  15. 'suppression de la zone de copie temporaire
  16.         Columns("J:P" ).Select
  17.         Range("J1" ).Activate
  18.         Selection.ClearContents
  19.         Range("C27:F27" ).Select
  20.        
  21. nbcell = Range("C2" ).End(xlDown).Row
  22.     For j = 1 To iter
  23.     'copie de la liste de participants
  24.     Range("C2:C22" ).Select
  25.     Selection.Copy
  26.     Range("H2" ).Select
  27.     ActiveSheet.Paste
  28.     Range("G2:H22" ).Select
  29.    
  30.    
  31.    
  32.         'association d'un nombre aléatoire au pseudo
  33.         For i = 2 To nbcell
  34.             Cells(i, 7).Formula = "=RAND()"
  35.         Next i
  36.        
  37.         Range("H2" ).Activate
  38.         Application.CutCopyMode = False
  39.         Selection.Copy
  40.         Range("O1" ).Select
  41.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  42.             :=False, Transpose:=False
  43.         Columns("O:P" ).Select
  44.         Range("P1" ).Activate
  45.         Application.CutCopyMode = False
  46.         Selection.Sort Key1:=Range("O1" ), Order1:=xlDescending, Header:=xlGuess, _
  47.             OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  48.             DataOption1:=xlSortNormal
  49.         Range("O1:P21" ).Select
  50.         Selection.Copy
  51.         Range("G2" ).Select
  52.         ActiveSheet.Paste
  53.        
  54.         Range("H2" ).Select
  55.         Application.CutCopyMode = False
  56.         Selection.Copy
  57.         Range("J" & j).Select
  58.         ActiveSheet.Paste
  59.        
  60.         'suppression de la zone de copie temporaire
  61.         Columns("O:P" ).Select
  62.         Range("P1" ).Activate
  63.         Selection.ClearContents
  64.         Range("C27:F27" ).Select
  65.        
  66.         i = 2
  67.    
  68.     Next j
  69.    
  72.     For i = 2 To nbcell
  73.         h = 0
  74.         value = Range("C" & i).value
  75.         For j = 1 To iter
  76.             If Range("j" & j).value = value Then
  77.                 h = h + 1
  78.             End If
  79.         Next j
  80.         Range("B" & i).value = h
  81.     Next i
  82.    
  83.     'Copie du gagnant dans la zone du bas
  84.     Range("B2:C22" ).Select
  85.     Selection.Copy
  86.     Range("P1" ).Select
  87.     ActiveSheet.Paste
  88.     Columns("P:Q" ).Select
  89.     Application.CutCopyMode = False
  90.     Selection.Sort Key1:=Range("P1" ), Order1:=xlDescending, Header:=xlGuess, _
  91.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  92.         DataOption1:=xlSortNormal
  93.     Range("Q1" ).Select
  94.     Selection.Copy
  95.     Range("C27:F27" ).Select
  96.     ActiveSheet.Paste
  97.     Range("H27" ).Select
  98.    
  99.     Columns("P:Q" ).Select
  100.     Range("Q1" ).Activate
  101.     Selection.Delete Shift:=xlToLeft
  102.     Range("C27:F27" ).Select
  103.    
  104.     Columns("J:J" ).Select
  105.     Range("J1" ).Activate
  106.     Selection.Delete Shift:=xlToLeft
  107.     Range("C27:F27" ).Select
  109.    
  111. End Sub


 
you're welcome :o

Message cité 1 fois

---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33912306
bobbyfrasi​er
Well, hello there !
Posté le 09-04-2013 à 15:00:25  profilanswer
 

hyperboleske a écrit :

J'ai bien tout le monde ?
 
bobbyfrasier
elias de kelliwich
romn
kuartin
luc@s
soa
paco fpg
slasher-fun
sidorku
d750
astro-pepito
gilgamesh d'uruk
turtlecrf
drepanon
maouuu
mammago
e-te
stefes007
adhoc
oceanborn
babast
 
c'est pas le tirage au sort hein :o


Dommage :o

hyperboleske a écrit :

Et le Gagnant est .....
 
turtlecrf, un lurkeur [:ddr555]
 
http://hfr-rehost.net/preview/self [...] ad04e3.jpg


 :(  


---------------
Bobbyfrasier, Bobbyfrasier everywhere ! (Steam, Origin, ...)
n°33912331
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 15:02:30  profilanswer
 

stefes007 a écrit :


tu fais pas sortir Planck de son orbite pour faire plaisir à Gilga  :o tu le laisses bien où il est !


Oula non, je n'ai pas envie de finir torture par tous les scientifiques de la terre, par contre je pensais a un truc qui lui ferait plaisir :o

n°33915664
Mammago
The Space Lion
Posté le 09-04-2013 à 19:08:45  profilanswer
 

Gilgamesh d'Uruk a écrit :

[:vizera] deuxième


Tu n'as pas besoin de ton nom sur une fusée pour aller dans l'espace, tu le surpasses et le domine déjà :D


---------------
ID PSN : Mammago ; Jeux en cours : Fallout 4
n°33915889
hyperboles​ke
Posté le 09-04-2013 à 19:30:38  profilanswer
 

J'attend toujours la confirmation du gagnant :o
Presque tout le monde m'a repondu pour le lot de consolation sauf lui :(


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33916002
Profil sup​primé
Posté le 09-04-2013 à 19:40:12  answer
 

Il est indigne du privilège qui lui est accordé :o

n°33916671
Oceanborn
Posté le 09-04-2013 à 20:35:27  profilanswer
 

Premier §§§ [:dr_doak]  
 
En partant de la fin.  [:joemoomoot]  
 
Il faut prendre le dernier de la liste en cas de non réponse. Changer de référentiel toussa... :o

Message cité 1 fois
n°33917074
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 21:02:28  profilanswer
 

hyperboleske a écrit :


 

Code :
  1. Private Sub CommandButton1_Click()
  3. Dim nbcell As Integer
  4. Dim i As Integer
  5. Dim j As Integer
  6. Dim iter As Integer
  7. Dim value As String
  8. Dim h As Integer
  11. j = 1
  13. iter = Range("E5" ).value
  15. 'suppression de la zone de copie temporaire
  16.         Columns("J:P" ).Select
  17.         Range("J1" ).Activate
  18.         Selection.ClearContents
  19.         Range("C27:F27" ).Select
  20.        
  21. nbcell = Range("C2" ).End(xlDown).Row
  22.     For j = 1 To iter
  23.     'copie de la liste de participants
  24.     Range("C2:C22" ).Select
  25.     Selection.Copy
  26.     Range("H2" ).Select
  27.     ActiveSheet.Paste
  28.     Range("G2:H22" ).Select
  29.    
  30.    
  31.    
  32.         'association d'un nombre aléatoire au pseudo
  33.         For i = 2 To nbcell
  34.             Cells(i, 7).Formula = "=RAND()"
  35.         Next i
  36.        
  37.         Range("H2" ).Activate
  38.         Application.CutCopyMode = False
  39.         Selection.Copy
  40.         Range("O1" ).Select
  41.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  42.             :=False, Transpose:=False
  43.         Columns("O:P" ).Select
  44.         Range("P1" ).Activate
  45.         Application.CutCopyMode = False
  46.         Selection.Sort Key1:=Range("O1" ), Order1:=xlDescending, Header:=xlGuess, _
  47.             OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  48.             DataOption1:=xlSortNormal
  49.         Range("O1:P21" ).Select
  50.         Selection.Copy
  51.         Range("G2" ).Select
  52.         ActiveSheet.Paste
  53.        
  54.         Range("H2" ).Select
  55.         Application.CutCopyMode = False
  56.         Selection.Copy
  57.         Range("J" & j).Select
  58.         ActiveSheet.Paste
  59.        
  60.         'suppression de la zone de copie temporaire
  61.         Columns("O:P" ).Select
  62.         Range("P1" ).Activate
  63.         Selection.ClearContents
  64.         Range("C27:F27" ).Select
  65.        
  66.         i = 2
  67.    
  68.     Next j
  69.    
  72.     For i = 2 To nbcell
  73.         h = 0
  74.         value = Range("C" & i).value
  75.         For j = 1 To iter
  76.             If Range("j" & j).value = value Then
  77.                 h = h + 1
  78.             End If
  79.         Next j
  80.         Range("B" & i).value = h
  81.     Next i
  82.    
  83.     'Copie du gagnant dans la zone du bas
  84.     Range("B2:C22" ).Select
  85.     Selection.Copy
  86.     Range("P1" ).Select
  87.     ActiveSheet.Paste
  88.     Columns("P:Q" ).Select
  89.     Application.CutCopyMode = False
  90.     Selection.Sort Key1:=Range("P1" ), Order1:=xlDescending, Header:=xlGuess, _
  91.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  92.         DataOption1:=xlSortNormal
  93.     Range("Q1" ).Select
  94.     Selection.Copy
  95.     Range("C27:F27" ).Select
  96.     ActiveSheet.Paste
  97.     Range("H27" ).Select
  98.    
  99.     Columns("P:Q" ).Select
  100.     Range("Q1" ).Activate
  101.     Selection.Delete Shift:=xlToLeft
  102.     Range("C27:F27" ).Select
  103.    
  104.     Columns("J:J" ).Select
  105.     Range("J1" ).Activate
  106.     Selection.Delete Shift:=xlToLeft
  107.     Range("C27:F27" ).Select
  109.    
  111. End Sub


 
you're welcome :o


Je déclare ton code bon :o
 
Par contre, il y aurait eu exæquo sur le nombre de tirage aux sorts, tu aurais pris le premier alphabétiquement :o
 

Oceanborn a écrit :

Premier §§§ [:dr_doak]  
 
En partant de la fin.  [:joemoomoot]  
 
Il faut prendre le dernier de la liste en cas de non réponse. Changer de référentiel toussa... :o


En fait non, à droite c'est la zone du tirage aléatoire, a gauche, c'est la zone répertoriant le nombre de fois ou tu as été premier de ce tirage aléatoire.


Message édité par maouuu le 09-04-2013 à 21:13:02
n°33917247
Drepanon
The Not-So-Grim Reaper
Posté le 09-04-2013 à 21:11:34  profilanswer
 

On refait alors :o

n°33917517
hyperboles​ke
Posté le 09-04-2013 à 21:26:08  profilanswer
 

Nan, je serai déjà la-bas quand j'aurai la réponse :D


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33917542
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 21:27:32  profilanswer
 

Je viens de le lancer, et je regrette de ne pas avoir mit un application.screenupdating = false [:ddr555]


Message édité par maouuu le 09-04-2013 à 21:27:47
n°33918090
maouuu
Cherche caresses/croquettes
Posté le 09-04-2013 à 22:03:24  profilanswer
 

Et je viens d'avoir le résultat sur les 10 000 itérations
 

Spoiler :

Turtlecrf [:ddr555]  
 
http://hfr-rehost.net/self/4209ca051ad4eda0dd0dcda7bc72c6a276353ccf.png
 


 
Véridique :D


Message édité par maouuu le 09-04-2013 à 22:04:22
n°33918181
hyperboles​ke
Posté le 09-04-2013 à 22:09:59  profilanswer
 

N'empeche que s'il ne se manifeste pas... :o


---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33918221
dje33
Posté le 09-04-2013 à 22:13:00  profilanswer
 

je prends sa place :o

n°33918512
Profil sup​primé
Posté le 09-04-2013 à 22:28:22  answer
 

si on recommence je veux bien qu'on ajoute mon pseudo :o
 
/fouteur de merde

Message cité 1 fois
n°33920756
HumanRAGE
Rage d'être un Humain...LIBRE!
Posté le 10-04-2013 à 03:24:39  profilanswer
 


 :D  :D  :D


---------------
When I give food to the poor, they call me a saint. When I ask why the poor have no food, they call me a communist. Helder Camara | Telling your employees they're "family" is the corporate equivalent of saying "I love you" to a sex worker.
n°33922055
hyperboles​ke
Posté le 10-04-2013 à 10:15:28  profilanswer
 

Le gagnant n'est toujours pas venu réclamer son lot :o

Message cité 1 fois

---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
n°33922368
Drepanon
The Not-So-Grim Reaper
Posté le 10-04-2013 à 10:36:25  profilanswer
 

[:kenaydy]

n°33923253
maouuu
Cherche caresses/croquettes
Posté le 10-04-2013 à 11:25:12  profilanswer
 

hyperboleske a écrit :

Le gagnant n'est toujours pas venu réclamer son lot :o


Il n'y a pas de lot a recevoir, tu dois juste utiliser tes petites mains :o

n°33923641
hugeq
Optimisation Team Member
Posté le 10-04-2013 à 11:47:09  profilanswer
 

ecris son pseudo :o


---------------
Corporate Certified  Iso 90069
n°33923773
Oceanborn
Posté le 10-04-2013 à 11:53:41  profilanswer
 

La fenêtre de tir du gagnant est passée, il faut procéder à un nouveau tir. :o

n°33924312
hugeq
Optimisation Team Member
Posté le 10-04-2013 à 12:23:49  profilanswer
 

et pourquoi pas un tirage avec des petits papiers et une main innocente? :o


---------------
Corporate Certified  Iso 90069
n°33926416
Foxnoob
...
Posté le 10-04-2013 à 14:46:59  profilanswer
 

Alors on peut toujours s'inscrire ? :o


---------------
Mega Man 2 - Dr. Wily Stage Acapella
n°33927223
hyperboles​ke
Posté le 10-04-2013 à 15:26:53  profilanswer
 

Alors :
1 - Je pars demain matin
2 - Mes affaires ne sont toujours pas prêtes :o
3 - Je ne sais pas comment le gagnant s'appelle, donc au pire je mets un prénom au hasard ou alors on refait un tirage la semaine prochaine [:dawa]
4 - J'aurai du en effet limiter à 10 posts mini :o


Message édité par hyperboleske le 10-04-2013 à 15:27:04

---------------
Même si la bière est toujours vendue en bouteilles d'une pinte, cela n'entraîne pas que la bière soit constituée de parties indivisibles d'une pinte chacune.
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  ..  203  204  205  ..  2449  2450  2451  2452  2453  2454
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
est-ce que la diffusion moléculaire depend du temps ou de l'espace?montage feu antibrouillard avant renault espace 2
Après l'Afghanistan et l'Irak, qui est le prochain sur la liste ?Vous partez ou en vacance l'ete prochain ?
A quand le prochain album des daft punk?En l'espace d'une semaine trois attentat islamist ont frappé la Russie
Aménagement d'une petite sdb - besoin d'idée pr gagner de l'espace!Cherche quelqu'un qui aurait "les zinzins de l'espace"
[musique de pub] Quelqu'un connait le titre de la pub Renault Espace? 
Plus de sujets relatifs à : [Fusées] 2026.05.09 22h00 UTC • CZ-7 • Tianzhou 10 • Wenchang

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.127 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)