hypo78
XLDnaute Impliqué
Bonjour à tous,
Mon classeur est constitué d 'une centaine de feuilles identiques.
Au fur et à mesure il se remplit avec une date en cellule AF2.
Ce que je souhaiterai, qu'à l'ouverture on soit directement sur la première feuille non remplie.
J'ai commencé à tatonner un code, mais si je suis là.... c'est que çà ne fonctionne pas.
Merci d'avance
Mon classeur est constitué d 'une centaine de feuilles identiques.
Au fur et à mesure il se remplit avec une date en cellule AF2.
Ce que je souhaiterai, qu'à l'ouverture on soit directement sur la première feuille non remplie.
J'ai commencé à tatonner un code, mais si je suis là.... c'est que çà ne fonctionne pas.
Code:
Private Sub Workbook_Open()
w As Worksheet, cel As Range
For Each w In Worksheets
For Each cel In w.[AF2]
If cel = "" Then
w.Activate
Exit Sub
End If
Next
End Sub
Merci d'avance