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 :

Création d'une combobox auto rempli à partir d'une liste excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Inscrit en
    Novembre 2011
    Messages
    109
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations forums :
    Inscription : Novembre 2011
    Messages : 109
    Par défaut Création d'une combobox auto rempli à partir d'une liste excel
    Bonjour à tous, alors voila, je cherche à crée une combobox qui se remplirai à partir de la feuille nommé "Fin" de mon classeur, et particulierement à partir de la colonne E et de la ligne 4 jusqu'a la derniere cellule rempli pour éviter à la macro de scanner toute la colonne.

    donc pour cela j'ai créé ma userform1, puis a l'intérieur ma combobox1 et je pensais écrire mon code pour faire ceci :

    declarer la variable finliste qui va stocker le numero de la ligne de la derniere cellule non vide de la colonne E
    ensuite je fais une boucle for de i = 4 to finliste, mais bon visiblement j'ai pas la bonne syntaxe, si vous pouviez me corriger?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
          Dim i
                    Dim finliste as integer
                    Sheets("Fin").Columns(E, E).Find("*", [C1], , , , xlPrevious).row
                    For i = 4 To finliste
                    UserForm1.ComboBox1.AddItem Sheets("Fin").Cells(i, 5)
                    Next
     
                    UserForm1.Label1.Caption = "Merci de renseigner le type du tube  " & produit
                    UserForm1.Show
    Derniere petite chose, ma userform est donc composé de cette combobox, et d'un bouton valider, j'aimerai obliger l'utilisateur à choisir une valeur dans la combobox, comme sa si la combobox est vide, le bouton valider ne ferme pas la userform, car derriere le bouton valider, il y a une vlookup à partir de la valeur du combobox, et si il n'y a pas de valeur, la macro plante...


    Merci


    merci

  2. #2
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Bonjour et bienvenue

    Tu peux utiliser une plage nommée Dynamique, à chaque ajout de valeurs consécutives, elle se redimensionnera.

    Nom : OrmonthDatazz2.jpg
Affichages : 226
Taille : 106,3 Ko

    ensuite tu mets un code du genre pour l'alimentation :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub Piste()
    Dim objPlageCible As Range
    Dim cell As Range
     
    Set objPlageCible = Worksheets("MaFeuille").Range("Parcellez")
    For Each cell In objPlageCible
        If cell.Value <> "DG-Solutions" Then cboNomParcelle.AddItem cell.Value
        'J'ai toujours une valeur neutre après la ligne de titre que je saute dans l'alim / plage dynamique pour éviter des pb sur liste vierge au départ etc....
        'ça ne va pas plus loin que la dernière cellule remplie dans la plage sans "trous"
    Next cell
     
    Set objPlageCible = Nothing
    End Sub
    Point 2 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Private Sub CommandButton1_Click()
    If ComboBox1.Value = "" Then MsgBox "Vous devez préalablement sélectionner un xxxx !": Exit Sub
    End Sub
    Cordialement,

    Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

    Didier

Discussions similaires

  1. Changer la valeur de combobox et textbox à partir d'une combobox
    Par ANTHOTJ dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 30/01/2015, 01h54
  2. Problème création d'un PDF en chinois, à partir d'une édition ReportBuilder
    Par pepito62 dans le forum Autres outils décisionnels
    Réponses: 2
    Dernier message: 25/11/2008, 20h28
  3. filtrer à partir d'une combobox
    Par jonathanoudelet dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 18/08/2008, 15h59
  4. [C#] Récupération de données à partir d'une combobox
    Par Choumy dans le forum Windows Forms
    Réponses: 10
    Dernier message: 09/02/2008, 17h51
  5. liste de choix remplie à partir d'une autre.
    Par don'de dans le forum Général JavaScript
    Réponses: 8
    Dernier message: 04/05/2007, 11h10

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