IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Excel - Interdire le déplacement d'une feuille


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau membre du Club
    Inscrit en
    Avril 2005
    Messages
    5
    Détails du profil
    Informations forums :
    Inscription : Avril 2005
    Messages : 5
    Par défaut Excel - Interdire le déplacement d'une feuille
    Bonjour,
    je souhaite interdire la changement d'index d'une feuille, donc pas de déplacement, tout en laissant la possibilité de créer d'autres feuilles qui pourraient venir derrière celles existantes.
    Je ne peux pas protéger la structure du classeur puisque cela empeche de créer d'autres feuilles.
    Je n'ai pas trop d'idées et je sais pas si c'est réalisable.
    Merci de bien vouloir me renseigner.

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    tu peux mettre ça dans le code de la feuille en question
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub Worksheet_Deactivate()
    Sheets("feuille_test").Move Before:=Sheets(2)
    End Sub
    ça ne l'empeche pas de bouger mais ça la remet a sa place dés qu'on la quitte. par contre si l'index est lié a l'execution d'une macro, tu peux toujour commencer ton code par la même ligne

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Par macro, il est possible d'intervenir sur un classeur protégé. Par contre, si ton classeur n'est pas protégé, empêcher de déplacer une feuille... je ne vois pas.
    Pourquoi ne pas utiliser le nom plutôt que l'index ?
    Ce que tu peux aussi faire c'est renvoyer systématiquement la feuille que tu désires à la fin en utilisant l'événement SheetSelectionChange de thisworkbook
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Application.ScreenUpdating = False
        NomFeuille = ActiveSheet.Name
        Feuil3.Move After:=Worksheets(Worksheets.Count)
        DoEvents
        Application.ScreenUpdating = True
        Worksheets(NomFeuille).Select
    End Sub
    Tu regardes si un autre événement pourrait mieux convenir... Juste pour l'idée

    Edit
    Mais je vois qu'Alsimbad est passé par là...

Discussions similaires

  1. [VBA-Excel]Empecher l'insertion d'une feuille par le clic droit
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 17/09/2006, 11h10
  2. [VBA-Excel] Déplacement d'une feuille vers un autre fichier
    Par Olivier95 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 08/09/2006, 11h17
  3. [VBA][Excel] Tester l'existence d'une feuille
    Par titflocon dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 16/11/2005, 14h49
  4. [Excel] Faire des liens internes à une feuille
    Par Invité dans le forum Excel
    Réponses: 1
    Dernier message: 25/08/2005, 12h04
  5. [VB6] [Form] Interdire le déplacement d'une feuille
    Par Loïc dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 23/09/2002, 15h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo