automatiser la recherche cellule avec date aujourdhui()

T

titin

Guest
bonsoir à tous

je cherche à automatiser la recherche dans une grande feuille la cellule contenant la date AUJOURDHUI()

je fouille le forum et je ne trouve rien qui puisse correspondre

merci pour votre aide
 
T

titin

Guest
bonsoir Myta

ma recherche se fait sur une colonne dans une même feuille.

je voudrais me positionner sur la cellule contenant la valeur (date
aujourdhui() ) à l'ouverture du classeur ou par bonton aprés ouverture du classeur


titin
 
M

Myta

Guest
Re titin

Regarde si ceci pourrait t'aider

Private Sub CommandButton1_Click()
Dim MaDate As Long
On Error GoTo Erreur
MaDate = Date
Cells(Application.WorksheetFunction.Match(MaDate, Worksheets(1).Range("B:B"), 0), 2).Select
Exit Sub
Erreur:
MsgBox ("La date d'aujourd'hui n'est pas dans la colonne")
End Sub


Mytå