Pb de recherche de date Vba

[paskikic]

salut, a tous mrs mentors,

j ai besoin d eclaircies j explique,

j ai un code vba pour la recherche d une date mai ca marche pas quand je lui met des valeur il les trouvent mais des que c est une date il ne trouve rien.

qqun peut il me venir en aide car la j ai le cerveau qui fume......


merci a vous

 

[BOISGONTIER]

Re : Pb de recherche de date Vba

Bonjour,

Voir PJ

Find Dates

http://boisgontierjacques.free.fr/fichiers/FindDates.xls

JB

 

[paskikic]

Re : Pb de recherche de date Vba

slt, BOISGONTIER

merci mais je voudrais trouver la ligne avec la date du jour et la ca marche pas .. et ca chaque jours

merci

 

[paskikic]

Re : Pb de recherche de date Vba

slt, BOISGONTIER

merci mais je voudrais trouver la ligne avec la date du jour et la ca marche pas . et ca chaque jours

merci

 

[BOISGONTIER]

Re : Pb de recherche de date Vba

La date du jour est 3/2/2013

JB

 

[paskikic]

Re : Pb de recherche de date Vba

merci c etait trop simple a mettre le avec un format mais suis trop c..... pour y penser


merci a toi

 

[Gareth]

Re : Pb de recherche de date Vba

Bonsoir,

Tu peux aussi faire une recherche dans la formule :

Sub test()
Dim var As Date
var = Date
With Sheets("Feuil1").Columns(1)
    Set c = .Find(var, LookIn:=xlFormulas)
    If Not c Is Nothing Then
        MsgBox ("trouvé en " & c.Address)
    End If
End With
End Sub

Sans formater Var

 

[paskikic]

Re : Pb de recherche de date Vba

MERCI GARETH ,

BOISGONTIER m a bien aider mais toi tu ma sorti de l impasse car mon format de date qui n arrête pas de changer comme je partage le fichier avec 5 autres personnes et qui s amuse a modifier les format.

encore merci a vous

 

[BOISGONTIER]

Re : Pb de recherche de date Vba

Bonjour,

Attention! si les dates sont issues de formules, Set c = .Find(var, LookIn:=xlFormulas) ne fonctionnera pas

Avec Equiv(), fonctionne dans tous les cas (formules ou pas et sans pb de format)

Sub test()
  var = Date
  p = Application.Match(CDbl(var), [A6:A65000], 0)
  If Not IsError(p) Then [A6].Offset(p - 1, 0).Select
End Sub

JB

 

[MJ13]

Re : Pb de recherche de date Vba

Bonjour à tous

Si vous avez des dates et des valeurs qui peuvent être confondues, si on connaît le format de la date, on peut tester ce code:

Sub TrouveDateFormule()
'Obligaton de connaître le format de la date
    'var = Format(Date, "D-MMM.")
    Dim var As Date
    var = Format(Date, "DD/MM/YYYY")
                Cells.Find(What:=var, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

Sinon match est assez universel 🙂.