vlookup --> problème

Version imprimable

Bonjour,
J'ai un problème avec le code suivant.
j'ai un tableau en deux colonnes, l'une pour les username et l'autre pour le profil

Le code bloque quand le username n'est pas présent dans le tableau
Je voudrais que s'il n'est pas présent il lance "call affichage"

merci pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim user As String, profil As String
 
    user = Application.UserName
 
    profil = Application.WorksheetFunction.VLookup(user, Sheets("setup").Range("E3:F14"), 2, 0)
 
    Application.ScreenUpdating = False
    If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
         'procèdure selon username.system
            If profil = "F" Then
            Call AffichageF
            Else
                If profil = "R" Then
                Call AffichageR
                Else
                Call Affichage
                End If
            Call Affichage
            ActiveWindow.DisplayHorizontalScrollBar = True
            End If
            Application.ScreenUpdating = True
    End If
    Application.ScreenUpdating = True
 
End Sub

22/02/2017, 14h01
Philippe Tulliez

Bonjour,

Citation:

Le code bloque quand le username n'est pas présent dans le tableau

Un code qui bloque ne veut rien dire.
Quelle ligne du programme, quel message d'erreur et éventuellement la valeur des variables utilisées à cet endroit.
22/02/2017, 14h15
rossemma

En fait, si l'username est dans le tableau pas de soucis
mais s'il n'est pas présent, le system répond "impossible de lire la propriété vlookup de la classe worksheetfunction"

une erreur ou un oubli dans mon code :?
22/02/2017, 14h23
Philippe Tulliez

Bonjour,
Avec la fonction RECHERCHEV d'excel, nous recevons la valeur N/A# si la valeur n'est pas trouvée en VBA c'est le message d'erreur signalée
Pour résoudre le problème, il faut utiliser un ON ERROR
A lire le tutoriel La gestion des erreurs dans Excel
22/02/2017, 14h29
rossemma

Un tout grand merci, problème résolu.
22/02/2017, 15h22
Marc-L

Bonjour,

pour rappel pas besoin de gestion d'erreur en n'utilisant surtout pas WorksheetFunction
mais juste Application et en affectant le résultat dans une variable de type Variant si nécessaire …

Ce résultat pouvant alors facilement être contrôlé via la fonction VBA IsError …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …