lien hypertexte date

[jerems]

Bonjour,

Une petite question du matin:

J'ai 2 onglets:

1 comporte un calendrier du 1er janvier au 31 décembre sur une seule colonne (la conne A)
Dans le 2éme, je voudrais avoir un bouton qui me permet d'arriver sur la date du jour et si possible d'afficher cette date en haut d'écran.

Merci

Jerems

 

[jerems]

Oups, j'ai oublié de poser ma question:

Savez-vous comment faire pour créer ce bouton:

Une macro peut-être? Et ça m'intéresse évidemment que vous me la trasmettiez.

Merci

Jerems

 

[_Thierry]

Bonjour Jerems, le Forum

Une approche rapide,

Sub DateFinder()
Dim DateOfToday As Date
Dim Plage As Range, Cell As Range

DateOfToday = Date

With Sheets('Calendrier')
Set Plage = .Range(.Range('A2'), .Range('A65536').End(xlUp))
End With

    For Each Cell In Plage
    If IsDate(Cell) Then
        If CDate(Cell) = DateOfToday Then
            Worksheets('Calendrier').Activate
            ActiveWindow.ScrollRow = Cell.Row
            Cell.Select
            Exit For
        End If
    End If
    Next

End Sub

Macro à mettre dans un Module Standard (Module1 par exemple))

Pour affecter cette macro à un bouton, le plus simple il suffit ensuite de dessiner ce bouton depuisla barre d'Outils 'Formulaire' et par click Droit sur ce bouton lui Affected cette Macro...

Bonne Journée
[ol]@+Thierry[/ol]

 

[jerems]

Merci

C'est exactement ça

Bonne journée

Jerems