XL 2016 deplacement horizontale date avec bouton aujourdhui

[YOUYOU25]

Bonsoir a tous,

Dans le cadre de mon travail je voudrais me déplacer dans un tableau de suivi de matériel à l'aide de flèche gauche/droite + un bouton qui me renverrait à la date d'Aujourdhui ().

J'ai mis en PJ UN EXEMPLE raccourci ( le réel traite un trimestre par onglet).

Par avance Merci à tous et à ce site formidable qui me permet de progresser chaque jour.

Bonne soirée

 

[sylvanu]

Bonsoir Youyou,
Un essai en PJ avec :

Sub Droite()
    ActiveCell.Offset(0, 1).Select
End Sub
Sub Gauche()
    ActiveCell.Offset(0, -1).Select
End Sub
Sub Aujourdhui()
    If Application.CountIf([4:4], Date) > 0 Then
        Cells(ActiveCell.Row, Application.Match(CLng(Date), [4:4], 0)).Select
    End If
End Sub

 

[sousou]

Bonjour
Une autre façon

 

[YOUYOU25]

Bonsoir Youyou,
Un essai en PJ avec :

Sub Droite()
    ActiveCell.Offset(0, 1).Select
End Sub
Sub Gauche()
    ActiveCell.Offset(0, -1).Select
End Sub
Sub Aujourdhui()
    If Application.CountIf([4:4], Date) > 0 Then
        Cells(ActiveCell.Row, Application.Match(CLng(Date), [4:4], 0)).Select
    End If
End Sub

Bonsoir Sylvanu,

Super MERCI j'ai adapté et parfait, j'ai encore tellement à apprendre !

Bonne soirée à vous

 

[YOUYOU25]

Bonjour
Une autre façon

Bonsoir sousou,

MERCI beaucoup à vous tout fonctionne également parfaitement.

Toujours intéressant d'avoir plusieurs version pour progresser.

Bonne soirée