[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT

Question

Bonjour, pouvez-vous m'aidez

Je voudrais faire une macro excel (95) qui puisse prendre le résultat d'une cellule pour activer l'onglet du même nom.

Le résultat à prendre en compte est le nom du serveur (ex : toto). J'ai bien sûr plusieurs onglets différents car plusieurs noms de serveur.

A partir d'un onglet résultat qui reprend les données ci-dessous :
Nom de serveur Date Sauvegarde Résultat
toto 04/08/2005 OK

Il faudrait que cette macro active l'onglet appelé "toto" pour copier la date de sauvegarde et le résultat.

Merci de votre aide.

Configuration: Windows XP et excel 95

Utilisateur anonyme · Accepted Answer

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

[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT

1 réponse

Discussions similaires

Newsletters