XL 2016 deplacement horizontale date avec bouton aujourdhui

  • Initiateur de la discussion Initiateur de la discussion YOUYOU25
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
103
Réponses
3
Affichages
66
Retour