Autres Une p'tite MACRO VBA

OlivGM · 27 Novembre 2023

Bonjour et bon lundi,

Je souhaiterais la création d'un code pour remplir un rectangle de nombres (sans doublon et sans classement ).
J'ai essayé avec "Alea entre bornes" mais ce fut un véritable échec. J'ai excel 2007 chez moi pour info.
Ce qui m'importe surtout est la vitesse d'exécution du code VBA.
Le code le plus rapide sera donc l'élu! (un chrono serait bien à ajouter pour savoir le temps d'affichage des 80 nombres simultanés)!!

MERCI
O.

ps: s'il y a trop d'écart de temps entre la production de 10 et 8 lignes de nombres, je me contenterai de 8 lignes (64 nombres).

xUpsilon · 27 Novembre 2023

Bonjour,

Sans avoir besoin d'une macro, il existe déjà des formules pour générer des nombres aléatoires.

Sur ce lien vous trouverez toute une documentation sur l'utilisation possible de la fonction RAND() (ALEA() en français).

Bonne journée,

Phil69970 · 27 Novembre 2023

Bonjour à tous

@OlivGM

Au vu du fichier ce que tu demandes est impossible :

Chez moi 10 lignes de 8 numéros = 80
Et tu veux remplir ta grille sans doublon avec des nombres de 1 à 70 = 70

Y a comme un BIG problème !!!

Donc structure tes idées et repose le problème comme il faut.
De plus si c'est fait avec formule il n'y a pas de possibilité de mettre un chrono sur une formule.

Et juste en passant remplir 70 ou 80 nombres dans une grille c'est du quasi instantané ( de l'ordre de quelques centièmes de seconde ) j'en conclu que ce que tu veux faire ne correspond pas du tout à ce que tu demandes.

Bonne lecture

OlivGM · 27 Novembre 2023

Bonjour Xupsilon et Phil69970,
Je reformule:
Un code VBA (non une formule) qui remplirait un rectangle de 10 lignes de 8 nombres = 80 nombres.
Chaque ligne comporte 8 nombres compris entre 1 à 70 sans doublon.
Est-ce plus clair ainsi?

patricktoulon · 27 Novembre 2023

Bonjour
par vba un simple routine
le principe est simple
je met mes 80 num dans l'ordre et je les melange
il ne peut pas y avoir de doublons de cette manière
même si j'utilise la fonction RND à l'interieur du code

VB:

Sub test()
    Dim tbl(1 To 10, 1 To 8), I&, C&, X&, col&, Lig&
    For I = 1 To 10
        For C = 1 To 8
            X = X + 1
            tbl(I, C) = X
        Next
    Next
    For I = 1 To 10
        For C = 1 To 8
            Lig = Int(1 + (Rnd * 9))
            col = Int(1 + (Rnd * 7))
            tmp = tbl(I, C): tbl(I, C) = tbl(Lig, col): tbl(Lig, col) = tmp
        Next
    Next
    [u6].Resize(10, 8) = tbl
End Sub

OlivGM · 27 Novembre 2023

patricktoulon à dit:
Bonjour
par vba un simple routine
le principe est simple
je met mes 80 num dans l'ordre et je les melange
il ne peut pas y avoir de doublons de cette manière
même si j'utilise la fonction RND à l'interieur du code

VB:

Sub test() Dim tbl(1 To 10, 1 To 8), I&, C&, X&, col&, Lig& For I = 1 To 10 For C = 1 To 8 X = X + 1 tbl(I, C) = X Next Next For I = 1 To 10 For C = 1 To 8 Lig = Int(1 + (Rnd * 9)) col = Int(1 + (Rnd * 7)) tmp = tbl(I, C): tbl(I, C) = tbl(Lig, col): tbl(Lig, col) = tmp Next Next [u6].Resize(10, 8) = tbl End Sub

Bonjour Patricktoulon,
Macro rapide en effet.....mais les nombres vont de 1 à 70 sur chaque ligne et non 80.

OlivGM · 27 Novembre 2023

je surligne en rouge.

patricktoulon · 27 Novembre 2023

re
alors tu aura forcement des doublons dans les lignes
tu ne peux par fair un alea de 1/70 sur un tableau qui comporte 10 ligne sur 8 colonne sans faire des doublons dans les lignes
c'est elementaire

Dranreb · 27 Novembre 2023

Bonjour.
J'ai compris avec un tirage différent à chaque ligne, ou plus exactement très peu probablement identique à un autre, même dans un ordre différent.
Ma solution.

patricktoulon · 27 Novembre 2023

re
donc si on considére q'un num peut se trouver sur plusieur ligne
alors ce sera une variante de mon premier exemple

VB:

Sub test()
    Dim I&, C&, X&, col&, Lig&, tbl()
    Randomize

    ReDim Preserve tbl(1 To 10, 1 To 70)
    For C = 1 To 70: For I = 1 To 10: tbl(I, C) = C: Next: Next


    For I = 1 To 10
        For C = 1 To 8
            col = Int(1 + (Rnd * 70))
            tmp = tbl(I, C): tbl(I, C) = tbl(I, col): tbl(I, col) = tmp
        Next
    Next
    [u6].Resize(10, 8) = tbl
End Sub

Dranreb · 27 Novembre 2023

Variante avec possibilité de les sortir ordonnés ou non.

OlivGM · 27 Novembre 2023

Rebonjour a tous et grand merci.

Je regarderai tout a lheure, je suis en ville sur mon telephone,

Bien sur, il peut y avoir des doublons dans le rectangle mais pas sur une même ligne sinon un numero n'apparaitrait qu'une fois et c'est pas le but! Le principal atout est sa rapidité. La sortie ordonnée n'est pas utile.
Bon am
O.

Ps: Dranreb tu avais fait un alea qui comparait avec une base de 3 lignes extrêmement rapide que j'avais telechargée au cas où... Il me faut la retrouver.

mapomme · 27 Novembre 2023

Bonjour à tous,

Un autre code ? :

VB:

Sub cest_parti()
Dim t(1 To 10, 1 To 8), talea(1 To 70), nt&, na&, i&, j&, k&, n&, aux&
   Randomize: nt = UBound(t, 2): na = UBound(talea)
   For k = 1 To na: talea(k) = k: Next
   For i = 1 To UBound(t)
      For k = 1 To na: n = 1 + Int(Rnd * na): aux = talea(k): talea(k) = talea(n): talea(n) = aux: Next
      For j = 1 To nt: t(i, j) = talea(j): Next
   Next i
   Range("u6").Resize(UBound(t), nt) = t
End Sub

patricktoulon · 27 Novembre 2023

re
bonjour @mapomme
pourquoi charger 2 tableaux ???
c'est inutile

Modeste geedee · 27 Novembre 2023

OlivGM à dit:
Bonjour et bon lundi,

Je souhaiterais la création d'un code pour remplir un rectangle de nombres (sans doublon et sans classement ).
J'ai essayé avec "Alea entre bornes" mais ce fut un véritable échec. J'ai excel 2007 chez moi pour info.
Ce qui m'importe surtout est la vitesse d'exécution du code VBA.
Le code le plus rapide sera donc l'élu! (un chrono serait bien à ajouter pour savoir le temps d'affichage des 80 nombres simultanés)!!

MERCI
O.

ps: s'il y a trop d'écart de temps entre la production de 10 et 8 lignes de nombres, je me contenterai de 8 lignes (64 nombres).

une proposition :

Autres Une p'tite MACRO VBA

OlivGM

XLDnaute Occasionnel

Pièces jointes

xUpsilon

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

OlivGM

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

OlivGM

XLDnaute Occasionnel

OlivGM

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

OlivGM

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

Discussions similaires