Bonjour,
J'utilise depuis quelque temps la macro suivante pour remplir une liste avec un combo qui contient les entêtes des colonnes.

l'objectif est de remplir la liste avec les données de la colonne selectionnée avec le combo.
Et aujourd'hui tout marche bien pour toutes les colonnes de A à O, mais ça coince à la colonne M qui contient des valeurs identique au autres colonnes.
Ca coince quelque soit les données ou l'entête de cette colonne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub cboParametres_Change()
    Dim MonDico
    Dim c, Col As String
    Col = cboParametres    'plages nommées
    Set MonDico = CreateObject("Scripting.Dictionary")
    For Each c In Range(Col)
        If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
    Next c
    Me.lstParametres.List = MonDico.Items
End Sub
Auriez vous une idée du problème ?

Rebonjour,
J'oublie le principal, ça bloque sur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 For Each c In Range(Col)
j'ai le message :
"Erreur d'exécussion '1004' :
La méthode 'Range' de l'objet'_Glibal' a échoué."

Merci