XL 2010 VLookup plante si cellule vide

[harry226h]

Bonjour
Je viens solliciter votre aide. J'ai adapté une macro avec VLookup pour faire une recherche, ca marche bien quand je rentre une valeur a rechercher mais si j'efface la valeur la macro plante.
J'aimerais pouvoir garder la cellule vide et ne lancer la macro que si elle contient une reference.
Besoin d'aide

 

[Lolote83]

Salut HARRY226H,
Peut être en rajoutant la condition sur la valeur saisie du textbox

Private Sub TextBox1_Change()
    Dim LaRecherche As String, Recherche_Conso As String
    If TextBox1 <> Empty Then
        LaRecherche = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:D20"), 2, False)
        Recherche_Conso = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:D20"), 3, False)
        TextBox2.Value = LaRecherche
        TextBox4 = Recherche_Conso
    Else
        TextBox2 = Empty
        TextBox3 = Empty
        TextBox4 = Empty
    End If
End Sub

En espérant avoir bien compris la consigne
@+ Lolote3

 

[harry226h]

Hello Lolote
Ca marche, c'est ce que je cherchais.
Grand merci a toi

 

[harry226h]

Bonsoir
Je reviens vers vous. Lorsque la valeur a rechercher est un nombre ca plante et affiche une erreur. Seul la recherche de valeur text se passe normalement.
Comment puis je resoudre cela?

 

[Lolote83]

Salut,
Désolé, mais pas reçu de mail suite à ton dernier message.
Peut être en jouant sur la procédure AfterUpdate et non Change avec test numérique

Private Sub TextBox1_AfterUpdate()
    Dim LaRecherche As String, Recherche_Conso As String
    If TextBox1 <> Empty Then
        If IsNumeric(TextBox1) = True Then
            xVal = Val(TextBox1)
        Else
            xVal = TextBox1
        End If
        LaRecherche = Application.WorksheetFunction.VLookup(xVal, Sheets("Feuil1").Range("A2:D20"), 2, False)
        Recherche_Conso = Application.WorksheetFunction.VLookup(xVal, Sheets("Feuil1").Range("A2:D20"), 3, False)
        TextBox2.Value = LaRecherche
        TextBox4 = Recherche_Conso
    Else
        TextBox2 = Empty
        TextBox3 = Empty
        TextBox4 = Empty
    End If
End Sub

@+ Lolote83