Problème VLookUp !?

[Novice avance !?]

bonjour,
voici le fichier test et je ne vois pas où se trouve le problème dans le code vba



Private Sub CommandButton1_Click()
Label1.Caption = Calendar1.Value
Label2.Caption = WorksheetFunction.VLookup(Calendar1.Value, Range("A1:B20"), 2, 0)
End Sub


merci par avance
bonne journée

 

[tototiti2008]

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)

 

[Larson]

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à 🙂

 

[Novice avance !?]

Re : Problème VLookUp !?

🙂ok c'est parfait avec CLng

merci et bonne journée

 

[Compte Supprimé 979]

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

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+

 

[Bebere]

Re : Problème VLookUp !?

bonjour Novice
une possibilité avec match
à bientôt

 

[tototiti2008]

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