XL 2010 RESOLU: Aller à cellule aujourdhui()

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2021

• #2

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.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 14 Mai 2021

• #3

Bonjour mapomme, le fil,

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

soan

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 14 Mai 2021

• #4

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é ..

 

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 14 Mai 2021

• #5

Bonjour Soan

14 mai 1900 : Les Jeux Olympiques à Paris

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 14 Mai 2021

• #6

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

• poipoi- aujourdhui- v1.xlsm

  33.4 KB · Affichages: 19

Dernière édition: 14 Mai 2021

Vote positif 0 Vote négatif

poipoi

XLDnaute Impliqué

• 14 Mai 2021

• #7

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

 

Vote positif 0 Vote négatif