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

 

[BrunoM45]

Bonjour YOUYOU25

Comme vous semblez aimer les majuscules juste un petit rappel pour vos futures demandes

Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible) et écrit en minuscules
- Pas de titre du style "URGENT", "A L'AIDE",...
- Votre poste doit être rédigé simplement, en minuscules avec un minumum de formatages, pas de posts tout en gras par exemple.

Merci de respecter ces éléments qui contribuent à la lisibilité du forum.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne journée