Probleme rechercheV
Fermé
tweek
-
2 sept. 2013 à 18:15
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 4 sept. 2013 à 16:09
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 4 sept. 2013 à 16:09
1 réponse
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 710
2 sept. 2013 à 18:51
2 sept. 2013 à 18:51
Bonjour,
Si pt_table est un nom de plage:
Si pt_table est un nom de plage:
Sub recherchev() Dim resultat As String resultat = InputBox("Veuillez insérer la référence pour envoyer le mail ", "Référence", "") Value1 = Application.WorksheetFunction.VLookup(resultat, Range("pt_table"), 2, 0) Value2 = CDate(Application.WorksheetFunction.VLookup(resultat, Range("pt_table"), 3, 0)) value3 = CDate(Application.WorksheetFunction.VLookup(resultat, Range("pt_table"), 5, 0)) MsgBox "check " & Value1 & ", is " & Value2 & " is " & value3 & "." End Sub
2 sept. 2013 à 21:53
3 sept. 2013 à 07:44
pt_table est-ce un nom de plage de cellules ou ...... ???????
A+
4 sept. 2013 à 15:41
4 sept. 2013 à 16:09
Cela veut dire que ce que vous cherchez n'existe pas dans la premiere colonne de la plage (reference), c'est peut-etre un probleme de format. Quand vous avez l'erreur, click sur debugage et placez le curseur souris sur resultat pour voir si le format est celui de la premiere colonne de la plage.
Un inputbox, par defaut, revoit une chaine de caractere(s)
A+