Tirage hasard

C

CBernardT

Guest

• 23 Novembre 2004

• #2

re Feaugas

Et un damier 5x5, un !

Si j'ai bien compris ?

Cordialement

CBernardT

 

Pièces jointes

• TirageDamier.zip

  13.1 KB · Affichages: 33

Vote positif 0 Vote négatif

F

feaugas

Guest

• 23 Novembre 2004

• #3

Bonjour,
Ce n'est pas exactement cela...alors je reformule mieux ma demande
J'ai 25 cases blanches réparties dans un carré de 5*5 et je souhaites en colorer 13 au hasard.
Ceci par l'intermédiaire d'une macro et d'un bouton qui m'automatise la relance.
Merci bcp

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #4

re

Un damier 5x5 avec 13 cases colorées de façon aléatoire.

j'espère avoir bien compris cette fois ?

Cordialement

CBernardT

 

Pièces jointes

• TirageDamierV2.zip

  13.3 KB · Affichages: 33
• TirageDamierV2.zip

  13.3 KB · Affichages: 33
• TirageDamierV2.zip

  13.3 KB · Affichages: 31

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #5

re

Un damier 5x5 avec 13 cases colorées de façon aléatoire.

J'ai compris ! enfin Hi hi

Cordialement

CBernardT

 

Pièces jointes

• TirageDamierV2.zip

  13.4 KB · Affichages: 37
• TirageDamierV2.zip

  13.4 KB · Affichages: 35
• TirageDamierV2.zip

  13.4 KB · Affichages: 31

Vote positif 0 Vote négatif

T

Ti

Guest

• 23 Novembre 2004

• #6

un exemple qui reprend la méthode que j'utilise pour renvoyer des valeurs aléatoires sans doublons.

 

Pièces jointes

• Aleatoire.zip

  11.2 KB · Affichages: 46
• Aleatoire.zip

  11.2 KB · Affichages: 46
• Aleatoire.zip

  11.2 KB · Affichages: 43

Vote positif 0 Vote négatif

H

Hervé

Guest

• 23 Novembre 2004

• #7

bonjour,

Sans comparaison possible avec ti, ma petite contribution.

salut
Hervé

 

Pièces jointes

• Classeur2.zip

  8.9 KB · Affichages: 44
• Classeur2.zip

  8.9 KB · Affichages: 44
• Classeur2.zip

  8.9 KB · Affichages: 40

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #8

Bonjour Ti et Hervé

Il y a l'amateur et le Pro !

Pour ne pas mourir idiot, Ti pourrait-il m'expliquer à quoi correspond le % placé après une variable tel que : Alea% ?

Merci d'avance

CBernardT

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 23 Novembre 2004

• #9

c'est une façon plus rapide de typer les variables, ainsi ici le % signifie que ma variable est un Integer. Moi qui suis un grand paresseux, je suis totalement passé à ce mode de déclaration de mes variables. Avec l'habitude, on s'y fait très bien.

& = Long
# = Double
! = Single
% = Integer
$ = String

Dommage qu'il n'y ait pas de raccourci pour les Range, les Boolean ou les Byte.

Noter qu'une fonction peut aussi être déclarée de cette manière (mais pas un tableau de valeurs)

ex :

Function Ligne&(Cel as Range)
Ligne = Cel.Row
End Function

ici la fonction renvoie une valeur de type Long (à cause du &)

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 23 Novembre 2004

• #10

Bonsoir le forum
Bonsoir Feaugas, bonsoir Ti, bonsoir Hervé & bonsoir CBernardT


D'après l'explication des variables faite par notre cher Michel XLD (Que je salue au passage) :

% est le caractère de déclaration de type Integer
Comme je suis bon prince je continue :
& est le caractère de déclaration de type Long
@ est le caractère de déclaration de type Currency
! est le caractère de déclaration de type Single
# est le caractère de déclaration de type Double
$ est le caractère de déclaration de type String

En espérant que tu passeras une bonne nuit pour être encore plus présent demain qu'aujourd'hui...

P.S : Je ne saurais que trop recommander d'aller visiter ses pages WIKI riches de détails et d'exemples.
@ ++ Eric C

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 23 Novembre 2004

• #11

Re le forum
Re les intervenants


Scuzi Maître Ti de vous avoir marché sur les pieds. Oh en plus des chaussures toutes neuves mais il ne doit pas y avoir trop de mal car je suis en pantoufles...
Bonne soirée.
@ ++ Eric C

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 23 Novembre 2004

• #12

Bonsoir à tous

Désolé pour mon retard, merci à Ti et Eric C pour les explications sur les variables. Elles vont me donnent l'impression d'avoir progressé dans ma quête du graal informatique.

Avec toutes ces solutions et explications, notre ami Feaugas aura de quoi le tenir éveillé pour les prochaines longues soirées automnales.

Très cordialement

CBernardT

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 23 Novembre 2004

• #13

Bonsoir à tous, surtout à Ti, toujours "magic"

Bravo, je viens de regarder ton code (Ti), même en ces dernières minutes de Match (1 / 0 ) !!! donc bravo Ti !!! (le foot et moi.... arf.... lol)

Je viens d'apprendre surtout à faire un Set d'Objet basé sur une Function "As Collection" WOW TI, décidément tu as toujours un TGV d'avance Mr "Magic Ti" et puis le IIf sur le Mod, vi vi tu es un vrai Plutonien au moins (hein ? Robert et David Vincent !! lol)

Bon sinon pour le coup des "& # ! % $" donc je confirme que ce ne sont pas les gros mots du Capitaine Haddock censurés pour la presse enfantine, mais par contre ça me rappelle une bonne blague...


C'est l'histoire d'un type plutôt "Interger" que "Variant"..... donc un Bonhomme%..... qui va chez un Toubib...

Le Doc l'examine et lui dit "Ouh la la, faut voir mon pôte le spécialiste...."

Et le Doc arrache une ordonnance de son carnet et lui dit "Tenez mon brave je vous marque son nom et son adresse, allez y sans tarder !"

Le Bonhomme£, non le Bonhomme% ! ah oui (lol je m'y perds), donc le gars s'éxécute (en run time lol) et part à la recherche de ce Spécialiste.... Mais une fois dans la rue, il essaie de déchiffrer les pattes de mouches de dix années de médecine de son Toubib et n'y comprend queuedalle...

"No Problémo" se dit-il en voyant une Pharmarcie au coin de la rue, " Je m'en va quémander un chouillat d'assistance à ce bon veiux pharmacien"...

Le Bonhomme@, se pointe dans la pharmacie et la Pharmaciennes se jette illico presto sur le papier qu'il tient en main....

...Elle Disparait... Dans l'arrière boutique...


...Elle revient en tendant un sac avec au moins trois boites de médicaments et elle lui dit "Vous payez en espèces$, par chèque$, ou Carte Vita$ !!!"


Hi hi hi hi

Juste pour féter la victoire de Monac lol !!!!




PS désolé c'est le flag de la croatie, mais mon copain Lien supprimé me l'avait fait comme ça sympathyquement.

@+Thierry

 

Vote positif 0 Vote négatif

F

feaugas

Guest

• 24 Novembre 2004

• #14

La ferveur est bien là !
Merci bcp Cbernardt ainsi que vous autres pour votre aide.
A+

 

Vote positif 0 Vote négatif

C

CBernardT

Guest

• 24 Novembre 2004

• #15

Bonjour Feaugas et le Forum

Tu as raison, la passion fait déplacer des montagnes et garde le coeur vaillant.

Je place la dernière mouture de la macro définissant les 13 cases colorées du damier de l'essai précédent.

Sub Tirage()
Dim Damier As Range
Dim C As Range

Application.ScreenUpdating = False
Randomize
Set Damier = Range("B2:F6")
Damier.Clear
For Each C In Damier
Do
C = Int((25 * Rnd) + 1)
Loop Until Application.CountIf(Damier, C) = 1
If C <= 13 Then
C.Interior.ColorIndex = 3
End If
Next C
Damier.ClearContents
Range("J2").Select
Application.ScreenUpdating = True
End Sub

Bonne journée

CBernardT

 

Vote positif 0 Vote négatif