Discussion :

[dumphi51]

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

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

[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.

[dumphi51]

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

[Philippe Tulliez]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...

[dumphi51]

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 :

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

[Pierre Fauconnier]

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

Pile poil ce qu'expliquait Philippe ^^

[Philippe Tulliez]

Bonjour Pierre,

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