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

IHM Discussion :

[VBA] Affichage automatique d'une page d'un onglet


Sujet :

IHM

  1. #1
    Membre habitué Avatar de ancel17
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Mars 2007
    Messages
    312
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Bidouilleur

    Informations forums :
    Inscription : Mars 2007
    Messages : 312
    Points : 178
    Points
    178
    Par défaut [VBA] Affichage automatique d'une page d'un onglet
    Bonjour !

    je souhaite afficher page spécifique d'un contrôle onglet en fonction d'une valeur calculée.

    j'ai tenté ceci mais cela ne fonctionne pas :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     
    Private Sub Form_AfterUpdate()
     
    If Me.Texte50 > 366 Then
        Me.CtlTab37.Value = 1
    Else
        Me.CtlTab37.Value = 0
    End If
     
    End Sub
    de même pour

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Me.CtlTab37.Pages("nom de la page").SetFocus
    à la place de
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Me.CtlTab37.value = index
    Sigue soñando

  2. #2
    Membre expérimenté

    Profil pro
    Inscrit en
    Mars 2006
    Messages
    1 350
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2006
    Messages : 1 350
    Points : 1 701
    Points
    1 701
    Par défaut
    Bonjour;

    Private Sub Form_AfterUpdate()

    If Me.Texte50 > 366 Then
    Me.CtlTab37.Value = 1
    Else
    Me.CtlTab37.Value = 0
    End If

    End Sub
    Texte50 c'est du numérique?

    Cordialement

    Ps : Je revenais pour inviter à mettre le code dans un bouton pour voir.. Mais Starec est déjà passé.
    Questions techniques par MP
    Le peu que je sais, c'est à mon ignorance que je le dois.
    ...............................................................................Sacha Guitry

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Pourquoi avoir mis ton code sur l'AfterUpdate de ta form, quand veux tu que ton changement d'onglet se fasse.

    Starec

  4. #4
    Membre habitué Avatar de ancel17
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Mars 2007
    Messages
    312
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Bidouilleur

    Informations forums :
    Inscription : Mars 2007
    Messages : 312
    Points : 178
    Points
    178
    Par défaut
    En effet, en le mettant sur Form_Open, c'est bien mieux !

    Merci !
    Sigue soñando

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

Discussions similaires

  1. [VBA-E] activation d'une page impossible
    Par corwin44 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 07/07/2006, 16h25
  2. [VBA Excel] Lien vers une page précise
    Par Viper7 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 29/06/2006, 21h54
  3. passage automatique d'une page à l'autre
    Par kenny49 dans le forum Langage
    Réponses: 2
    Dernier message: 26/06/2006, 09h06
  4. Redimension automatique d'une page
    Par fabrice.Croize dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 21/03/2006, 10h59
  5. [Tableaux] rafraichissement automatique d'une page
    Par Copps dans le forum Langage
    Réponses: 5
    Dernier message: 10/11/2005, 09h02

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