Autres chalenge vba

patricktoulon · Mercredi à 00:41

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

ne doit pas faire appel a la fonction RND
ne doit pas faire appel a un name ou registre ou toute autre source de memoring
elle doit s'auto suffire
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

patricktoulon · Mercredi à 21:59

re
@Oui sylvanu c'est juste pour te montrer que le moteur va (difficile de calculer tu prend un peu plus d'une seconde pour 100 je prends 0.6xxx pour 60 000

mais dans tout les cas personne n'a trouver l'astuce pour justement ne pas retirer les même
alors je vous le dis
la chose et simple la fonction réécrit son propre ADN

Code:

'+------------------------------------------------------------+
'¦                        PATRICKTOULON                       ¦
'¦                   collection fonction perso DNA            ¦
'¦   FONCTION AUTOSUFFISANTE PATRICKIENNE — VERSION 1.0       ¦
'¦ Cette fonction est vivante.Elle réecrit son propre ADN.   ¦
'¦ Elle ne dépend de rien. Il ne laisse rien derrière ELLE.   ¦
'¦ Elle est unique...

wDog66 · Aujourd'hui à 02:12

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

VB:

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 · Aujourd'hui à 07:22

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

alexga78 · Aujourd'hui à 07:26

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

Autres chalenge vba

patricktoulon

XLDnaute Barbatruc

patricktoulon

wDog66

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

alexga78

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Autres chalenge vba

patricktoulon

XLDnaute Barbatruc

wDog66

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

alexga78

XLDnaute Occasionnel

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency