vba alea entre bornes sans doublon en VBA

S

Softmama

XLDnaute Accro

• 17 Février 2012

• #2

Re : code vba qui fait bugguer excel

Bonjour,

je te propose cette adaptation :

VB:

Sub HasardSansDoublons2()
Range("e6:e261").ClearContents 'j'efface les anciens choix
a = 1 ' borne Mini
b = 256 ' borne Maxi
Set dico = CreateObject("Scripting.Dictionary")
Do Until i = b - a +1
v = Int((b - a + 1) * Rnd() + a)
If Not dico.Exists(v) Then
dico.Add v, v
i = i + 1
End If
Loop
[e6].Resize(i) = Application.Transpose(dico.items) 'colonne où se trouve la liste 'départ en E6
End Sub

 

Dernière édition: 17 Février 2012

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 17 Février 2012

• #3

Re : code vba qui fait bugguer excel

Bonjour,

J'ai testé ton code à plusieurs reprises sans réussir à faire bugger Excel.

Ton n = 60, c'est le nombre de valeurs générées en tout.

A+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 17 Février 2012

• #4

Re : code vba qui fait bugguer excel

j'ai toujours un blocage
ça doit venir de chez moi
je vais faire un essai sur un classeur vierge pour voir
sur le classeur vierge ça fonctionne

 

Dernière édition: 17 Février 2012

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 17 Février 2012

• #5

Re : code vba qui fait bugguer excel

bonsoir Grand Chaman Excel
que faut-il mettre dans ce cas sachant que le nombre en F2 peut varier de 1 à 256
merci
edit: j'ai changé le titre il est plus explicite

 

Dernière édition: 17 Février 2012

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 18 Février 2012

• #6

Re : vba alea entre bornes sans doublon en VBA

Bonjour à tous

Une autre approche avec une fonction "tirage".

VB:

Sub test()
    [E6].Resize(Range("F2").Value) = tirage(1, Range("F2").Value)
End Sub

Function tirage(min&, max&)
Dim i&, tmp&, alea!
    If min > max Then Exit Function
ReDim Table&(min To max, 0)
    For i = min To max: Table(i, 0) = i: Next
    Randomize
    For i = min To max
        tmp = Table(i, 0)
        alea = Int(i + (max - min - i + 2) * Rnd)
        Table(i, 0) = Table(alea, 0): Table(alea, 0) = tmp
    Next
    tirage = Table
End Function

ROGER2327
#5524

Mardi 24 Gueules 139 (Conversion de Saint Matorel, bateleur - fête Suprême Quarte)
29 Pluviôse An CCXX, 0,0523h - chélidoine
2012-W07-6T00:07:32Z

 

Vote positif 0 Vote négatif

Grand Chaman Excel

XLDnaute Impliqué

• 18 Février 2012

• #7

Re : vba alea entre bornes sans doublon en VBA

Bonsoir,

Combien de valeurs aléatoires veux-tu générer? Tant que F2 est compris entre 1 et 256, ça devrait fonctionner...
Quel genre de message d'erreur reçois-tu ?

Peux-tu joindre ton fichier? Ça nous aiderait peut-être à cerner ton problème.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 18 Février 2012

• #8

Re : vba alea entre bornes sans doublon en VBA

Bonjour à tous,

@ pascal21: une proposition à adapter.

Code:

Sub TirageUnique()
Dim Tablo(1 To 52)
Dim cpt As Byte, base As Byte, n As Byte, tmp As Byte, i As Integer
For n = 1 To 52: Tablo(n) = n: Next
cpt = UBound(Tablo): base = LBound(Tablo)
Randomize Timer
For n = base To cpt
i = Int((cpt - n + 1) * Rnd + base)
tmp = Tablo(i)
Tablo(i) = Tablo(cpt - n + base)
Tablo(cpt - n + base) = tmp
Next
Range("A1").Resize(52) = Application.Transpose(Tablo)
End Sub

A+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 18 Février 2012

• #9

Re : vba alea entre bornes sans doublon en VBA

bonjour et merci pour vos réponses
j'ai pris celle de roger au final
et j'ai fini pas voir ce qui clochait sur mon fichier
j'avais tout simplement rajouté une colonne sans rectifier tout le code

 

Vote positif 0 Vote négatif