Pb de recherche de date Vba

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Février 2013

• #2

Re : Pb de recherche de date Vba

Bonjour,

Voir PJ

Find Dates

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

JB

 

Pièces jointes

• Copie de Classeur.xls

  44 KB · Affichages: 41
• Copie de Classeur.xls

  44 KB · Affichages: 46
• Copie de Classeur.xls

  44 KB · Affichages: 54

Dernière édition: 3 Février 2013

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 3 Février 2013

• #3

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

 

Dernière édition: 3 Février 2013

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 3 Février 2013

• #4

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 3 Février 2013

• #5

Re : Pb de recherche de date Vba

La date du jour est 3/2/2013

JB

 

Pièces jointes

• Copie de Classeur.xls

  44 KB · Affichages: 68
• Copie de Classeur.xls

  44 KB · Affichages: 69
• Copie de Classeur.xls

  44 KB · Affichages: 65

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 3 Février 2013

• #6

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

 

Vote positif 0 Vote négatif

G

Gareth

XLDnaute Impliqué

• 3 Février 2013

• #7

Re : Pb de recherche de date Vba

Bonsoir,

Tu peux aussi faire une recherche dans la formule :

Code:

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

 

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 3 Février 2013

• #8

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

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 4 Février 2013

• #9

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)

Code:

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

 

Pièces jointes

• Copie de Classeur2.xls

  52.5 KB · Affichages: 45
• Copie de Classeur2.xls

  52.5 KB · Affichages: 62
• Copie de Classeur2.xls

  52.5 KB · Affichages: 60

Dernière édition: 4 Février 2013

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 4 Février 2013

• #10

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:

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

 

Vote positif 0 Vote négatif