Discussion :

[Invité]

Bonjour à tous,

Je cherche à vérifier la présence d'une chaine de caractères dans une liste puis récupérer une valeur (numérique) associée lorsqu'une correspondance est trouvée.

J'obtiens une

Erreur d'exécution 1004 : Impossible de lire la propriété VLookUp de la classe WorksheetFunction

à la ligne où j'appelle la fonction VLookUp dans le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AppliquerUO()
Application.ThisWorkbook.Worksheets("Charge").Activate
Dim hypothese As String
 
If vbOK = MsgBox("!!! Attention : cette opération modifiera les informations portées sur la colonne charge !!!", vbOKCancel, "Charges basées sur UO") Then
    ' Pour chaque hypothèse on regarde si l'hypothèse appartient aux UO définies
    For i = Range(CELL_TACHE_DEBUT).Row To Range(CELL_TACHE_FIN).Row
        hypothese = Cells(COL_HYPOTHESE, i).Value
        If Not IsError(WorksheetFunction.VLookup(hypothese, Range("B84:F95"), 5, False)) Then
            MsgBox ("c'est d'dans!")
        End If
    Next i
End If
End Sub

Je pense que le problème est une mauvaise utilisation de la fonction VLookUp, mais les exemples que je trouve sur le net ne parviennent pas à m'aider...
Merci d'avance pour votre aide. Cordialement.

[Fvandermeulen]

Salut,

Il y a d'autres méthodes plus efficace que Vlookup en VBA...je te propose une recherche de .Find dans l'aide VBA, l'exemple sera facile à adapter.

A+

[Invité]

Bonjour,

J'ai fini par y arriver avec un VLookUP quand même (quand on est obstiné hein :p )
Je n'ai pas réussi à utiliser Find pour mon besoin.

Je poste le résultat au cas où quelqu'un cherche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Application.ThisWorkbook.Worksheets("Charge").Activate
With ActiveSheet
 
If vbOK = MsgBox("!!! Attention : cette opération modifiera les informations portées sur la colonne charge !!!", vbOKCancel, "Charges basées sur UO") Then
    For i = Range(CELL_TACHE_DEBUT).Row To Range(CELL_TACHE_FIN).Row
        hypothese = Cells(i, COL_HYPOTHESE).Value
        uo = Application.VLookup(hypothese, Range("B84:F95"), 5, False)
            If Not IsError(uo) Then
                Cells(i, COL_CHARGE).Value = uo
            End If
    Next i
End If
End With