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

VBA Discussion :

VBA affichage objet image dans UserForm suivant valeur Combobox


Sujet :

VBA

  1. #1
    Membre à l'essai
    Inscrit en
    Octobre 2009
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 13
    Points : 11
    Points
    11
    Par défaut VBA affichage objet image dans UserForm suivant valeur Combobox
    Bonjour à tous,

    Je viens vers vous, car je sèche sur mon problème.
    J'ai un UserForm avec un Combobox avec une liste déroulante.
    Aujourd'hui, à côté de ce Combobox, il y a un objet image, pour lequel, si on clique dessus, ça lance une recherche par rapport à la valeur sélectionnée dans le Combobox.
    Tout ceci fonctionne parfaitement.

    Ayant pleins d'autres champs (objets) dans ce Userform, je souhaiterai que l'objet image s'affiche uniquement quand le Combobox est non-vide.
    Je ne sais pas quel code je pourrai mettre pour ça et surtout à quel endroit.
    Dans le private sub du combobox_change ?
    Dans un private sub de l'objet image ?

    J'ai cherché un private sub image_change, mais je n'ai pas trouvé.

    Est-ce que quelqu'un aurait une idée, un piste ?

    Merci d'avance pour la lecture de ma demande.

  2. #2
    Membre à l'essai
    Inscrit en
    Octobre 2009
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : Octobre 2009
    Messages : 13
    Points : 11
    Points
    11
    Par défaut
    Bonjour à tous,

    Suite à discussion avec un collègue, j'ai trouvé

    Pour ceux que ça pourrait intéresser, voici ce que ça donne (test si le combobox est vide : si oui l'image 2 n'est pas visible, sinon image2 visible).

    Code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    If ComboBox1.Value = "" Then
       Image2.Visible = False
    Else
       Image2.Visible = True
    End If
    Bonne journée à tous

  3. #3
    Rédacteur/Modérateur
    Avatar de loufab
    Homme Profil pro
    Entrepreneur en solutions informatiques viables et fonctionnelles.
    Inscrit en
    Avril 2005
    Messages
    12 075
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : Entrepreneur en solutions informatiques viables et fonctionnelles.
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2005
    Messages : 12 075
    Points : 24 701
    Points
    24 701
    Par défaut
    Bonjour,

    Attention entre le "" et le Null.

    Sinon ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    If ComboBox1.Value = "" Then
       Image2.Visible = False
    Else
       Image2.Visible = True
    End If
    C'est juste cela :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Image2.Visible = (ComboBox1.Value <> "")
    Cordialement,

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

Discussions similaires

  1. [XL-2013] Quel code vba pour inserer image dans userform
    Par david.guedes dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 09/06/2015, 10h11
  2. Réponses: 1
    Dernier message: 17/08/2011, 20h36
  3. [XL-2003] [VBA] Objet Chart dans Userform : déclaration des données ?
    Par CriCri98 dans le forum Excel
    Réponses: 2
    Dernier message: 18/08/2009, 17h08
  4. [VBA-E] Question sur image dans userform ?
    Par damsmut dans le forum Excel
    Réponses: 3
    Dernier message: 04/04/2007, 06h32
  5. [VBA-E] affichage de données dans userform
    Par lio62 dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 05/02/2007, 22h52

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