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 dans userform


Sujet :

Macros et VBA Excel

  1. #1
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2009
    Messages : 2
    Par défaut Combobox dans userform
    Bonjour à toutes et à tous,

    J'ai un petit soucis dans mon projet que je n'arrive pas à réalisé c'est donc pour cela que je me rapproche de vous pour, peut-être, trouver une solution.

    Voici l'explication de mon projet :

    Avec un commandbutton j'appel un userform avec plusieurs combobox (qui fonctionnent correctement), ces combobox me remplissent différentes parties de ma feuilles excel selon la combobox que je selectionne.

    Mon problème :

    Dans 4 des mes combobox (appelé : fournitures, autres, matèriels et distributeurs) j'ai besoin quand je selectionne l'une des lignes que cela me remplisse en même temps les cellules désignation et prix correspondants.
    Pour la désignation : aucun problème cela fonctionne correctement,
    Pour le prix : après 1 semaine d'essaie différents cela ne fonctionne pas

    Donc je viens vers vous pour essayer de m'aider à trouver une selection à mon problème.

    Je vous joint un fichier reprenant les grandes lignes de mon projet pour avoir une meilleur vision de mon soucis.

    Par avance merci pour tout l'aide que vous pourrez m'apporter.
    Fichiers attachés Fichiers attachés

  2. #2
    Membre expérimenté
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    226
    Détails du profil
    Informations personnelles :
    Localisation : Suisse

    Informations forums :
    Inscription : Avril 2008
    Messages : 226
    Par défaut
    Hello,

    Pas évident à comprendre tes codes du bouton "Enregistrer".

    Si j'ai bien compris...

    Les codes que j'ai rajoutés sont entourés d'étoiles.

    Bonne continuation.

    Anto.

  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 syllage Antoniom le forum
    une autre methode en utilisant ComboBox.List(ComboBox.ListIndex, 1) sans trop toucher a son code qui demande a être simplifier entre autre!!

    debut du code....
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    With Sheets(Nom)
            .Cells(DerLig, 1) = ComboBox1
            .Cells(DerLig, 3) = ComboBox3
        If ComboBox6.Visible = True Then
         .Cells(DerLig, 4) = ComboBox6
         .Cells(DerLig, 8) = ComboBox6.List(ComboBox6.ListIndex, 1)
        End If
        If ComboBox7.Visible = True Then
         .Cells(DerLig, 5) = ComboBox7
         .Cells(DerLig, 9) = ComboBox7.List(ComboBox7.ListIndex, 1)
        End If
    ect....
    meme principe pour les autres combos...

  4. #4
    Nouveau candidat au Club
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2009
    Messages : 2
    Par défaut
    Laeticia, Antoniom,

    Merci à vous 2 vos codes aussi bien l'un que l'autre.

    Concernant mon code pour le bouton enregistrer sont des morceaux que j'ai récupéré à droite et à gauche et adapter à mon projet.

    Encore merci.

  5. #5
    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
    rebonjour tu peus déja simplifier cela

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Private Sub ComboBox5_Change()
    Select Case ComboBox5
      Case "Entrées"
      TextBox1.Visible = True 'afficher
      TextBox2.Visible = False 'Cacher
      End Select
      Select Case ComboBox5
      Case "Sorties"
     TextBox1.Visible = False 'Cacher
     TextBox2.Visible = True 'Afficher
     End Select
      End Sub
     Private Sub combobox4_change()
      Select Case ComboBox4
      Case "Fournitures"
      ComboBox6.Visible = True 'afficher
      ComboBox7.Visible = False 'Cacher
      ComboBox8.Visible = False 'Cacher
      ComboBox9.Visible = False 'Cacher
      End Select
        Select Case ComboBox4
      Case "Autres"
      ComboBox6.Visible = False 'Cacher
      ComboBox7.Visible = True 'Afficher
      ComboBox8.Visible = False 'Cacher
      ComboBox9.Visible = False 'Cacher
      End Select
        Select Case ComboBox4
      Case "Matèriels"
      ComboBox6.Visible = False 'Cacher
      ComboBox7.Visible = False 'Cacher
      ComboBox8.Visible = True 'Afficher
      ComboBox9.Visible = False 'Cacher
      End Select
        Select Case ComboBox4
      Case "Distributeurs"
      ComboBox6.Visible = False 'Cacher
      ComboBox7.Visible = False 'Cacher
      ComboBox8.Visible = False 'Cacher
      ComboBox9.Visible = True 'Afficher
      End Select
    End Sub
    par

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub ComboBox5_Change()
    TextBox1.Visible = False: TextBox2.Visible = False
    Controls("textbox" & (ComboBox5.ListIndex + 1)).Visible = True
     End Sub
    Private Sub combobox4_change()
    For i = 6 To 9: Controls("ComboBox" & (i)).Visible = False: Next i
    Controls("ComboBox" & (ComboBox4.ListIndex + 6)).Visible = True
    End Sub
    oubli de mettre .value a tes textbox a la fin autrement sur les cellules petit triangle indiquant une erreur idem combobox

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    .Cells(DerLig, 13) = TextBox1.Value
            .Cells(DerLig, 14) = TextBox2.Value

Discussions similaires

  1. [XL-2010] Alimenter Combobox dans Userform avec noms définis variables
    Par aethangaia dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 27/06/2014, 14h24
  2. [XL-2007] Attribuer numero suivant choix combobox dans userform
    Par stephadm dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 17/09/2011, 20h36
  3. [XL-2003] Pb avec les valeurs sortantes COmbobox dans Userform
    Par FrankCF dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 06/08/2011, 17h45
  4. [XL-2003] Mise en forme ComboBox dans UserForm
    Par Lufia dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 22/10/2009, 20h59
  5. (VBA-E) Problème combobox dans userform
    Par gringo69 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 27/06/2006, 18h28

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