dans le VBA, tu as juste a utiliser
randomize 4 fois pour construire ton numéro :
La première fois avec les chiffres de 0 a 9
la seconde fois avec de 0 a 9 - le premier
la troisième fois avec de 0 a 9 -les deux premiers
et la quatrième fois avec 0 a 9 - les 3 premiers
un truc du genre :
Code:
Public Function RandomNumber(Lowest As Long, Highest As Long)
' Generates a random whole number within a given range
Randomize
RandomNumber = Int(Rnd * (Highest + 1 - Lowest)) + Lowest
End Function
morceau de code que j'ai récupéré
ici
ensuite tu concatène tes 4 chiffres et tu les mets dans la cellule qui t'importe