aide sur mot de passe numérique

[sri75]

bonjour sur ce forum j'ai obtenu un très bon code pour generer des mots de passe alphanumériques de 6 caractères. Je voudrais adapter le code pour n'avoir que du numérique, mais en vain.

Quelqu'un aurait il une idée ?

Merci d'avance


Sub motdepasse()
Application.ScreenUpDating=False
Dim tabChar(1 To 36) As String, i As Long, myDico As Object, tmpStr As String, tabPwd As Variant, tabStr As Variant
For i = 1 To 26
tabChar(i) = Chr(64 + i)
Next i
For i = 0 To 9
tabChar(27 + i) = CStr(i)
Next i

Set myDico = CreateObject("Scripting.Dictionary")
On Error Resume Next
While myDico.Count <> 2500
tmpStr = ""
For i = 1 To 6
tmpStr = tmpStr & tabChar(Int((36 * Rnd) + 1))
Next i
myDico.Add tmpStr, tmpStr
Wend
On Error GoTo 0
tabStr = myDico.Items
Range("J1").Resize(myDico.Count) = Application.Transpose(tabStr)
End sub

 

[tototiti2008]

Re : aide sur mot de passe numérique

Bonjour sri75,

peut-être :

Sub motdepasse()
Application.ScreenUpdating = False
Dim tabChar(1 To 10) As String, i As Long, myDico As Object, tmpStr As String, tabPwd As Variant, tabStr As Variant
For i = 0 To 9
tabChar(1 + i) = CStr(i)
Next i
Set myDico = CreateObject("Scripting.Dictionary")
On Error Resume Next
While myDico.Count <> 2500
tmpStr = ""
For i = 1 To 6
tmpStr = tmpStr & tabChar(Int((10 * Rnd) + 1))
Next i
myDico.Add tmpStr, tmpStr
Wend
On Error GoTo 0
tabStr = myDico.Items
Range("J1").Resize(myDico.Count) = Application.Transpose(tabStr)
End Sub

 

[jp14]

Re : aide sur mot de passe numérique

Bonjour
Salut tototiti2008
Code à modifier

Dim tabChar(1 To 36) As String, i As Long, myDico As Object, tmpStr As String, tabPwd As Variant, tabStr As Variant
[COLOR="Red"]For i = 1 To 10
tabChar(i) = Chr(47 + i)[/COLOR]
Next i
'For i = 0 To 9
'tabChar(27 + i) = CStr(i)
'Next i

Set myDico = CreateObject("Scripting.Dictionary")

A tester

 

[sri75]

Re : aide sur mot de passe numérique

Merci à tous