Bonjour…
=CAR(ALEA.ENTRE.BORNES(65;90))&CAR(ALEA.ENTRE.BORNES(65;90))&G1&CAR(ALEA.ENTRE.BORNES(65;90))&DROITE(JOUR(A1);1)&CAR(ALEA.ENTRE.BORNES(65;90))
Dans l’exemple donné, le VBA calcule avec la formule mais ne l’écrit pas !
Un autre code sans la formule à rallonge, pour une vingtaine de lignes*
Sub Macro1()
Dim t As String, x As Byte, y As Byte, A(4) As String, n As Byte, u As Byte
For u = 1 To 20
x = Left(Day(Date), 1): y = Right(Day(Date), 1)
For n = 1 To 4: A(n) = Chr(Application.RandBetween(65, 90)): Next
Cells(u + 1, 5) = A(1) & A(2) & x & A(3) & y & A(4)
Next
End Sub
*sinon la première boucle devient inutile
Nota : les chiffres sont toujours à la même place, sinon c’est une autre histoire ... plus longue à inventer, n’est-ce pas xorsankukai ?
Oups oublié(e ?) : salut Tulipe