Comment générer des GUID dans Excel ?

Microsoft 365 & Office Excel & VBA
1

J’ai un fichier Excel avec une commande par ligne, et je veux que chaque commande ait un identifiant unique, donc il y aura une colonne d’identifiant unique. Chaque fois que je remplis une ligne, je veux qu’Excel remplisse automatiquement la colonne d’identifiant unique pour moi. J’ai fait des recherches et on m’a orienté vers les GUID. J’ai trouvé le code suivant :

Function GenGuid() As String
Dim TypeLib As Object
Dim Guid As String
Set TypeLib = CreateObject("Scriptlet.TypeLib")
Guid = TypeLib.Guid
' format is {24DD18D4-C902-497F-A64B-28B2FA741661}
Guid = Replace(Guid, "{", "")
Guid = Replace(Guid, "}", "")
Guid = Replace(Guid, "-", "")
GenGuid = Guid
End Function

mais je ne suis pas sûr de comment l’implémenter. Toute aide serait grandement appréciée. Merci d’avance.

2

L’expression Excel suivante s’évalue en un GUID V4 :

=CONCATENATE(DEC2HEX(RANDBETWEEN(0,4294967295),8),"-",DEC2HEX(RANDBETWEEN(0,65535),4),"-",DEC2HEX(RANDBETWEEN(16384,20479),4),"-",DEC2HEX(RANDBETWEEN(32768,49151),4),"-",DEC2HEX(RANDBETWEEN(0,65535),4),DEC2HEX(RANDBETWEEN(0,4294967295),8))

-ou (selon le paramètre régional / les séparateurs décimaux et de liste)-

=CONCATENATE(DEC2HEX(RANDBETWEEN(0;4294967295);8);"-";DEC2HEX(RANDBETWEEN(0;65535);4);"-";DEC2HEX(RANDBETWEEN(16384;20479);4);"-";DEC2HEX(RANDBETWEEN(32768;49151);4);"-";DEC2HEX(RANDBETWEEN(0;65535);4);DEC2HEX(RANDBETWEEN(0;4294967295);8))

Notez que le premier caractère du troisième groupe est toujours 4 pour signifier un GUID/UUID V4 (généré par nombre pseudo-aléatoire) selon la RFC 4122 section 4.4.

Notez également que le premier caractère du quatrième groupe est toujours entre 8 et B selon la même RFC.

Avertissement standard : les GUID/UUID résultants ne sont pas cryptographiquement robustes.

Edit : suppression des caractères invisibles