Aller sur cellule aujourd'hui

[drop91]

Bonjour à tous,

avec mon petit calendrier j'aimerais à l'aide d'un bouton partir sur la cellule lié au jour d'aujourd'hui, (voir fichier joint).

Merci d'avance

 

[Staple1600]

Re : Aller sur cellule aujourd'hui

Bonjour à tous

drop91
En guise de source d'inspiration (à peaufiner plus tard)
Code issu de l'enregistreur de macro et légèrement remanié.

Sub Macro1()
Dim OJOUR As Date, X As Range
OJOUR = Date
    Set X = Cells.Find(What:=OJOUR, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
X.Offset(2).Rows.Select
End Sub

 

[drop91]

Re : Aller sur cellule aujourd'hui

Oui super cela marche, par contre si je me trouve sur une autre feuille du classeur la macro plante sur "X.Offset(2).Rows.Select".
que doit on faire pour éviter ce plantage.

Merci

 

[Staple1600]

Re : Aller sur cellule aujourd'hui

Re____________________________________EDITION: Bonjour mapomme

Un pis aller (en attendant mieux des autres vbaistes du forum )
Avec cette modification, si tu n'es pas sur la bonne feuille, il ne se passera rien.
Il faut donc que la feuille active soit celle qui contienne tes dates.
Code vb:
Sub Macro1B()
Dim OJOUR As Date, X As Range
OJOUR = Date
On Error Resume Next
With ActiveSheet
Set X = .Cells.Find(What:=OJOUR, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
X.Offset(2).Rows.Select
End With
End Sub

 

[mapomme]

Re : Aller sur cellule aujourd'hui

Bonjour drop91, Bonjour Staple1600 ,

Un essai avec une macro affublée du raccourci-clavier Ctrl+j

Le code de la macro dans Module1:

Sub Cejour()
On Error Resume Next
  Application.Goto ThisWorkbook.Sheets("Feuil1").Range("B:AF").Find(Date).Offset(2)
End Sub

Depuis n'importe quelle feuille du classeur, taper Ctrl+j. On reste sur la feuille de départ si la date n'est pas trouvée.

Edit: grâce à Staple1600, j'ai complété (j'avais oubié qu'on désirait se déplacer sur la ligne jaune)

 

[drop91]

Re : Aller sur cellule aujourd'hui

Super, j'ai ce qu'il me faut maintenant, UN GRAND MERCI