tirage sans doublon dans une liste (vba)

tototiti2008

XLDnaute Barbatruc

• 16 Avril 2012

• #2

Re : tirage sans doublon dans une liste (vba)

Bonjour teabox,

un essai

Code:

Sub tirage()
Dim dico, Nb As Long, Tablo, Azard As Double, i As Long
    Nb = Range("F5").Value
    Set dico = CreateObject("Scripting.Dictionary")
    Do Until dico.Count >= Nb
        Tablo = Range("A2:A" & Range("A" & ActiveSheet.Rows.Count).End(xlUp).Row).Value
        Randomize
        Azard = Int(Rnd() * (UBound(Tablo, 1)) + 1)
        dico(Tablo(Azard, 1)) = Tablo(Azard, 1)
    Loop
    Tablo = dico.keys
    Range("O1").Value = "id"
    Range("H2:O65536").ClearContents
    For i = 0 To UBound(Tablo)
        Range("O" & i + 2).Value = Tablo(i)
    Next i
    Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "O1").CurrentRegion, CopyToRange:=Range("H1:K1"), Unique:=False
    Range("O1").EntireColumn.ClearContents
End Sub

Edit : pour que ça fonctionne, efface l'espace en H1 à la fin de "id"

 

Dernière édition: 16 Avril 2012

Vote positif 0 Vote négatif

T

tdenfert

XLDnaute Impliqué

• 16 Avril 2012

• #3

Re : tirage sans doublon dans une liste (vba)

Bonjour,

Une méthode simple, pas parfaite mais qui fonctionne à priori sans VBA
je sais, c’était demande avec VBA

 

Pièces jointes

• tirage.xls

  28 KB · Affichages: 173
• tirage.xls

  28 KB · Affichages: 171
• tirage.xls

  28 KB · Affichages: 178

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Avril 2012

• #4

Re : tirage sans doublon dans une liste (vba)

Bonjour teabox

Vois si cela te convient

 

Pièces jointes

• test-rnd.xlsm

  24.5 KB · Affichages: 204
• test-rnd.xlsm

  24.5 KB · Affichages: 174
• test-rnd.xlsm

  24.5 KB · Affichages: 190

Dernière édition: 16 Avril 2012

Vote positif 0 Vote négatif

T

teabox

XLDnaute Nouveau

• 16 Avril 2012

• #5

Re : tirage sans doublon dans une liste (vba)

Merci à tous pour les réponses si rapides.

Elles fonctionnent parfaitement. Il ne me reste plus qu'à étudier tout ça pour être en mesure de comprendre le code!

Merci aussi pour la méthode non vba, mais le problème est que le fichier original comprend plusieurs centaines de données.

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Avril 2012

• #6

Re : tirage sans doublon dans une liste (vba)

Bonjour à tous

Une autre méthode sans utiliser de "dico" 😉

A+

 

Pièces jointes

• Teabox_Tirage_rnd.xlsm

  18.9 KB · Affichages: 203
• Teabox_Tirage_rnd.xlsm

  18.9 KB · Affichages: 187
• Teabox_Tirage_rnd.xlsm

  18.9 KB · Affichages: 173

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Avril 2012

• #7

Re : tirage sans doublon dans une liste (vba)

Re

@ Bruno 🙂

Methode valide uniquement si l'id est composée de chiffres successifs et triés

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 16 Avril 2012

• #8

Re : tirage sans doublon dans une liste (vba)

Re

Correction de ma version

 

Pièces jointes

• test-rnd.xlsm

  24.5 KB · Affichages: 134
• test-rnd.xlsm

  24.5 KB · Affichages: 118
• test-rnd.xlsm

  24.5 KB · Affichages: 115

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Avril 2012

• #9

Re : tirage sans doublon dans une liste (vba)

Bonjour le fil
Maitre PierreJean

pierrejean à dit:

Re
@ Bruno 🙂
Methode valide uniquement si l'id est composée de chiffres successifs et triés

Cliquez pour agrandir...

Petite rectification

Ne fonctionne effectivement que si l'Id est un chiffre le reste est facilement adaptable 😉

Au plaisir

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Avril 2012

• #10

Re : tirage sans doublon dans une liste (vba)

Re

Cher Bruno

Teste avec ces chiffres

 

Pièces jointes

• Teabox_Tirage_rnd.xlsm

  19.1 KB · Affichages: 124
• Teabox_Tirage_rnd.xlsm

  19.1 KB · Affichages: 122
• Teabox_Tirage_rnd.xlsm

  19.1 KB · Affichages: 136

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 17 Avril 2012

• #11

Re : tirage sans doublon dans une liste (vba)

Bonsour®

teabox à dit:

Je suis novice en vba

Cliquez pour agrandir...

sourire
c'est du masochisme ou c'est pour le fun ...

J'ai une série de données numérotés et je voudrais trouver un moyen de tirer aléatoirement et sans doublon un nombre variable de ces données (5 par exemple) pour les travailler indépendement dans un autre tableau.
Je vous joint un exemple du format de ma fiche de travail.

Cliquez pour agrandir...

donc pour le fun...
une proposition sans VBA,
avec ALEA(), RANG, INDEX/EQUIV
et surtout utilisant avantageusement les fonctionnalités des TABLES (Excel2007 et+)

 

Pièces jointes

• Tirage_rnd(Table).xlsm

  22.1 KB · Affichages: 149

Vote positif 0 Vote négatif

C

Ciambot

XLDnaute Nouveau

• 13 Janvier 2017

• #12

Bonjour PierreJean
Avec Teabox tirage rnd ci dessus (tirage sans doublon dans une liste (vba)), sur une liste de 1400 propositions, le tirage de 230 données comporte des lignes vides ? D’où cela peu-il provenir?

bien cordialement

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Janvier 2017

• #13

Re
Cette version devrait être meilleure

 

Pièces jointes

• Teabox_Tirage_rnd_a.xlsm

  19 KB · Affichages: 59

Vote positif 0 Vote négatif

C

Ciambot

XLDnaute Nouveau

• 13 Janvier 2017

• #14

Mes respects !!
mais pourquoi ?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Janvier 2017

• #15

Re
Parce-que le code a été complètement revu avec utilisation de tableaux et dictionnaire
J'ai un peu appris depuis 2006

 

Vote positif 0 Vote négatif