[excel 2007] aide vlookup

Version imprimable

12/01/2011, 19h14
audreyvb

[excel 2007] aide vlookup
Bonjour,
j'utilise dans ma macro le code suivant :
Code:

1 2 for i =2 to 100 If Application.WorksheetFunction.VLookup(code, Range("A:C"), 3, False) <> equipe Then ... ... ...
J'ai bien définie mes variables code et equipe, cependant il arrive que ma variable "code" ne soit pas trouvée dans la plage de recherche ce qui me provoque une erreur lors de l’exécution de ma macro.
Je souhaiterai ajouter quelque chose du genre "on error...", pour que soit :
- ça m'affiche une msgbox me disant "le code 'code' n'a pas était trouvé" et que m'a macro continue a s’exécuter
- ou encore mieux, que ça me générer une liste dans un onglet de tous les codes qui n'ont pas été trouvés

Merci pour votre aide!:ccool:

Bonjour,

Ce n'est pas tres beau, mais ca fonctionne

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
On Error GoTo anomalie
Dim i As Integer
 
For i = 2 To 100
 
   If Application.WorksheetFunction.VLookup(code, Range("A:C"), 3, False) <> equipe then
        MsgBox "trouvé"
    End If
 
GoTo fin:
 
anomalie:
MsgBox "pas trouvé"
 
fin:
 
Next i

SAlut
Tu peux aussi faire comme ca, avec une liste de valeur de Code non trouvé dans TabRetourManquant.

Plutôt que de générer une erreur et de la gérer ensuite, je préfère contrôler si on aura un résultat avec l'utilisation de VLookUp.
On aurait aussi pu contrôler si VLookUp nous retourner #N/A à l'aide de isNA()....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub test()
Dim retour
Dim Code As String 'a modifier en fct°
Dim TabRetourManquant() As String ' a definir en fonction du type de la variable Code
 
ReDim TabRetourManquant(0)
Code = "Essai2"
If WorksheetFunction.CountIf(Columns("A"), Code) Then
    If WorksheetFunction.VLookup(Code, Range("A:C"), 3, False) <> equipe Then
        'Trouvé
    Else
        'non trouvé
        If TabRetourManquant(UBound(TabRetourManquant)) <> "" Then ReDim Preserve TabRetourManquant(UBound(TabRetourManquant) + 1)
        TabRetourManquant(UBound(TabRetourManquant)) = Code
    End If
Else
    'non trouvé
    If TabRetourManquant(UBound(TabRetourManquant)) <> "" Then ReDim Preserve TabRetourManquant(UBound(TabRetourManquant) + 1)
    TabRetourManquant(UBound(TabRetourManquant)) = Code
End If
 
Erase TabRetourManquant
End Sub

++
Qwaz