Discussion :

[Coxtox]

Bonjour à tous,

Alors voilà, après quelques recherches je n'arrive pas à trouver de solutions.

Je souhaiterai remplir un comboBox par les modalités distinctes d'une variable situé sur un autre onglet.

Le Combobox est situé directement sur l'onglet "Détails Personnes Normes" (je ne souhaite pas passé par un UserForm). J'aimerai qu'il affiche dans la liste déroulante les valeurs distinctes de la colonne C de l'onglet "Sélection globale".

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
 
Private Sub ComboBoxMetier2_Change()
Dim cell As Range
 
'Supprime les données existantes dans le ComboBox
    Worksheets("Détails Personnes Normes").ComboBoxMetier2.Clear
 
    'Boucle sur les cellules de la plage C2:C1000 pour
    'alimenter le ComboBox
    For Each cell In Worksheets("Sélection globale").Range("C2:C1000")
        Worksheets("Détails Personnes Normes").ComboBoxMetier2 = cell
        'remplissage sans doublon
        If Worksheets("Détails Personnes Normes").ComboBoxMetier2.ListIndex = -1 Then _
            Worksheets("Détails Personnes Normes").ComboBoxMetier2.AddItem cell
    Next cell
 
End Sub

Cependant rien ne s'affiche, je dois passer à côté de qqch ...

Je vous remercie par avance !

Cordialement.

[parmi]

Bonjour,

Tu inscris ton code dans l'événement Change() du combobox.
Cet événement sert à intercepter la sélection faite sur ce contrôle, pas pour le remplir...

Mets ton code dans une autre macro.
Ça pourrait être à l'ouverture du classeur Workbook_Open() ou sur appel en passant par un bouton.

[Coxtox]

Je te remercie pour l'info !

Ça marche mieux via un bouton effectivement !

Cordialement