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 :

Combobox et remontée d'informations


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    412
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 412
    Par défaut Combobox et remontée d'informations
    bonjour,

    au lancement de mon classeur excel j'ai un userform du nom de "listing" qui s'ouvre

    sur ce form j'ai:
    - 1 ComboBox1
    - 1 TexteBox1
    - 1 TexteBox2

    La première des choses, j'aimerais que le Combobox1 alle chercher la liste de de nom qui se trouve dans la Feuil4 de AG10 à AG100

    Nota malgrès les tutos je n'y suis pas arrivé.

    ensuite, lorsque j'ai choisi un nom dans ma liste par exemple toto qui se trouve en position AG69, j'aimerai que lorsque je clique sur toto il me recopie ce nom dans le TextBox1 et qu'il me remonte le chiffre appartenant a ce nom situé dans la colonne juste a coté soit ici en AH69 et qu'il me l'affiche dans le TexBox 2

    Merci de votre aide si précieuse

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Septembre 2011
    Messages
    8 208
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Septembre 2011
    Messages : 8 208
    Par défaut
    Bonjour,

    Note que tu peux coder la propriété "RowSource" directement dans le combobox; c'est inutile de le faire à chaque fois.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub ComboBox1_Change()
        Me.TextBox1.Text = Me.ComboBox1.Value
        Me.TextBox2.Text = [Feuil4!AG10].Offset(Me.ComboBox1.ListIndex).Value
    End Sub
     
    Private Sub UserForm_Activate()
        Me.ComboBox1.RowSource = "Feuil4!AG10:AG100"
    End Sub
    S'il y a quelque chose que tu ne comprends pas, n'hésite pas à poser des questions.

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    412
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 412
    Par défaut
    Merci beaucoup ton code est claire j'avais un souci de syntaxe en fait sur les données de la combo c'est pour ça que je n'y arrivais pas.

    Par contre la avec ce code au lancement de mon classeur il me lance bien mon form mais avec une une erreur c'est bisare

    En P-J l'erreurNom : erreur.png
Affichages : 76
Taille : 5,9 Ko

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2007
    Messages
    412
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 412
    Par défaut
    ARRRRRRRRR

    C'est bon merci bien pour tout c'est moi qui avait fait une erreur

    merci beaucoup

    A+

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

Discussions similaires

  1. Réponses: 6
    Dernier message: 09/08/2017, 15h20
  2. [DeskI XiR2] remonter une information NULL
    Par BipBipBO dans le forum Débuter
    Réponses: 7
    Dernier message: 15/02/2010, 18h38
  3. [VBS]Script balayage d'ip et remonter d'information
    Par jbmamba dans le forum VBScript
    Réponses: 11
    Dernier message: 04/09/2008, 13h36
  4. [VBS]Script balayage d'ip et remonter d'information
    Par jbmamba dans le forum VBScript
    Réponses: 0
    Dernier message: 28/08/2008, 15h26
  5. Logiciel de remontée d'information sur le réseau
    Par nberthonneau dans le forum Autres Logiciels
    Réponses: 3
    Dernier message: 06/11/2007, 18h25

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