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 :

Changer l'onglet d'une MultiPage [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    104
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2009
    Messages : 104
    Par défaut Changer l'onglet d'une MultiPage
    Bonsoir le forum

    J'ai une application avec une MultiPage à deux onglets.
    Onglet 0 " Données globales"
    Onglet 1 "Paramètres et facturation"

    Si l'utilisateur click sur l'onglet 1 sans avoir fait un choix dans la combobox1 de l'onglet 0 , je lui envoi un message lui disant de faire un choix et je voudrais retourner à la page de l'onglet 0. 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
     
    Private Sub MultiPage1_Change()
     
    If MultiPage1.Value = 1 Then
       If ComboBox1.Value = 0 Or ComboBox1.Value = "" Then
          MsgBox " Veuillez choisir une classe à l'onglet Données globales"
          MultiPage1.Value = 0
          GoTo 5:
       End If
    End if
    5:
    End Sub
    Selon ma recherche sur le Net ce code devrait fonctionner.

    A l'exécution de la routine, je vois que l'onglet (la partie titre de l'onglet) "Données globales" est bien choisie, mais la page ne change pas, elle demeure sur l'onglet 1.

    Je ne sais pas quoi penser.

    Merci pour votre aide.

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Novembre 2009
    Messages
    104
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2009
    Messages : 104
    Par défaut
    Bon j'ai trouvé une solution peu élégante, mais qui fonctionne.
    Pour ceux à qui cela peut intéresser voici:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
     
    If MultiPage1.Value = 1 Then
       If ComboBox1.Value = 0 Or ComboBox1.Value = "" Then
          MsgBox " Veuillez choisir une classe à l'onglet Données globales"
          Unload Me
          ClassesModif.MultiPage1.Value = 0
          ClassesModif.Show
          GoTo 5:
       End If
    End if
    5:
    End Sub

  3. #3
    Membre Expert Avatar de laetitia
    Profil pro
    Inscrit en
    Décembre 2002
    Messages
    1 281
    Détails du profil
    Informations personnelles :
    Âge : 35
    Localisation : France

    Informations forums :
    Inscription : Décembre 2002
    Messages : 1 281
    Par défaut
    bonjour Bugzy1963 le forum en general il faut faire référence a la page recherche de ce côté la
    exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MultiPage1.Pages(1).Enabled = False

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

Discussions similaires

  1. Ne pas changer d'onglet lors d'une redirection de page sur un billet
    Par lolef dans le forum Développement Sharepoint
    Réponses: 1
    Dernier message: 12/08/2011, 12h24
  2. [XL-2003] changer la couleur d'une forme auto et d'un onglet
    Par gueff37 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 25/01/2011, 19h09
  3. [VB6]Changer la couleur d'une ligne d'un ListView
    Par Troopers dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 14/03/2003, 18h02
  4. Changer l'icône d'une fenêtre à partir d'un .res
    Par henderson dans le forum C++Builder
    Réponses: 8
    Dernier message: 11/03/2003, 11h48
  5. Changer l'image d'une texture
    Par alltech dans le forum DirectX
    Réponses: 5
    Dernier message: 21/08/2002, 02h31

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