XL 2010 RESOLU: Aller à cellule aujourdhui()

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 !

poipoi

XLDnaute Impliqué
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
 

Pièces jointes

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.
 
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:
VB:
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é ..
 
Re,

Essayez dans un module VBA :
VB:
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
 

Pièces jointes

Dernière édition:
- 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

Réponses
8
Affichages
441
Retour