XL 2010 RESOLU: Aller à cellule aujourdhui()

[poipoi]

Bonjour le forum,

Je cherche une solution pour aller à la date du jour à l'ouverture de mon fichier qui comprend 4 feuilles, une par trimestre.
De même je placerai un bouton sur chaque feuille qui me permettra d'atteindre cette cellule aujourdhui()
J'ai trouvé sur un site quelques lignes de code mais ça ne marche pas..
Auriez vous une idée?
Par avance, merci à vous

 

[mapomme]

Bonjour @poipoi 🙂,

Hélas, trois fois hélas! Vos dates dans le fichier ne sont pas des dates de l'année mais de l'année 1900.
Mettez le format avec l'année, vous pourrez le constatez.
Passez d'abord vos pseudo-dates de l'année en vraies dates de l'année et réessayez votre macro.

 

[soan]

Bonjour mapomme, le fil,

ah bon ? on n'est pas le 14 mai 1900 aujourd'hui ? 🤪

soan

 

[poipoi]

bonjour mapomme et merci pour ton aide
oui bien sûr , c'est une bêtise de ma part...
j'utilise ces lignes trouvées sur le net:

Private Sub Workbook_Open()
    With Worksheets("2t")
        .Activate
        .Columns(1).Find(Date).Select
    End With
End Sub

mais évidemment ça coince pour 2 raisons: la 1ère c'est que je spécifie feuille 2T parce que je ne sais pas comment demander pour l'ensemble des feuilles; la 2e, parce que je ne suis pas doué ..

 

[poipoi]

Bonjour Soan

14 mai 1900 : Les Jeux Olympiques à Paris

 

[mapomme]

Re,

Essayez dans un module VBA :

Sub NiAvantNiApres()
Const plage = "b12:b999"
Dim i&, nlig
   On Error Resume Next
   For i = 1 To 4
      nlig = Application.Match(CLng(Date), Sheets(i & "T").Range(plage).Value2, 0)
      If IsNumeric(nlig) Then
         Application.Goto Sheets(i & "T").Cells(Range(plage).Row - 1 + nlig, "a"), True
         Application.Goto Sheets(i & "T").Cells(Range(plage).Row - 1 + nlig, "b")
         Exit Sub
      End If
   Next i
End Sub

 

[poipoi]

mapomme
c'est génial... nickel!
un grand merci ... et du soleil pour le weekend!