Problème VLookUp !?

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #2

Re : Problème VLookUp !?

Bonjour novice avance,

après plusieurs tests, il semble que VBA n'aime pas beaucoup les dates dans les VLookUp. Je n'ai trouvé qu'une solution : ajouter un CLng

Application.WorksheetFunction.VLookup(CLng(Calendar1.Value), ActiveSheet.Range("A1:B20"), 2, False)

 

Dernière édition: 29 Mai 2008

Vote positif 0 Vote négatif

L

Larson

Guest

• 29 Mai 2008

• #3

Re : Problème VLookUp !?

Bonjour,

ce n'est pas vraiment un reponse ... mais juste un indice

je remarque que lorsque l'on rentre les dates de la colonnes 'A' en format texte, c'est a dire en tapant : 'jj/mm/aaaa
cela fonctionne ...

J'ai essayé divers changement de format sans autres resultats ... desolé


Aahhh les dates dans excel ... que du plaisir ! 🙂

Edit : Ah ben Oui le Clng je l'avais pas assayé celui là 🙂

 

Dernière modification par un modérateur: 29 Mai 2008

Vote positif 0 Vote négatif

N

Novice avance !?

XLDnaute Occasionnel

• 29 Mai 2008

• #4

Re : Problème VLookUp !?

🙂ok c'est parfait avec CLng

merci et bonne journée

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 29 Mai 2008

• #5

Re : Problème VLookUp !?

Bonjour à tous,

Bien vue TotoTiti2008 😉

Le code fonctionne bien avec CLng()

Après plusieurs tests, c'est la seule façon

Code:

Private Sub CommandButton1_Click()
  Dim VDate, Result, RngSearch As Range, SearchDate As String
  ' Définition des variables
  VDate = UserForm1.Calendar1.Value
  Set RngSearch = Sheets("Feuil1").Range("A1:B20")
  On Error Resume Next
  ' NE FONCTIONNE PAS
  'Result = Application.WorksheetFunction.VLookup(DateValue(VDate), RngSearch, 2, False)
  ' NE FONCTIONNE PAS
  'Result = Application.Evaluate("=RECHERCHEV(DATEVAL(""" & VDate & """" & ");A1:B20;2;FAUX)")
  ' FONCTIONNE
  Result = Application.WorksheetFunction.VLookup(CLng(VDate), RngSearch, 2, False)
  On Error GoTo 0
  '
  UserForm1.Label1.Caption = VDate
  UserForm1.Label2.Caption = Result
End Sub

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 29 Mai 2008

• #6

Re : Problème VLookUp !?

bonjour Novice
une possibilité avec match
à bientôt

 

Pièces jointes

• test.xls

  35.5 KB · Affichages: 55
• test.xls

  35.5 KB · Affichages: 63
• test.xls

  35.5 KB · Affichages: 67

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Mai 2008

• #7

Re : Problème VLookUp !?

Bonjour à tous,

Conclusion de nos tests communs :
C'est donc à retenir, la recherche des dates avec WorksheetFunction.Vlookup ou WorksheetFunction.Match nécessite un CLng (si date seule) ou CDbl (si date et heure) pour fonctionner.

Toujours intéressant à savoir... 😉

Bonne journée à tous

 

Vote positif 0 Vote négatif