tirage sans doublon dans une liste (vba)

[teabox]

Bonjour à tous,

Je suis novice en vba et je n'ai pas été capable de trouver une solution à mon problème malgré de nombreuses discussions sur le sujet.

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.

Merci d'avance pour votre aide.

teabox

 

[tototiti2008]

Re : tirage sans doublon dans une liste (vba)

Bonjour teabox,

un essai

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"

 

[tdenfert]

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

 

[pierrejean]

Re : tirage sans doublon dans une liste (vba)

Bonjour teabox

Vois si cela te convient

 

[teabox]

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.

 

[Compte Supprimé 979]

Re : tirage sans doublon dans une liste (vba)

Bonjour à tous

Une autre méthode sans utiliser de "dico"

A+

 

[pierrejean]

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

 

[pierrejean]

Re : tirage sans doublon dans une liste (vba)

Re

Correction de ma version

 

[Compte Supprimé 979]

Re : tirage sans doublon dans une liste (vba)

Bonjour le fil
Maitre PierreJean

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

Petite rectification

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

Au plaisir

 

[pierrejean]

Re : tirage sans doublon dans une liste (vba)

Re

Cher Bruno

Teste avec ces chiffres

 

[Modeste geedee]

Re : tirage sans doublon dans une liste (vba)

Bonsour®

Je suis novice en vba

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.

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

 

[Ciambot]

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

 

[pierrejean]

Re
Cette version devrait être meilleure

 

[Ciambot]

Mes respects !!
mais pourquoi ?

 

[pierrejean]

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