Usf: Coder en VBA les fonctions (Index/match)

Bonjour

Dans l'usf Gestion Performances (feuille perfs), je souhaiterais récupérer une donnée se trouvant dans un tableau de la feuille paramètres (colonne K et L) grâce à la valeur de la txt box Me.txt_NomEpreuve

mais j'ai toujours un msg d'erreur avec la formule index/MArch que je dois mal utiliser

Un membre du forum pourrait-il m'aider?

merci de votre aide

Cordialement

Etoile

ci joint la procédure ou voir dans le fichier

Private Sub lst_Epreuve_Click()

Dim Ligne As Long
Dim var1 As Integer

  'réInitialiser le txt box NomEpreuve
     Me.Txt_NomEpreuve = ""

  ' Affichage de la Source sélectionnée
  Ligne = Me.lst_Epreuve.ListIndex + 3

 With WsParametres
     Me.Txt_NomEpreuve = .Range("L" & Ligne)
     Recherche de la valeur du Groupe-Epreuve grace au Nom Epreuve
     var1 = .Match(Me.Txt_NomEpreuve.Value, Worksheets("Parametres").Range("K2:K258"), 0)
     Me.Txt_GrEpreuve.Value = .Index(.Range("M2:M258"), var1, 1)

 End With

End Sub

Bonjour,

Private Sub lst_Epreuve_Click()
Dim Ligne As Long
    'réInitialiser le txt box NomEpreuve
    Me.Txt_NomEpreuve = ""
    ' Affichage de la Source sélectionnée
    Ligne = Me.lst_Epreuve.ListIndex + 3
    With WsParametres
        Me.Txt_NomEpreuve = .Range("L" & Ligne)
        ' Recherche de la valeur du Groupe-Epreuve grace au Nom Epreuve
        Me.Txt_GrEpreuve.Value = Application.VLookup(Me.Txt_NomEpreuve.Value, .Range("L2:M258"), 2, False)
    End With
End Sub

A+

Bonjour

Excellent.

Merci

Etoile

Rechercher des sujets similaires à "usf coder vba fonctions index match"