Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
MODE D'EMPLOI
Si en A1: Bonjour, en B1 mettre cette formule:
Code:
=md5hash(A1)
On a bien en B1: ebc58ab2cb4848d04ec23d83f7ddf985 (PS: test OK sur mon PC)
Dans un module standard
Code VBA: OptionExplicit PublicFunction MD5Hash( _ ByVal strText AsString) _ AsString ' Create and return MD5 signature from strText. ' Signature has a length of 32 characters. ' ' 2005-11-21. Cactus Data ApS, CPH. Dim cMD5 AsNew clsMD5 Dim strSignature AsString ' Calculate MD5 hash. strSignature = cMD5.MD5(strText) ' Return MD5 signature. MD5Hash = strSignature Set cMD5 = Nothing EndFunction
Code VBA: PublicFunction IsMD5( _ ByVal strText AsString, _ ByVal strMD5 AsString) _ AsBoolean ' Checks if strMD5 is the MD5 signature of strText. ' Returns True if they match. ' Note: strText is case sensitive while strMD5 is not. ' ' 2005-11-21. Cactus Data ApS, CPH. Dim booMatch AsBoolean
booMatch = (StrComp(strMD5, MD5Hash(strText), vbTextCompare) = 0)
IsMD5 = booMatch EndFunction
Dans un module de classe, copier le code de clsMD5.cls
(ou plus simple, importer-le dans VBE -> cf. la PJ de mon dernier message)
Et pour finir: Voici le code pour traiter ta colonne A
Code:
Sub traiterCOLONNEA()
Dim c As Range, p As Range
Set p = Range([A1], Range("A" & Rows.Count).End(xlUp))
Columns(2).Clear
For Each c In p
c.Offset(, 1) = MD5hash(c)
Next c
End Sub
PS: test OK et sans erreur avec pas de cellules vides dans les cellules à traiter de la colonne A.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.