Autres chalenge vba

[patricktoulon]

salut à tous
je doit créer des Ids une par une avec un bouton ou créer a la chaine tout un paquet d'id sans faire de doublons à coup sur
le chalenge c'est de faire sans RND
et pour couronner le tout la seule donnée disponible que l'on peut utiliser c'est le nombre d'id déjà créés

je donnerais ma méthode quand il y aura eu quelques participations

les condition d’élaborations pour la fonction

1. ne doit pas faire appel a la fonction RND
2. ne doit pas faire appel a un name ou registre ou toute autre source de memoring
3. elle doit s'auto suffire
4. et le must si je transfert cette fonction dans un autre classeur( et même plus loin , autre pc) elle ne doit pas créer des id déjà crées au par avant

 

[wDog66]

Salut,
il existe une fonction qui génère 100000 identifieurs uniques en moins de 120 ms :

Sub BulkGuids()
    Dim arr As Variant, bm As New cBenchmark, tim
    tim = Timer
    arr = Application.Run("GenerateGuids", 100000)
    [B2] = Timer - tim
    ' arr est maintenant un tableau 2D de GUIDs
    Range("A1").Resize(UBound(arr, 1), 1).Value = arr
End Sub

Regarde la pièce jointe 1224263

Nullosse

Salut nullosse

Voilà ce que j'ai avec ton code... très loin des 120ms 🤣

 

[patricktoulon]

Bonjour @wDog66
c'est par ce que tu n'a pas la classe benchmark

 

[alexga78]

Bonjour à tous,
rien à voir mais la fonction évoquée par @nullosse existe également dans PQ.
Bonne journée