Sélectionner la date du jour en changeant d'onglet

Bonjour à tous,

Je suis débutant en VBA et je galère depuis plusieurs jours pour réaliser une tâche.

J'ai un fichier excel qui contient différents onglets dont certains sont intitulés "Calendrier_ATi" avec i qui vaut 1, 2, 3... Je souhaiterai que dès que je clique sur l'onglet Calendrier_ATi, la cellule sélectionnée soit celle contenant la date du jour. La complexité c'est que je peux créer dans le futur d'autres onglets Calendrier_ATi, la fonctionnalité doit marcher aussi pour ces onglets.

Le fichier excel est en pièces jointes.

Je vous remercie pour votre aide !

Bonnes fêtes à tous !

Bonjour,

As-tu cet affichage dans VBE

En effet, j'ai cet affichage dans le développeur.

Bonjour

Avec dans ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call CelAujourdhui 'le code de la fonctionn est dans Module2
End Sub

et dans le Module

Sub CelAujourdhui()
'sélectionne la cellule contenant la date du jour
For i = 1 To 1200
Cells(2, i).Activate
'If Cells(2, i) = Date Then ActiveWindow.ScrollRow = i + 1
Next
End Sub

j'ai neutralisé la ligne ScrollRow car il faudrait savoir ce que tu en attends?

Cordialement

Re,

Ton classeur a semble-t-il un problème.

Quelqu'un peut confirmer mes dires

Cdlt.

Bonsoir,

Sur mon fichier "planning sans prétention" j'utilise ceci

    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = [Le_scroll]

Première ligne me "cale" sur la dernière colonne "non planning"

la deuxième effectue un scroll de colonnes du nombre de jour séparant aujourdhui() à date(année en cour;1;1) aujourd'huit ce serait 362...

Mais vu que vos journées comportent 3 colonnes il serait multiplié par trois...

Donc dans ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Left(Sh.Name,10)="Calendrier" then
Call CelAujourdhui
EndIf
End Sub

dans un module quelconque :

Sub CelAujourdhui()
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = (DateDiff("d", "01/01/2014", Now))*3
End Sub

l'idéal aussi serait de mettre un figeage de volet afin de garder votre première colonne visible suite au scroll

@ bientôt

LouReeD

Bonjour à tous,

Merci beaucoup pour vos réponses! Ca marche

Bonnes fêtes !!

Mais de rien

@ bientôt

LouReeD