[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT

Fermé

THERESE067117 - 15 août 2005 à 08:00
Utilisateur anonyme - 15 août 2005 à 16:54

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.

A voir également:

[EXCEL MACRO] ACTIVER L'ONGLET CORRESPONDANT
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Comment activer windows 10 - Guide
Macro word - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
15 août 2005 à 16:54

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

Discussions similaires

Que signifie "Correspondant occupé" sur un iPhone ?

Correspondant n' est pas joignable

Que veut dire "correspondant occupé" lors d'un appel ?

Discussions similaires

Newsletters