|
|
|
|
Configuration: Windows XP et excel 95
Bonjour,
Suggestion :
Sub ChercheOnglet()
Dim Feuille, LastFeuil As String
Dim Position As Integer
'Récupéré le nom de l'onglet actif
LastFeuil = ActiveSheet.Name
'Récupéré le nom de l'onglet
Feuille = ActiveCell.Offset(0, 0).Value
'Sélectionné l'onglet
Sheets(Feuille).Select
'Trouver la dernière ligne non-vide
Position = Range("A1:A65535").End(xlDown).Row
'Se positionner a N + 1
Range("A" & (Position + 1)).Select
'Écrire la date du jour
ActiveCell.Offset(0, 0).Value = Date
'Revenir à l'onglet initial
Sheets(LastFeuil).Select
End Sub
Lupin ~L'essentiel est invisible pour les yeux~ ~On ne voit bien qu'avec le coeur~ |
Résultats pour [EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT
Résultats pour [EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT