VBA - Recherche valeur format DateRésolu/Fermé

Question

Bonjour,

J'aimerais créer une macro qui me permet de retrouver cette date dans un classeur "X" Feuille "Juillet".

Sub Recherche()

'Lundi affiche le Lundi de la semaine dernière!

Dim Lundi As Date
Lundi = Date - Weekday(Date, vbUseSystemDayOfWeek) - 6

Application.Workbooks.Open "C:\X.xls"
ActiveWorkbook.Sheets("Juillet").Activate

End Sub

Je précise que dans ma feuille Juillet, les dates sont bien sous la forme dd/mm/yyyy

PleaseCallMe · Answer

J'ai trouvé ca :

Dim rge As Range
Set rge = Range("B7:B27").Find("Valeur")
MsgBox rge.Row

Mais lorsque je rentre une variable du type : Find(" &P ")
Il me renvoie une erreur!
Si quelqu'un peut m'expliquer!

PleaseCallMe · Answer

J'ai trouvé par moi-même

Dim StrDate As String
StrDate = "Lundi " + P + " "
Set rge = Range("B7:B27").Find(StrDate)

=)

VBA - Recherche valeur format Date

2 réponses

Newsletters