Application.WorksheetFunction.VLookup

[UTratturi]

Bonjour tout le monde,

Voici mon problème, je souhaite utiliser deux fois Application.WorksheetFunction.VLookup ( ) [ rechercheV en VB ]

Voici mon code

Private Sub cmdbtnrech2_Click()
Dim val1 As String
Dim val2 As String

With Me.programme
.MultiLine = True
.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1, Range("G2:T200"), 14)
End With

With Me.objectif
.MultiLine = True
.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1, Range("G2:T200"), 5)
End With

With Me.responsable
.MultiLine = True
val1 = Application.WorksheetFunction.VLookup(Me.ComboBox1, Range("G2:Z200"), 3)
val2 = Application.WorksheetFunction.VLookup(Me.ComboBox1, Range("G2:Z200"), 18)
.Value = val1 & Chr(13) & val2
End With

tout se passe bien pour les trois premières fois ou je l'utilise, mais pour la quatrième j'ai le message d'erreur suivant : Erreur d'exécution 1004 : Impossible de lire la propriété VLookup de la classe WorsheetFunction .

est - il possible d'utiliser deux fois cette formule d'affilé ? l'idée pour moi étant de concaténer le résultat de deux recherches.

J'arrive pas à trouver de solution,

si quelqu'un peut m'aider

merci bien !


EDIT : Erreur dans la plage de recherche - Réponse trouvée

 

[fhoest]

Re : Application.WorksheetFunction.VLookup

Bonjour ,

sans doute que la valeur n'existe pas donc avant la ligne de code:

On Error Resume Next

A+