bonjour le forum,
toujours dans le cadre de mon apprentissage, je suis ce tuto:
https://www.youtube.com/watch?v=1iKlPKKddMA
J'ai une erreur surlignée dans ce code:
Sub nb_alea_combi()
Dim nb_alea(3) As Byte: Dim txt_alea(3) As String
Dim compteur As Byte
compteur = 0
Range("H15").Value = "": Range("I15").Value = ""
For compteur = 0 To 3
nb_alea(compteur) = Int(26 * Rnd + 1)
Range("H15").Value = Range("H15").Value & nb_alea(compteur)
txt_alea(compteur) = Application.WorksheetFunction.VLookup(nb_alea(compteur).Range("L3:M28"), 2, False)
Range("I15").Value = Range("I15").Value & txt_alea(compteur)
If (compteur < 3) Then Range("H15").Value = Range("H15").Value & ","
Next compteur
End Sub
qui me dit: erreur de compilation, qualificateur incorrect
Je n'arrive pas à savoir d'ou ça vient, quelqu'un aurait'il une idée pour m'aider à avancer...?
Merci à tous