Comment puis-je faire entrer le code suivant soit «Jack» ou «John» au hasard dans la cellule A1
? Actuellement, le résultat est toujours "2":
Sub RandomNames () Dim UserNames(1 To 2) As Ssortingng UserNames(1) = "Jack" UserNames(2) = "John" Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames)) End Sub
Essayez d'utiliser randbetween sur le tableau.
Range("A1").Value = UserNames(Application.RandBetween(LBound(UserNames), UBound(UserNames)))