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 :

[VBA-E] alimenter combo depuis une zone de cellules (non determinée)


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    402
    Détails du profil
    Informations personnelles :
    Âge : 44
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Juin 2006
    Messages : 402
    Points : 346
    Points
    346
    Par défaut [VBA-E] alimenter combo depuis une zone de cellules (non determinée)
    Bonjour
    j'ai un pb sous excel
    je dois afficher un form avec une combo qui prendra en valeur le contenu de une ou plusieurs cellules
    je connais juste la cellule du premier contenu.

    La dernière sera la cellule sans rien - 1 ligne.

    Comment parcourir cette zone?
    Comment alimenter la liste déroulante?
    et comment bloquer la liste au choix des valeurs? (le limit to list d'access?)

    merci de vos eclaircissements

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    pour bloquer la liste de valeur .. tu as la propriété sytle à mettre à fmStyleDropDownList (dans l'éditeur VBE , ou par le code comme ci dessous..)

    la propriété RowSource permet quand à elle de définir la zone de donnèe..:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Private Sub UserForm_Initialize()
    Dim c As Range
    ' Défini propriété style
    ComboBox1.Style = fmStyleDropDownList
    'Défini cellule initiale
    Set c = ThisWorkbook.Sheets("Feuil1").Range("A1")
    ComboBox1.RowSource = c.Parent.Name & "!" & Range(c, c.End(xlDown)).Address
    End Sub

Discussions similaires

  1. [VBA-W]Inserer et modifier une Zone de texte
    Par marsupoilu dans le forum VBA Word
    Réponses: 5
    Dernier message: 17/04/2019, 09h22
  2. lier un combo avec une zone de texte
    Par joss56 dans le forum IHM
    Réponses: 2
    Dernier message: 28/11/2006, 16h11
  3. [VBA Excel] Parcourir une zone de cellules
    Par Jipété dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 27/11/2006, 09h38
  4. Requete insert into depuis une zone de liste
    Par fredhali2000 dans le forum Requêtes et SQL.
    Réponses: 9
    Dernier message: 07/06/2006, 14h23
  5. [VBA-E]Comment vérifier qu'une zone de texte existe?
    Par Elstak dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 04/04/2006, 14h19

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