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 + cellules fusionnées [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut ComboBox + cellules fusionnées
    Bonjour à tous,

    Voilà, j'aimerai récupérer des valeurs dans une combobox. Ces valeurs se trouve sur une page Grille_Q et les données sont toutes dans la colonne A. J'arrive à récupérer les valeurs grâce à la propriété rowsource. Toutefois, pour des raisons de lisibilité dans la feuille Grille_Q, j'ai dû fusionner les cellules et du coup, ça fait comme des sections. Par exemple dans la ligne 8 qui est fusionnée jusqu'à la ligne 18 de la colonne A, j'ai une valeur "blabla". Du coup, dans ma combobox, j'ai la première ligne qui s'affiche bien, et puis en dessous les 17 lignes suivantes, ben c'est du blanc. Alors que j'aimerai que ça passe à la ligne 19 où il y a marqué "blabla2"

    Je sais pas si je me fais bien comprendre, n'hésitez pas si vous n'avez strictement rien compris.

    Merci

    Flo

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Bonjour
    Normal avec le Rowsource qui prend en compte chaque cellule
    Pour ton cas, tu peux passer par une boucle (propriété RowSource vide)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Private Sub UserForm_Initialize()
    Dim i As Long
     
    With Sheets("Grille_Q")
        For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
            If .Range("A" & i).Value <> "" Then Me.ComboBox1.AddItem .Range("A" & i).Value
        Next i
    End With
    End Sub

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2011
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2011
    Messages : 21
    Par défaut
    Impec, ça marche du feu de dieu

    Merci

    Flo

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

Discussions similaires

  1. [VBA-E] Compter les cellules fusionnées
    Par Korleone dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 18/08/2017, 16h09
  2. [VBA-Exel] Adresse d'une cellule fusionnée
    Par gloll dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 03/08/2006, 09h25
  3. Réponses: 2
    Dernier message: 21/06/2006, 17h57
  4. [VBA-W] Cellules fusionnées
    Par TheEwook dans le forum VBA Word
    Réponses: 1
    Dernier message: 24/04/2006, 14h06
  5. [VBA]Trouver les cellules fusionnées et autres
    Par Invité dans le forum Macros et VBA Excel
    Réponses: 24
    Dernier message: 23/01/2006, 13h12

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