Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Activer une feuille par résultat macro...

Activer une feuille par résultat macro...

2 réponses
Avatar
Maximus
Bonjour

Dans un classeur, j'ai des feuilles nommées S1 à S53 (à la fois le nom et
dans le projet vba)...

Grâce à une macro trouver sur la FAQ MPFE (merci au passage de toutes ces
infos) je récupère le N° de semaine de la date du jour.

Je voudrais, toujours depuis ma macro, activer la feuille correspondante,
par exemple pour aujourd'hui 26/01/2007 activer la feuille S4..

Je précise que le numéro de semaine est dans une variable nommée
niemsemaine..

J'ai essayer sheets ("S" & niemsemaine).activate mais j'obtiens une erreur
d'exécution '9' , l'indice n'appartient pas à la sélection...

Toute aide serai la bien venue

@+ Max

PS : si vous le désirez, je mettrai mon classeur à dispo pour plus de clarté
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Dim No As Integer
No = "Numéro de la semaine trouvé"
Sheets("S" & No).Select


"Maximus" a écrit dans le message de news: epd3jb$h39$
Bonjour

Dans un classeur, j'ai des feuilles nommées S1 à S53 (à la fois le nom et
dans le projet vba)...

Grâce à une macro trouver sur la FAQ MPFE (merci au passage de toutes ces
infos) je récupère le N° de semaine de la date du jour.

Je voudrais, toujours depuis ma macro, activer la feuille correspondante,
par exemple pour aujourd'hui 26/01/2007 activer la feuille S4..

Je précise que le numéro de semaine est dans une variable nommée
niemsemaine..

J'ai essayer sheets ("S" & niemsemaine).activate mais j'obtiens une erreur
d'exécution '9' , l'indice n'appartient pas à la sélection...

Toute aide serai la bien venue

@+ Max

PS : si vous le désirez, je mettrai mon classeur à dispo pour plus de clarté
Avatar
Maximus
"MichDenis" a écrit dans le message de news:

Dim No As Integer
No = "Numéro de la semaine trouvé"
Sheets("S" & No).Select


Parfait


Merci

En plus j'avais fait une erreur de frappe sur le nom de la variable dans la
macro...

@+ Max