erreur dans tuto... Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
atlonia
Membre fidèle
Membre fidèle
Messages : 431
Appréciation reçue : 1
Inscrit le : 10 mai 2017
Version d'Excel : 2019 FR

Message par atlonia » 27 septembre 2017, 14:19

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
L
L-Yann
Membre fidèle
Membre fidèle
Messages : 172
Inscrit le : 25 avril 2017
Version d'Excel : 2007

Message par L-Yann » 27 septembre 2017, 14:22

Bonjour,

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

Yann
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'043
Appréciations reçues : 615
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 27 septembre 2017, 15:19

Bonjour,
essaie ainsi :
txt_alea(compteur) = Application.WorksheetFunction.VLookup(nb_alea(compteur), Range("L3:M28"), 2, False)
Et regarde l'aide sur Vlookup. ;;)
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Avatar du membre
atlonia
Membre fidèle
Membre fidèle
Messages : 431
Appréciation reçue : 1
Inscrit le : 10 mai 2017
Version d'Excel : 2019 FR

Message par atlonia » 27 septembre 2017, 15:50

Bonjour Jean-Eric,

Merci ça fonctionne parfaitement... :bien:

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+
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message