XL 2016 deplacement horizontale date avec bouton aujourdhui

YOUYOU25

XLDnaute Junior
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
 

Pièces jointes

  • DEPLACEMENT DANS FICHIER.xlsm
    26.5 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Youyou,
Un essai en PJ avec :
VB:
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
 

Pièces jointes

  • DEPLACEMENT DANS FICHIER.xlsm
    27.5 KB · Affichages: 6

YOUYOU25

XLDnaute Junior
Bonsoir Youyou,
Un essai en PJ avec :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 847
dernier inscrit
Djigbenou