Discussion :

[luclucdu38]

Bonjour,
j'ai un petit problème en VBA que je n'arrive pas a solutionner.

===== Problème =====

J'ai une plage de cellules allants de A1 à A10.
Pour chaque cellule je voudrai écrire sur sa voisine de droite (plage de cellules allants de B1 à B10) l'ordre dans lequel mon programme à parcouru la plage de cellule.

Or je ne sais trop comment faire. Je sais qu'il y a la fonction Random qui existe mais c'est tout.

===== Idée 1 =====

Initialiser une liste {1,2,3,4,5,6,7,8,9,10}

Mélanger cette liste

Parcourir cette liste dans l'ordre

===== Questions =====

1) Comment parcourir une plage de cellules aléatoirement ?

2) Comment mélanger une liste ?

===============

Je débute en VBA, pourriez-vous m'aider s'il vous plait ?

Merci beaucoup

[Patrice740]

Bonjour,

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
'
' Etablir une référence à Microsoft Scripting Runtime (Outils / Références ...)
'
 
Sub Test()
Const adrAléa As String = "B2"    '1° cellule recevant les N° aléatoires
Const nbreN° As Integer = 10      'Nombre de N° aléatoires
Dim dicOrdre As Dictionary        'Ordre aléatoire des N°
 
  Set dicOrdre = New Dictionary
  Call OrdreAléatoire(nbreN°, dicOrdre)
  Feuil1.Range(adrAléa).Resize(dicOrdre.Count, 1) = Application.Transpose(dicOrdre.Keys)
 
End Sub
 
Private Sub OrdreAléatoire(Quantité As Integer, dicOrdre As Dictionary)
' Renvoi un dictionnaire contenant les numéros de 1 à Quantité dans un ordre aléatoire
'
Dim ctr As Integer
Dim aléa As Integer
 
Randomize
dicOrdre.RemoveAll
For ctr = 1 To Quantité
  aléa = Int(Rnd * Quantité) + 1
  If Not dicOrdre.Exists(aléa) Then
    'si le numèro n'as pas déja été tiré, l'ajouter
    dicOrdre.Add aléa, ctr - 1
  Else
    'sinon réitérer le tirage
    ctr = ctr - 1
  End If
Next
 
End Sub

[Theze]

Bonjour,

Dans le même esprit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Sub Aleatoire()
 
    Dim Dico As Object
    Dim I As Integer
    Dim Result As Integer
    Dim Max As Integer
 
    Max = 10
 
    Set Dico = CreateObject("Scripting.Dictionary")
 
    'initialise
    Randomize
 
    'boucle jusqu'à obtention des X nombres (ici Max = 10)
    Do
 
        'résultat
        Result = Int((Max * Rnd) + 1)
 
        'si pas déjà tiré...
        If Dico.exists(Result) = False Then
 
            'mémorise dans un dico
            Dico.Add Result, Result
 
            I = I + 1
 
            'et l'inscrit en colonne B
            Range("B" & I).Value = Result
 
        End If
 
    Loop While Dico.Count <> Max
 
End Sub

[patricktoulon]

bonjour
un truc dans le genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim dico,plage as range ,e as long,i as long 
Set plage = Range("A1:A10")
Set dico = CreateObject("Scripting.dictionary")
Do
e = Round((Rnd * plage.Cells.Count ))
If Not dico.exists(e) And e > 0 Then
dico(e) = ""
i = i + 1
plage.Cells(e).Offset(0, 1) = i
End If
Loop Until i = plage.Cells.Count
End Sub

les chiffres qui seront en colonne b seront l'ordre de passage

[cerede2000]

@patricktoulon on est dimanche tu est encore fatigué et tes yeux sont encore collés.
Tu n'as pas prit la dernière version proposé par @unparia qui elle utilise deux boucles
#15

[patricktoulon]

bon j'ai beau tourner cela dans tous les sens sans dico c'est pas possible

seulement avec le meme nombre d'item que le plus grand

comma ca c'est assez facile on inverse a chaque fois le i et le ind

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test3()
Dim tbl(300)
For i = 1 To 300
tbl(i) = i
Next
For i = 1 To UBound(tbl)
ind = Round((Rnd * UBound(tbl)))
temp = tbl(i)
tbl(i) = tbl(ind): tbl(ind) = temp
Next
Range("A1:A300") = Application.Transpose(tbl)
End Sub

mais si je veux créer une liste de nombre aléatoire de 1 à 1000 sur un tableau de 100 je suis obligé de créer un dico pour la création

[Marc-L]

Salut !

Patrick, tu peux te passer d'un Dictionary par permutations au sein d'une matrice …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[patricktoulon]

oui marc c'est ce que l'exemple que j'ai donné fait on permute l'index( rnd*x)avec le i(itération de la boucle )

mais pour cela il faut avoir une matrice remplie

mais j'ai trouvé c'est bon en moins de 10 ligne et sans doublons!!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test4()
Dim tablo(1000), tabl, i As Long, ind As Long
Randomize
Do
: ind = Round((Rnd * 1000))
If tablo(ind) = "" Then tablo(ind) = "|" & ind: i = i + 1
Loop Until i = 100
Debug.Print Replace(Join(tablo, ","), ",", "")
tabl = Split(Replace(Join(tablo, ","), ",", ""), "|")
Range("A1:A100") = Application.Transpose(tabl)
End Sub

et la on a pas de matrice remplie ,on a qu'un tablo (1000) vide au départ et en une seule boucle

après cerede dit que je suis mal réveillé hein !!!!

[cerede2000]

En fait avant de répondre moi j'aimerais savoir : A quoi ça sert ?

[unparia]

Bonjour,
Utiliser un dictionnaire, pourquoi donc ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 tabl = Range("A1:A10")
 nb = UBound(tabl, 1) + 1
 For i = 1 To nb \ 2
  ou = Int(((nb - i) * Rnd) + 1)
  temp = tabl(ou, 1)
  tabl(ou, 1) = tabl(nb - i, 1)
  tabl(nb - i, 1) = temp
 Next
 Range("B1:B10") = tabl

[cerede2000]

@Patrick : Oui pas mal
Même si ça ne correspond pas en effet à la demande de départ du topic
Qui n'est pas générer des nombres aléatoires dans une colonne mais avec une colonne remplie d'informations, générer un parcours aléatoire de ces données et indiqué l'ordre de parcours dans la colonne d'à côté

[patricktoulon]

oui je sais mais comme on est dans les nombres aléatoires j'ai voulu pousser un peu plus loin et rafraichir mes macros toutes prêtes dans ce domaine et sans dico pour changer

[cerede2000]

Pour le fun sans boucle....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
    tabl = Range("A1:A10")
    nb = UBound(tabl, 1)
    rd = Application.Rept("RANDBETWEEN(1," & nb & ")&"",""&", nb)
    rd = Left(rd, Len(rd) - 5)
    rd = Split(Evaluate(rd), ",")
    Range("B1:B10") = Application.WorksheetFunction.Transpose(rd)
End Sub

[unparia]

Bonjour cerede2000
Pourquoi ai-je de temps en temps des doublons avec ton code ?

[cerede2000]

Bonjour cerede2000
Pourquoi ai-je de temps en temps des doublons avec ton code ?

De la même manière que j'en ai avec le tiens

Je fais un simple random, pas de contrôle sur les doublons, juste pour le fun de le faire sans boucle.

[patricktoulon]

d'autant plus que int limitera les occurrences a 99 car après c'est pas des doublons mais des triples et plus selon la longueur de l'opération
un dico étant catégoriquement sans doublons .peut importe la longueur de la boucle pas de doublons!!!!!

[kiki29]

Salut, pour info

[cerede2000]

J'ai très bien comprit le principe !
Mais l'exemple précédent utilise deux boucles.....
J'aurais voulut la même chose que ton dernier code qui fonctionne pour tout

Et en plus on peux se passer de tableau en utilisant un string et InStr

[cerede2000]

Par contre ça limite un peu ton truc !
Si on veut juste par exemple des nombre entre 0 et 100 ?

[patricktoulon]

oui et ben
tu n'a pas compris le principe

je veut 100 nombres au hasard de 1 a 1000

si tu veux 100 nombre de 1 a 100 l'exemple précédent suffit
après en modifiant un peu on peut garder cette structure