Rechercher : dans
Par :

[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT

Dernière réponse le 15 aoû 2005 à 16:54:22 THERESE067117, le 15 aoû 2005 à 08:00:21 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « [EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT » dans :
Télécharger MOREFUNC (Macro complémentaire EXCEL) VoirMorefunc est une macro complémentaire proposant 67 nouvelles fonctions de feuille de calcul pour Excel. Ces fonctions sont compatibles avec Excel 95 à 2007. Elles ne sont pas portables sur d'autres plate-formes que Windows, ni sur d'autres...

1

 Lupin.Arsene, le 15 aoû 2005 à 16:54:22

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épondre à Lupin.Arsene
Collection CommentÇaMarche.net