Find date/mois

Cekankonvaou · 14 Janvier 2019

Bonjour à tous,

J'ai un souci d'utilisation de Find avec des dates.

Sur une ligne, j'ai rentré les dates (01/01/2019, 01/02/2019, 01/03/2019....) qui sont affichées au format janv.-2019, fév.-2019, mars-2019...etc.

Je dois faire une recherche basée sur la date du jour. Malgré mes recherches sur ce sujet, je tourne en rond et n'arrive pas à ma dépatouiller de ce problème.

VB:

col_mois_depart = Sheets(1).Cells.Find(Date, LookIn:=xlValues, Lookat:=xlWhole).Column

J'ai essayé de remplacer Date par toutes sortes de choses (conversion en String avec recomposition de la date...), sans succès.

Quelqu'un pourrait il me mettre sur la bonne piste, s'il vous plait?

Merci d'avance
Bertrand

cathodique · 14 Janvier 2019

Cekankonvaou à dit:
Bonjour à tous,

J'ai un souci d'utilisation de Find avec des dates.

Sur une ligne, j'ai rentré les dates (01/01/2019, 01/02/2019, 01/03/2019....) qui sont affichées au format janv.-2019, fév.-2019, mars-2019...etc.

Je dois faire une recherche basée sur la date du jour. Malgré mes recherches sur ce sujet, je tourne en rond et n'arrive pas à ma dépatouiller de ce problème.

VB:

col_mois_depart = Sheets(1).Cells.Find(Date, LookIn:=xlValues, Lookat:=xlWhole).Column

J'ai essayé de remplacer Date par toutes sortes de choses (conversion en String avec recomposition de la date...), sans succès.

Quelqu'un pourrait il me mettre sur la bonne piste, s'il vous plait?

Merci d'avance
Bertrand

Bonjour,

Peut-être comme ça

VB:

col_mois_depart = Sheets(1).Cells.Find(Clng(Date), LookIn:=xlValues, Lookat:=xlWhole).Column

job75 · 15 Janvier 2019

Bonjour Cekankonvaou, cathodique, le forum,

La méthode Find ne convient pas, utiliser :

Code:

Dim lig As Long, col_mois_depart As Variant
lig = 1 'à adapter
col_mois_depart = Application.Match(CLng(Date), Sheets(1).Rows(lig))
If IsNumeric(col_mois_depart) Then MsgBox col_mois_depart 'pour tester

Bonne journée.

job75 · 15 Janvier 2019

Tout de même avec le format Date utilisé ceci fonctionne :

Code:

col_mois_depart = Sheets(1).Cells.Find(Format(Date, "mmm") & "*" & Format(Date, "yyyy"), LookIn:=xlValues, Lookat:=xlWhole).Column
MsgBox col_mois_depart 'pour tester

Cekankonvaou · 16 Janvier 2019

Merci à tous,

Je vais tester ça et je vous redirai ce qu'il en est!

Bertrand

Find date/mois

Cekankonvaou

XLDnaute Junior

cathodique

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Cekankonvaou

XLDnaute Junior

Discussions similaires