OVH Cloud OVH Cloud

Retour à la feuille précédente

8 réponses
Avatar
Didier
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.

8 réponses

Avatar
Daniel
Bonjour.
Adapte les macros suivantes à ton environnement :

Public FeuillePrecedente As String
Sub Aller()
FeuillePrecedente = ActiveSheet.Name
Sheets("Feuil16").Visible = True
Sheets("Feuil16").Select
End Sub
Sub Retour()
Sheets("Feuil16").Visible = False
Sheets(FeuillePrecedente).Select
End Sub

Cordialement.
Daniel
"Didier" a écrit dans le message de news:
uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.





Avatar
Jacky
Bonjour Didier

Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille

masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.


Comment procède-tu pour faire ceci ??
Si c'est par macro, édites les codes ici.

Salutations
JJ

"Didier" a écrit dans le message de
news:uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille

masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.





Avatar
michdenis
Bonjour Didier,

Un fichier exemple là :

http://cjoint.com/?lwqsjOkq02


Salutations!



"Didier" a écrit dans le message de news: uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.
Avatar
Didier
Bonsoir Daniel et Michdenis

Merci beaucoup pour vos explications, j'ai pratiquement terminé mon
application
toutefois je vais vous solliciter encore une fois ( pour ce soir !).
J'ai écrit mon code sous excel 2003 et en cherchant sur le forum des lignes
de code
ou sur des sites web (excelabo ...etc), mais certains de mes utilisateurs
tournent encore
avec excel 97 et donc l'application ne fonctionne pas.
Avez-vous des conseils à me donner pour retranscrire le code dans une
version précédente
ou peut-être une autre solution ?

Merci d'avance.
Tres cordialement.
Didier.


"michdenis" a écrit dans le message de news:

Bonjour Didier,

Un fichier exemple là :

http://cjoint.com/?lwqsjOkq02


Salutations!



"Didier" a écrit dans le message de news:
uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.






Avatar
Daniel
Je suis avec XL2003, mais tu pourrais de te mettre sur un poste XL97 et
d'exécuter tes macros en mode ligne à ligne pour voir sur quelle ligne est
le problème.
Daniel
"Didier" a écrit dans le message de news:
4383820d$0$19700$
Bonsoir Daniel et Michdenis

Merci beaucoup pour vos explications, j'ai pratiquement terminé mon
application
toutefois je vais vous solliciter encore une fois ( pour ce soir !).
J'ai écrit mon code sous excel 2003 et en cherchant sur le forum des
lignes de code
ou sur des sites web (excelabo ...etc), mais certains de mes utilisateurs
tournent encore
avec excel 97 et donc l'application ne fonctionne pas.
Avez-vous des conseils à me donner pour retranscrire le code dans une
version précédente
ou peut-être une autre solution ?

Merci d'avance.
Tres cordialement.
Didier.


"michdenis" a écrit dans le message de news:

Bonjour Didier,

Un fichier exemple là :

http://cjoint.com/?lwqsjOkq02


Salutations!



"Didier" a écrit dans le message de news:
uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.










Avatar
Didier
Bonsoir Jacky

Voici mon code, mais celui de Daniel et Michdenis est beaucoup plus
performant.
d'ailleurs j'ai déja modifié le mien ce qui permet maintenant de revenir sur
la feuille
precedemment activée.

Sub AllerListes()
ActiveWindow.DisplayWorkbookTabs = False
Worksheets("Listes").Visible = True
Sheets("Listes").Select
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Sub QuitterListes()
ActiveWindow.DisplayWorkbookTabs = False
Worksheets("Listes").Visible = False
Sheets("FME").Select
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Salutations.
Dider.

"Jacky" a écrit dans le message
de news: %
Bonjour Didier

Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille

masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.


Comment procède-tu pour faire ceci ??
Si c'est par macro, édites les codes ici.

Salutations
JJ

"Didier" a écrit dans le message de
news:uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille

masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.









Avatar
michdenis
Bonjour Didier,

Seul le module1 répond à ta question. le code de ce module :
Si le fichier en ligne a d'autres modules, supprime les...

Évidemment, tu dois adapter le nom des objets selon ton application.

Ce code est simple et je serais surpris qu'il ne soit pas
accessible pour la version excel 97.

Sinon, relève la ligne de code fautive !


'Déclaration dans le haut du module
Public Feuille As String

'--------------------------
Sub MasquerFeuille()
Application.ScreenUpdating = False
If Feuille = "" Then
Sheets(2).Select
Else
Sheets(Feuille).Select
End If
Sheets("Feuille_Masquée").Visible = xlVeryHidden
End Sub

'--------------------------
Sub AfficherFeuilleMasquer()
Feuille = ActiveSheet.Name
With Sheets("Feuille_Masquée")
.Visible = True
.Select
End With

End Sub
'--------------------------


Salutations!



"Didier" a écrit dans le message de news: 4383820d$0$19700$
Bonsoir Daniel et Michdenis

Merci beaucoup pour vos explications, j'ai pratiquement terminé mon
application
toutefois je vais vous solliciter encore une fois ( pour ce soir !).
J'ai écrit mon code sous excel 2003 et en cherchant sur le forum des lignes
de code
ou sur des sites web (excelabo ...etc), mais certains de mes utilisateurs
tournent encore
avec excel 97 et donc l'application ne fonctionne pas.
Avez-vous des conseils à me donner pour retranscrire le code dans une
version précédente
ou peut-être une autre solution ?

Merci d'avance.
Tres cordialement.
Didier.


"michdenis" a écrit dans le message de news:

Bonjour Didier,

Un fichier exemple là :

http://cjoint.com/?lwqsjOkq02


Salutations!



"Didier" a écrit dans le message de news:
uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.






Avatar
Didier
Bonsoir Michdenis

Ma question concernant la compatibilité avec XL97 ne se raporte pas
au code échangé ici sur le forum mais à l'ensemble de mon application.
Je souhaitais simplement m'éviter de contrôler tout mon code sous XL97
à l'aide peut-être d'un outil ou d'un assistant....

Merci de votre aide.
Cordialement.
Didier.

"michdenis" a écrit dans le message de news:

Bonjour Didier,

Seul le module1 répond à ta question. le code de ce module :
Si le fichier en ligne a d'autres modules, supprime les...

Évidemment, tu dois adapter le nom des objets selon ton application.

Ce code est simple et je serais surpris qu'il ne soit pas
accessible pour la version excel 97.

Sinon, relève la ligne de code fautive !


'Déclaration dans le haut du module
Public Feuille As String

'--------------------------
Sub MasquerFeuille()
Application.ScreenUpdating = False
If Feuille = "" Then
Sheets(2).Select
Else
Sheets(Feuille).Select
End If
Sheets("Feuille_Masquée").Visible = xlVeryHidden
End Sub

'--------------------------
Sub AfficherFeuilleMasquer()
Feuille = ActiveSheet.Name
With Sheets("Feuille_Masquée")
.Visible = True
.Select
End With

End Sub
'--------------------------


Salutations!



"Didier" a écrit dans le message de news:
4383820d$0$19700$
Bonsoir Daniel et Michdenis

Merci beaucoup pour vos explications, j'ai pratiquement terminé mon
application
toutefois je vais vous solliciter encore une fois ( pour ce soir !).
J'ai écrit mon code sous excel 2003 et en cherchant sur le forum des
lignes
de code
ou sur des sites web (excelabo ...etc), mais certains de mes utilisateurs
tournent encore
avec excel 97 et donc l'application ne fonctionne pas.
Avez-vous des conseils à me donner pour retranscrire le code dans une
version précédente
ou peut-être une autre solution ?

Merci d'avance.
Tres cordialement.
Didier.


"michdenis" a écrit dans le message de news:

Bonjour Didier,

Un fichier exemple là :

http://cjoint.com/?lwqsjOkq02


Salutations!



"Didier" a écrit dans le message de news:
uNc%
Bonsoir à Tous

J'ai un classeur de 15 feuilles (Feuil1 à Feuil15) et 1 masquée (Feuil16)
qui me sert d'accueil pour mes listes de validation.
Avec chacunes des 15 feuilles je peux afficher puis sélectionner la
feuille
masquée pour compléter mes listes, mais lorsque je masque de nouveau
la feuille je me retrouve automatiquement à la 15ème feuille visible.

Je cherche une solution pour retourner systématiquement sur la feuille
d'ou j'ai lancé la macro pour afficher la feuille masquée.

En clair une commande "Feuille précédente" idem web

Merci de vos précieux conseils.

Cordialement.
Didier.