Bouton home

Salut Pierre,

Je ne sais pas si c'est vraiment ce que tu veux faire mais
j'ai pensé à une sélection automatique de la colonne en
fonction de la date du jour

Private Sub CommandButton1_Click()
Dim d As Date
Dim e As Integer
d = Now
e = Format(d, "mm")
Columns(e).Activate
End Sub

Bonne continuation
Mike

Salut Pierre,

Tu t'arranges pour invoquer StartOnKeyHome() à l'ouverture de ton classeur
(si tu veux, sinon 'manuellement').

Sub StartOnKeyHome()
Application.OnKey "{HOME}", "VaALaColDuMois"
End Sub

Sub StopOnKeyHome()
Application.OnKey "{HOME}"
End Sub

Sub VaALaColDuMois()
Cells(1, Month(Date)).Select 'à adapter le numéro de la ligne (ici 1)
End Sub

Salutations,

Daniel M.

"Pierre" <hamelpierre@hotmail.com> wrote in message
news:042b01c36e96$90590a10$a601280a@phx.gbl...
Merci Mike
Mais cette fonction est déja en usage a l'ouverture. Ce
que je veux c'est programmer le bouton "home"
Merci quand même.

-----Message d'origine-----
Salut Pierre,

Je ne sais pas si c'est vraiment ce que tu veux faire
mais

j'ai pensé à une sélection automatique de la colonne en
fonction de la date du jour

Private Sub CommandButton1_Click()
Dim d As Date
Dim e As Integer
d = Now
e = Format(d, "mm")
Columns(e).Activate
End Sub

Bonne continuation
Mike

.