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 :

Multipage géré par une liste déroulante [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Femme Profil pro
    reconversion en cours
    Inscrit en
    Juillet 2009
    Messages
    637
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : reconversion en cours
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2009
    Messages : 637
    Par défaut Multipage géré par une liste déroulante
    Bonjour,
    J'ai une liste déroulante dont les items sont identiques au nom des pages de mon multi-page.
    A l'ouverture de mon USF, le multi-page est invisible. Puis en remplissant le formulaire, quand l'utilisateur arrive sur la ComboBox, je voudrais que cela ouvre le multi-page sur la page correspondante.
    Voici mon code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Private Sub CbxPCC_Change()
    With MultiPage1
        .Visible = True
        .Enabled = True 'détermine si le controle est actif,
        If cbxPCC = "Salaires Normaux" Then
            .Pages(0).Visible = True
            .Pages(1).Visible = False
            .Pages(2).Visible = False
            .Pages(3).Visible = False
            .Pages(4).Visible = False
        ElseIf cbxPCC = "Domicile Fiscal DP" Then
            .Pages(0).Visible = False
            .Pages(1).Visible = True
            .Pages(2).Visible = False
            .Pages(3).Visible = False
            .Pages(4).Visible = False
        Elseif...
        End If
    End With
    End Sub
    A première vu, cela fonctionne, sauf si l'utilisateur décide de modifier la ComboBox. Alors là, ma page devient grise et les contrôles de la page disparaissent ; seuls les noms de page change correctement.

    Est-ce que quelqu'un voit d'où vient mon problème svp ?
    Merci

  2. #2
    Invité
    Invité(e)
    Par défaut
    Citation Envoyé par mouftie Voir le message
    Bonjour,

    A tester

  3. #3
    Membre éclairé
    Femme Profil pro
    reconversion en cours
    Inscrit en
    Juillet 2009
    Messages
    637
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : reconversion en cours
    Secteur : Conseil

    Informations forums :
    Inscription : Juillet 2009
    Messages : 637
    Par défaut
    Bonjour Eric,
    Un grand merci pour ta réponse rapide et efficace.
    Malheureusement, je ne peux pas la tester en réel, mon fichier à disparu du réseau ; j'ai demandé une restauration, mais cela peut prendre plusieurs jours.
    Je valide quand même car cela reprend très bien ma demande.
    Encore un grand merci pour ton travail

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 19/10/2012, 16h15
  2. changer des checkbox par une liste déroulante
    Par Invité(e) dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/08/2011, 11h53
  3. [AC-2007] Mise à jour de champs par une liste déroulante
    Par franckimmo dans le forum VBA Access
    Réponses: 8
    Dernier message: 01/02/2010, 17h48
  4. Réponses: 1
    Dernier message: 08/09/2009, 14h40
  5. [MySQL] choix d'une table sql par une liste déroulante
    Par Tiny Buster dans le forum PHP & Base de données
    Réponses: 2
    Dernier message: 07/07/2008, 22h26

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