Discussion :

[ivanG]

Bonjour !

Je suis bloqué sur un problème d'affichage de ComboBox.

J'ai un menu UseForm avec plusieurs Multipage.
Sur l'une des MultiPage j'ai fait une liste déroulante (ComboBox si je ne me trompe pas).
Je voudrais que ce ComboBox affiche toujours la même liste déroulante (issu de la feuille "HISTORIQUE_JOUR") quelque soit la feuille ou je me trouve.

J'ai déja réalisé un code mais malheureusement la liste déroulante s'affiche uniquement si la feuille "HISTORIQUE_JOUR" est sélectionnée...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
Dim i As Integer
    'Récupère les données de la colonne...
    For i = 8 To Sheets("HISTORIQUE_JOUR").Range("P65000").End(xlUp).Row
        ComboBox1 = Sheets("HISTORIQUE_JOUR").Range("P" & i)
        '...et filtre les doublons
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("P" & i)
 
        'End If
    Next i
End Sub

Avez vous une idée ?

Merci d'avance !

[Philippe Tulliez]

Bonjour,
A la première lecture de ta procédure, le problème provient de la ligne 7 de ton code.

Code :

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

ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("P" & i)

En effet tu ne précises par l'objet parent (la feuille) de l'objet Range alors que dans les autres lignes, tu le fais. Il est donc normal que la lecture se fasse sur les cellules P & I de la feuille active.
Et pour être encore plus strict tu devrais préciser également le classeur sinon si dans l'avenir deux classeurs sont ouverts, tu risques d'avoir un message d'erreur si la feuille nommée [HISTORIQUE_JOUR] n'est pas présente sur le classeur actif ou pire encore lire les cellules de la feuille du même nom dans ce classeur.

[ivanG]

Effectivement... C'est mieux avec.

Merci bien pour le coup de pouce !

Bonne journée