Positionnement à cellule jour à l'ouverture

Bonjour à tous,

Néophite en Vba projects, j'ai vu dans le cours sur les formulaires et contrôles qu'on pouvait programmer des choses.

çà m'intéresserait pour aller à la cellule date du jour dans un tableau d'1an, soit 367 lignes.

J'ai déjà une macro qui fonctionne avec un bouton en derniére colonne 1ere ligne.

Pour déclencher la macro à l'ouverture fichier (feuille je crois pas),

voila mon code :

Private Sub UserForm_Initialize()

Dim dercol_calend As Integer
Dim derlig_calend As Integer

Sheets("calend").Select
derlig_calend = Sheets("calend").Range("A" & Rows.Count).End(xlUp).Row
dercol_calend = Sheets("calend").Cells(1, Columns.Count).End(xlToLeft).Column
'MsgBox dercol_calend

For i = 2 To derlig_calend
If Cells(i, 1) = Cells(1, dercol_calend) Then
Cells(i, 1).Select
GoTo ligne1
End If
Next i
'MsgBox i

ligne1:

'UserForm1.Show

End Sub

Mais rien ne se fait, il manque qqchose.

merci à ceux qui prennent le temps d'aider les autres.

Franck

Bonjour,

A placer dans ThisWorkbook

Private Sub Workbook_Open()
  Dim MaCellule$, i%
  For i = 2 To 366
    If Cells(i, 1) = Date Then
      MaCellule = Cells(i, 1).Address
    End If
  Next i
  Range(MaCellule).Select
  ActiveWindow.ScrollRow = Range(MaCellule).Row
  ActiveWindow.ScrollColumn = Range(MaCellule).Column
End Sub

Bonjour M12,

génail, çà fonctionne.

merci