Erreur dans tuto

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

Bonjour,

Quelle est la valeur de compteur au moment ou ça bug?

Yann

Bonjour,

essaie ainsi :

txt_alea(compteur) = Application.WorksheetFunction.VLookup(nb_alea(compteur), Range("L3:M28"), 2, False)

Et regarde l'aide sur Vlookup.

Cdlt.

Bonjour Jean-Eric,

Merci ça fonctionne parfaitement...

Jean-Eric a écrit :

Bonjour,

essaie ainsi :

txt_alea(compteur) = Application.WorksheetFunction.VLookup(nb_alea(compteur), Range("L3:M28"), 2, False)

Et regarde l'aide sur Vlookup.

Cdlt.

J'avais pas vu le point à la place de la virgule...

Merci de ton aide

A+

Rechercher des sujets similaires à "erreur tuto"