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
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