Tirage hasard

[feaugas]

Bonjour, je souhaiterais automatiser le choix au hasard de 13cases dans un damier de 5*5 soit 25cases.
En résultat, les cases choisies seraient colorées.

Mon souci provient du fait que je ne vois pas comment gerer les colonnes et le facteur d'arret des 13 cases.

Merci bcp pour vos éclaircissements.

 

[CBernardT]

re Feaugas

Et un damier 5x5, un !

Si j'ai bien compris ?

Cordialement

CBernardT

 

[feaugas]

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

 

[CBernardT]

re

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

j'espère avoir bien compris cette fois ?

Cordialement

CBernardT

 

[CBernardT]

re

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

J'ai compris ! enfin Hi hi

Cordialement

CBernardT

 

[Ti]

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

 

[Hervé]

bonjour,

Sans comparaison possible avec ti, ma petite contribution.

salut
Hervé

 

[CBernardT]

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

 

[Ti]

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 &)

 

[Eric C]

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

 

[Eric C]

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

 

[CBernardT]

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

 

[@+Thierry]

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

 

[feaugas]

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

 

[CBernardT]

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