月に属するすべての日付を検索したい。月はユーザーが選択します。すべての日付を検索することはできません。入力された最後の日付しか取得できません。検索機能を使用していますが、特定の条件を提供できません。
mois = InputBox("Choisissez le mois (Entrer la valeur Numérique)!!! (1 pour Janvier, 2 pour Fév .... )", "Titre")
If mois > 0 & mois < 12 Then
' Search for matching date
Set cellsearch = Range("G1:G" & NbrLinesDate).Find(What:=mois_chercher)
If cellsearch Is Nothing Then
If mois < 0 Then
ElseIf mois > 12 Then
End If
Else
ligne = cellsearch.Row
Date_to_search = Range("G" & ligne).Value
End If
End If
MsgBox Date_to_search '' Checkpoint_1
JourTest = Day(Date_to_search)
JourTest = Trim(JourTest)
MsgBox JourTest '' Checkpoint_2
Mois は、ユーザーが指定した月の値を格納する変数です。このコードでは、今月に属する日付を検索するためにこの変数 mois を使用していません。私はそれを達成することができません。
Date_de_Survenance
30/01/2013
31/01/2013
31/01/2013
04/02/2013
05/02/2013
07/02/2013
11/02/2013
13/02/2013
13/02/2013
13/02/2013
15/02/2013
20/02/2013