Discussion :

[Kriss0909]

Bonjour à tous,

Je débute en VBA sous excel et je bute sur un problème de recherche de date (dans une liste comportant toutes les dates du 31/08/1992 au 31/12/2006)...
Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Datedeb1 as date
 
Set Madatedeb = DateEntrée.Find(Datedeb1)
If Not Madatedeb Is Nothing Then
PremAdressedeb = Madatedeb.Address
End If

Cela semble fonctionner sauf pour le 01/01/1992. Madatedeb me retourne l'adresse du 01/11/1992 alors qu'il ne devrait rien me retourner !!!
Merci pour votre aide...Je sèche!!!

[ouskel'n'or]

On manque d'infos, (DateEntrée ?) donne un peu plus de code

[Kriss0909]

Voici un petit plus de code. La date à trouver (ici le 01/01/1992) est récupérée sur une autre feuille dans un variant (avec une mauvaise année) = Datedeb. Ensuite devient Datedeb1 avec la bonne année.
DateEntrée est la plage de cellule contenant les dates dans laquelle je dois trouver Datedeb1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim DateEntrée As Range
Dim Datedeb1 as date
Dim Datedeb As Variant (=01/01/2006)
 
Datedeb1 = CDate(Datedeb)
Jourdeb = CInt(Left(Datedeb1, 2))
Moisdeb = CInt(Mid(Datedeb1, 4, 2))
Datedeb1 = DateSerial(Année, Moisdeb, Jourdeb)
 
Set DateEntrée = Range("B4:B5239")
 
Set Madatedeb = DateEntrée.Find(Datedeb1)
If Not Madatedeb Is Nothing Then
PremAdressedeb = Madatedeb.Address
End If

D'avance merci.

[Invité]

Bonjour Kriss0909,

Si vous remplacez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Datedeb As Variant (=01/01/2006)
 
par
 
Dim Datedeb As Variant
 
Datedeb = "01/01/2006"

normalement cela fonctionne à part la variable Année dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Datedeb1 = DateSerial(Année, Moisdeb, Jourdeb)

dont on ne sait pas où elle est initialisée.

[ouskel'n'or]

Tu peux aussi tester ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Range("B4:B5239")
      Set Madatedeb = .Find(Datedeb1)
      if not MaMadatedeb is Nothing then

Mais tout va dépendre du format de date de ta feuille de calculs.
Ex : si tu as saisi tes dates sous le format "d/m/aaaa" et que le format de la colonne est "dd/mm/aaaa", si tu recherches selon ce dernier format, il y a peu de chances que find retrouve la donnée.
Tu dis, il y a une solution si tu as ce pb.
A+

[Kriss0909]

Un grand merci à tous !
Le problème venait effectivement du format date de mes données d'origine. Elle étaient en dd/mm/yyyy. Je les ai passées en d/m/yy et ça marche !