Petit Problème Vlookup VBA type de donnée
Résolu
Ludo2110
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
Ludo2110 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Ludo2110 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis débutant en vba, mon problème peut donc paraître assez simple:
J'ai un tableau de 2 colonnes:
La première colonne contient des données du type: 100012, *_RBOSGB2R, ABNAGB22 ou encore S0148.
La deuxième colonne contient des données de type: 11569742165 ou GF DE L'ILE DE FRANCE - LA FORET GEREE III
J'ai donc écrit le code suivant qui procède comme suit: il recherche la valeur d'une textbox dans la première colonne et renvoie la valeur de la deuxième colonne dans une autre textbox.
J'ai mis les deux variables en variant. Lorsque je recherche du texte (par exemple S0047) tout fonctionne bien, dès que je mets une valeur numérique du type: 100012, j'ai l''erreur 1004: Impossible de lire la propriété Vlookup de la classe Worksheetunction.
Voici le code:
Private Sub CommandButton1_Click()
Dim TEXT1 As Variant
Dim TEXT2 As Variant
TEXT2 = TextBox1.Value
TEXT1 = Application.WorksheetFunction.VLookup(TEXT2, Sheets("Extrait de la base tiers").Range("B3:C7000"), 2, False)
TextBox2.Value = TEXT1
End Sub
Merci pour votre aide!
Ludovic.
Je suis débutant en vba, mon problème peut donc paraître assez simple:
J'ai un tableau de 2 colonnes:
La première colonne contient des données du type: 100012, *_RBOSGB2R, ABNAGB22 ou encore S0148.
La deuxième colonne contient des données de type: 11569742165 ou GF DE L'ILE DE FRANCE - LA FORET GEREE III
J'ai donc écrit le code suivant qui procède comme suit: il recherche la valeur d'une textbox dans la première colonne et renvoie la valeur de la deuxième colonne dans une autre textbox.
J'ai mis les deux variables en variant. Lorsque je recherche du texte (par exemple S0047) tout fonctionne bien, dès que je mets une valeur numérique du type: 100012, j'ai l''erreur 1004: Impossible de lire la propriété Vlookup de la classe Worksheetunction.
Voici le code:
Private Sub CommandButton1_Click()
Dim TEXT1 As Variant
Dim TEXT2 As Variant
TEXT2 = TextBox1.Value
TEXT1 = Application.WorksheetFunction.VLookup(TEXT2, Sheets("Extrait de la base tiers").Range("B3:C7000"), 2, False)
TextBox2.Value = TEXT1
End Sub
Merci pour votre aide!
Ludovic.
A voir également:
- Petit Problème Vlookup VBA type de donnée
- Petit 1 comme ² ✓ - Forum Bureautique
- Comment écrire des petits chiffres ? ✓ - Forum Windows
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Clear type - Guide
- Petit 2 ✓ - Forum Bureautique
