Grille de chiffres en ...

[Guido]

Bonjour

J'ai une grilles ( Tableau ) j'aimerais faire un melange des chiffres en alleatoire...

Merci pour votre aide

Guido

 

[CBernardT]

Re : Grille de chiffres en ...

Bonjour Guido,

Un essai de grille par VBA.

Cordialement

Bernard

 

[Cousinhub]

Re : Grille de chiffres en ...

Bonsoir,

un petit essai :

Edit, oupss, désolé, CBernardT, j'avions point raffraichi....

 

[CBernardT]

Re : Grille de chiffres en ...

Bonjour bhbh,

Tu es complètement excusé, cela m'arrive aussi une fois sur deux 🙄

Au plaisir de te lire

Bernard

 

[pierrejean]

Re : Grille de chiffres en ...

bonjour a tous

Ma version

NB:je jette un oeil tres interessé a vos oeuvres

 

[Cousinhub]

Re : Grille de chiffres en ...

Re-,

Hi, Pierrejean....

Tellement ravi de te revoir, que j'ai téléchargé ton fichier....

Mais.....

Point de code....

Comment?

Bah, une modif dans le fil, et tout sera réparé....

Au plaisir...😀

 

[pierrejean]

Re : Grille de chiffres en ...

Re

Si je peux me permettre

@ CBernardT
Il me semble que le tableau d'origine ne peut etre modifié ni en quantité (180 cases) ni en contenu

@bhbh
Il me semble que le tableau doive etre tout d'abord revu dans la feuille origine

Dans ma version le tableau d'origine n'est pas utilisé et les valeurs peuvent etre modifiée a tout moment

Arf !! : Toujours aussi distrait moi !!
Ais oublié d'enregistrer
Bien entendu : Ravi de vous croiser tous deux egalement (j'espere ne pas avoir posté un de vos fichiers que j'ai egalement telechargé)

 

[Dull]

Re : Grille de chiffres en ...

Salut Guido, Bernard🙂, bh²🙂, pierrejean🙂, le Forum

Vos codes me feront toujours rager 😡 mais de Bonheur 😀 sauf celui de pierrejean😛 il est passé à l'as ...MaisQuelAS... 😎

Sans rire et en étant sérieux 😀, pourquoi pas une formule 😱

=ALEA()*1000

essaie ce fichier en appuyant sur F9 pour changement

heu...Sidoublons...pasmafaute 😱

Bonne Journée

 

[Cousinhub]

Re : Grille de chiffres en ...

Re,

pas encore vu ta soluce, Pierrejean (mais ça ne va pas tarder....)

la même que la mienne, pour montrer qu'on peut mettre n'importe quoi....

 

[Cousinhub]

Re : Grille de chiffres en ...

Re-,

Vu ta soluce, PierreJean....

Fonctionne tout pareil que la mienne

j'ai juste mis sur 2 onglets, afin de maintenir l'onglet d'origine

il est bien évident qu'on peut travailler sur un seul....

PS, pour LeGarsQuiSeCroitPlusAuSudQueMoi

Effectivement, Aléa, mais avec des risques de doublons....

A Tit'Punch......

 

[pierrejean]

Re : Grille de chiffres en ...

Re

Salut dull 🙂

@bhbh
Cela je le savais
ce que je voulais faire remarquer c'est qu'avec ma soluce on peut changer la valeur d'une cellule et l'aleatoire suivant la reprendra

Edit: Oui effectivement
Il suffit de remplacer
Set Plg = Sheets("Origine").Range("C3:K22")
par
Set Plg = Sheets("Resultat").Range("C3:K22")

 

[Cousinhub]

Re : Grille de chiffres en ...

Re-,

on peut changer la valeur d'une cellule et l'aleatoire suivant la reprendra

Tout pareil....😉

Le bonjour à Dany

Hub, qui vous envoie tout plein de soleil de Nouvelle-Calédonie

 

[CBernardT]

Re : Grille de chiffres en ...

Re,

Bonjour Pierrejean

Effectivement j'avais pris le tableau exemple avec les valeurs en place.

Je place un autre exemple avec des valeurs aléatoires dans la grille.

Désormais le tableau d'origine peut etre modifié en quantité et en contenu....

Par contre un seul système aléatoire suffit 😛😛

Grand plaisir à te croiser

Cordialement

Bernard

 

[Cousinhub]

Re : Grille de chiffres en ...

Re-,

Euh....?????

Il suffit de remplacer
Set Plg = Sheets("Origine").Range("C3:K22")
par
Set Plg = Sheets("Resultat").Range("C3:K22")
Aujourd'hui 15h24

Ben, pourquoi????

Je suis parti d'un tableau "Origine", que je conserve....

Et j'en sors un tableau "Aléatoire"....

Toute modification ultérieure doit être faite sur le tableau "Origine"....

GPDM

 

[Dull]

Re : Grille de chiffres en ...

Re le fil

PierreJean...du Grand Art...🙂 ...PourleKanakquiestplusausudquemoi...Mouarffff!!! 😀 et le fil... C'est définitif ...c'estmatournée...😉 vu qu'ont approche allègrement des 18:00

C'était juste pour vous saluer "bande de décodeur" 😀 sachant bien que la formule présentait de réels défauts c'était le seul moyen de vous saluer sans...déconnage horaire 😱😕😀😉

Hub, qui vous envoie tout plein de soleil de Nouvelle-Calédonie

Idem pour moi de l'océan indien 🙂

Bonne Journée