ComboBox à 2 colonnes

Version imprimable

Bonjour
Je souhaite alimenter une ComboBox à 2 colonnes avec le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub FCombo()
 
    Dim i As Integer
 
    Sheets("Event").Select
    Sheets("Event").Unprotect
        Sheets("Event").ComboBox1.Clear  ' ==> erreur
 
    LColCombo = Sheets("Inscriptions").Cells(6, Columns.Count).End(xlToLeft).Column
 
    For i = 8 To LColCombo
       Range("XFC" & i - 7) = Sheets("Inscriptions").Cells(6, i)
       Range("XFD" & i - 7) = Sheets("Inscriptions").Cells(3, i)
    Next
 
    RColCombo = Cells(Rows.Count, "XFC").End(xlUp).Row
 
    Sheets("Event").ComboBox1.ListFillRange = Sheets("Inscriptions").Range("XFC1:XFD" & RColCombo) '==> Erreur
 
End Sub

Pourriez-vous m'aider ?
Merci d'avance

05/09/2021, 10h14
Pierre Fauconnier

Salut.

J'ai de gros doutes sur une conception de classeur qui va chercher des valeurs en XFC et XFD. Je pense aussi que l'on pourrait simplifier ce code mais sans savoir ce que tu souhaites réaliser, il est malaisé de t'aider davantage.

Cela étant, voici un code qui pourrait convenir: Sheets("Event").ComboBox1.List = Sheets("Inscriptions").Range("XFC1:XFD" & RColCombo).Value
Perso, je travaillerais avec des tableaux structurés qui simplifieraient la démarche.
05/09/2021, 11h21
dumphi51

En fait il suffisait d'inclure un "=" :
Sheets("Event").ComboBox1.ListFillRange = Sheets("Inscriptions").Range("=XFC1:XFD" & RColCombo)
05/09/2021, 11h49
Philippe Tulliez
Bonjour,

Citation:

En fait il suffisait d'inclure un "=" :
Sheets("Event").ComboBox1.ListFillRange = Sheets("Inscriptions").Range("=XFC1:XFD" & RColCombo)

Vous êtes certain que cela fonctionne ?
Sauf erreur de ma part, la propriété ListFillRange est de type String donc d'après moi, il manque la propriété Address à l'objet Range

Petite illustration rapide
Le code ci-dessous, fonctionne
Code:

1 2 3 4 5 Private Sub Worksheet_Activate() With Me.ComboBox1 .ListFillRange = Me.Range("A2:C30").Address End With End Sub
Alors que .ListFillRange = Me.Range("A2:C30") renverra une erreur
05/09/2021, 12h03
Pierre Fauconnier

Salut Philippe,

Tout à fait. Mais il faut noter que Me.Range("A2:C30").Address pointera vers la feuille active. Il conviendra donc que dumphi51 préfixe l'adresse du nom de la feuille. Dans la mesure où le combobox s'appuie "forcément" sur une table de données, je ne saurais trop lui conseiller de travailler avec un tableau structuré et la propriété List du combo => Combobox1.List = range("MonTableau").value, par exemple...

Merci pour votre aide et vous vos méthodes sont certainement plus correctes et je testerais encore aujourd'hui. Néanmoins le code suivant fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub FCombo()
 
    Dim i As Integer
 
    Sheets("Event").Select
    Sheets("Event").Unprotect
        'Sheets("Event").ComboBox1.Clear
 
    LColCombo = Sheets("Inscriptions").Cells(6, Columns.Count).End(xlToLeft).Column
    j = 1
 
    For i = 7 To LColCombo Step 3
       Range("X" & j) = Sheets("Inscriptions").Cells(6, i)
       Range("Y" & j) = Sheets("Inscriptions").Cells(3, i)
    j = j + 1
    Next
 
    RColCombo = Cells(Rows.Count, "X").End(xlUp).Row
 
    Sheets("Event").ComboBox1.ListFillRange = "=X1:Y" & RColCombo
 
 
End Sub

Bien à voue et bon dimanche

05/09/2021, 12h13
Pierre Fauconnier

Citation:

Sheets("Event").ComboBox1.ListFillRange = "=X1:Y" & RColCombo

Pile poil ce qu'expliquait Philippe ^^
05/09/2021, 13h09
Philippe Tulliez

Bonjour Pierre,

Citation:

Mais il faut noter que Me.Range("A2:C30").Address pointera vers la feuille active. Il conviendra donc que dumphi51 préfixe l'adresse du nom de la feuille. Dans la mesure où le combobox s'appuie "forcément" sur une table de données, je ne saurais trop lui conseiller de travailler avec un tableau structuré

Je suis entièrement d'accord avec toi. J'ai écrit une réponse rapide pour mettre le doigt sur le fait que cela ne pouvait fonctionner comme l'initiateur de la discussion l'affirmait.

L'idéal, étant d'ajouter évidemment l'argument External avec comme valeur True pour éviter les problèmes pour le cas fort probable où la source de données du ComboBox se trouverait sur une autre feuille