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 :

USF multipage & SetFocus [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre actif
    Femme Profil pro
    reconversion en cours
    Inscrit en
    juillet 2009
    Messages
    540
    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 : 540
    Points : 212
    Points
    212
    Par défaut USF multipage & SetFocus
    Bonjour,
    J'ai fait un userform, avec plusieurs onglets et au dessus des onglets, il y a un ruban récapitulatif du dossier traité.
    A l'ouverture de l'userform, je voudrais que l'utilisateur choisisse son nom dans une liste déroulante "CbxSup" du ruban. pour ce faire, j'ai écrit le code suivant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub UserForm_Initialize()
    'code...
    Me.CbxSup.SetFocus
    End Sub
    Malgré mon SetFocus, le curseur n'est pas présent dans la liste déroulante (d'ailleurs, il est nulle part ou invisible)
    Est-ce que qq'1 a une idée, svp ?
    Merci pour votre aide

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    10 601
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 10 601
    Points : 25 269
    Points
    25 269
    Billets dans le blog
    30
    Par défaut
    Bonjour,
    Si le but est de sélectionner un élément de la liste d'un ComboBox ou d'un ListBox, c'est la propriété ListIndex qu'il faut utiliser sachant que le premier élément de la liste est 0, le deuxième 1, etc.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Ma dernière contribution : VBA - Les macros complémentaires

  3. #3
    Membre actif
    Femme Profil pro
    reconversion en cours
    Inscrit en
    juillet 2009
    Messages
    540
    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 : 540
    Points : 212
    Points
    212
    Par défaut
    Bonjour Philippe,

    Merci pour ta réponse, mais je ne comprends pas bien "propriété ListIndex qu'il faut utiliser " ; où et comment utiliser cette propriété ?

    Mon objectif est qu'à l'ouverture du formulaire, l'utilisateur n'est qu'à saisir qq lettres de son nom pour le sélectionner, puis avec un raccourcis, il sélectionne l'onglet du formulaire qu'il doit remplir.

    J'espère avoir été plus claire. Merci

  4. #4
    Membre expérimenté
    Inscrit en
    septembre 2007
    Messages
    904
    Détails du profil
    Informations forums :
    Inscription : septembre 2007
    Messages : 904
    Points : 1 499
    Points
    1 499
    Par défaut
    Bonjour,
    Citation Envoyé par mouftie Voir le message
    Malgré mon SetFocus, le curseur n'est pas présent dans la liste déroulante (d'ailleurs, il est nulle part ou invisible)
    Le SetFocus ne fonctionne pas dans tous les cas et je te suggère de remplacer :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub UserForm_Initialize()
    ' par
    Private Sub UserForm_Activate()
    afin de voir si ton curseur est actif.
    Tu peux aussi avec affichage / ordre de tabulation mettre ton CbxSup en tête.

  5. #5
    Membre éclairé Avatar de Nicolas JACQUIN
    Homme Profil pro
    .
    Inscrit en
    avril 2014
    Messages
    549
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : .
    Secteur : Transports

    Informations forums :
    Inscription : avril 2014
    Messages : 549
    Points : 782
    Points
    782
    Par défaut
    Bonjour,
    essayer comme ça:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub UserForm_Activate()
    'code...
    Me.CbxSup.DropDown
    End Sub
    @+
    Merci d'exprimer votre message le plus clairement possible pour qu'on puisse vous aider

    n'oubliez pas de cliquer sur et si cela vous a aidé pensez à voter

  6. #6
    Membre actif
    Femme Profil pro
    reconversion en cours
    Inscrit en
    juillet 2009
    Messages
    540
    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 : 540
    Points : 212
    Points
    212
    Par défaut
    Bonjour à tous,
    Un grand merci pour votre aide, j'avais ce pb depuis des années...
    comme un petit caillou dans la chaussure, cela n'empêche pas de marcher, mais c'est tellement plus agréable sans...

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

Discussions similaires

  1. [XL-2016] Usf - Activer un objet en dehors d'un multipage (SetFocus ne fonctionne pas)
    Par mouftie dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 21/06/2019, 21h22
  2. [XL-2010] USF multipage => mémoire insuffisante
    Par florent77 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 02/10/2018, 09h40
  3. Optimisation Code / usf multipage
    Par GADENSEB dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 08/07/2014, 16h13
  4. Imprimer toutes les pages d'un USF Multipages
    Par Didier Gonard dans le forum Contribuez
    Réponses: 0
    Dernier message: 02/10/2009, 14h14
  5. SetFOcus sur un contrôle d'une autre feuille d'un multipage
    Par MacGeol dans le forum VB 6 et antérieur
    Réponses: 29
    Dernier message: 07/09/2005, 10h37

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