Bonjour,

Voilà je souhaite tout simplement dupliquer une combobox dans une autre de sauvegarde pour des besoins particuliers liés à mon projet et je rencontre ce satané problème que je n'arrive pas à résoudre d'où mon post :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
For i = 0 To ADres_Mail_ComboBox1.ListCount - 1
       ADres_Mail_ComboBox_SVG.List(i) = ADres_Mail_ComboBox1.List(i)
Next i
Au niveau de l'exécution de la ligne 2 j'ai l'anomalie suivante sur l'expression à gauche du signe "="
Erreur d'exécution 70 :
Impossible de définir la propriété List. Accès refusé

Franchement je ne comprends vraiment pas quelle est l'origine ou la raison de ce blocage.

Je précise que la valeur de cette expression est pourtant correctement valorisée par ailleurs puisqu'à l'initialisation de cette combobox au niveau de ma procédure Initialize_Useform tout c'est passé correctement au niveau du bloc suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
With Sheets("Adresses Mails").Range("A2") 'On intègre dans notre Combox SVG toutes les valeurs de la colonne à partir de A2
     ADres_Mail_ComboBox_SVG.RowSource = Range(.Cells, .End(xlDown)(1, 1)).Address(External:=True)
End With
Un grand merci à vous si vous pouvez m'aider à me dépatouiller de cette erreur.

John78.