[Réglé] Colonne A = Colonne B (MD5)

[Sinistrus]

Bonjour à tous !!

Svp y a t-il moyen de rendre les cellules de la colonne A en MD5 en colonne B ?

Par exemple en A :
Bonjour

En B :
ebc58ab2cb4848d04ec23d83f7ddf985

En fait, j'en ai besoin pour coder 11.200 lignes... :s

Merci pour votre aide

 

[Staple1600]

Re : Colonne A = Colonne B (MD5)

Bonsoir

Voir la pièce jointe de mon dernier message
(qui contient un module de classe et un module standard)
(MESSAGE EDITE car code VBA trop long)

 

[Staple1600]

Re : Colonne A = Colonne B (MD5)

Suite

MODE D'EMPLOI
Si en A1: Bonjour, en B1 mettre cette formule:

=md5hash(A1)

On a bien en B1: ebc58ab2cb4848d04ec23d83f7ddf985 (PS: test OK sur mon PC)
Dans un module standard
Code VBA:
Option Explicit
Public Function MD5Hash( _
ByVal strText As String) _
As String
' Create and return MD5 signature from strText.
' Signature has a length of 32 characters.
'
' 2005-11-21. Cactus Data ApS, CPH.
Dim cMD5 As New clsMD5
Dim strSignature As String
' Calculate MD5 hash.
strSignature = cMD5.MD5(strText)
' Return MD5 signature.
MD5Hash = strSignature
Set cMD5 = Nothing
End Function
Code VBA:
Public Function IsMD5( _
ByVal strText As String, _
ByVal strMD5 As String) _
As Boolean
' 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 As Boolean
booMatch = (StrComp(strMD5, MD5Hash(strText), vbTextCompare) = 0)
IsMD5 = booMatch
End Function

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)

 

[Staple1600]

Re : Colonne A = Colonne B (MD5)

Re


Pour simplifier la chose
Importe le *.bas et le *.cls contenu dans ce zip
Regarde la pièce jointe clsMD5.zip

PS: Il y surement d'autre choix ailleurs sur le net...

 

[Staple1600]

Re : Colonne A = Colonne B (MD5)

Re

Et pour finir: Voici le code pour traiter ta colonne A

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.

 

[Sinistrus]

Re : Colonne A = Colonne B (MD5)

Merci infiniment Staple.

Ca fonctionne super ben !