harry226h
XLDnaute Junior
Bonjour a tous
Je suis entrain de creer un outils excel et je bloque sur un textboox.
En fait suivant le code ci dessous si ka valeur a rechercher est un nombre, la macro plante et affiche une erreur 1004. Mais si la valeur est une lettre elle s'execute normalement.
A noter egalement que lorsque la valeur recherchée n'existe pas la macro plante. J'aimerais plutot que ca n'affiche rien.
Comment puis je resoudre ces problemes?
Merci d'avance
Le code :
------------------------------------------------
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:E20"), 2, False)
Recherche_Conso = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:E20"), 3, False)
TextBox2.Value = LaRecherche
TextBox4 = Recherche_Conso
Else
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
End If
End Sub
Je suis entrain de creer un outils excel et je bloque sur un textboox.
En fait suivant le code ci dessous si ka valeur a rechercher est un nombre, la macro plante et affiche une erreur 1004. Mais si la valeur est une lettre elle s'execute normalement.
A noter egalement que lorsque la valeur recherchée n'existe pas la macro plante. J'aimerais plutot que ca n'affiche rien.
Comment puis je resoudre ces problemes?
Merci d'avance
Le code :
------------------------------------------------
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:E20"), 2, False)
Recherche_Conso = Application.WorksheetFunction.VLookup(TextBox1, Sheets("Feuil1").Range("A2:E20"), 3, False)
TextBox2.Value = LaRecherche
TextBox4 = Recherche_Conso
Else
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
End If
End Sub
Dernière édition: