Discussion :

[john78]

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.

[joe.levrai]

Bonjour,

sans boucle, on transfère directement la liste complète

Code :

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

1
2
3
    With Me
        .ComboBox2.List = .ComboBox1.List
    End With

ta méthode actuelle plante tout simplement car tu sembles passer par la propriété RowSource pour alimenter combobox1 ?

[john78]

Bonjour Joe,

Merci de ton retour si rapide.

Non, la méthode que j'utilises pour alimenter ma combobox avec la propriété RowSource marche parfaitement.
J'ai exposé ce code seulement pour montrer l'alimentation de la combo à l'initialisation du userform (pour simple information) et elle n'a rien à voir avec mon anomalie qui concerne seulement la partie de code de (la tentative de) sauvegarde.

En revanche je viens d'essayer ta méthode du With en l'appliquant à ma recopie de sauvegarde soit le code suivant :

Code :

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

1
2
3
With Me
         .ADres_Mail_ComboBox_SVG.List = .ADres_Mail_ComboBox1.List
End With

et je me prends toujours une anomalie :

Erreur d'exécution '70' :
Permission refusée.

Mince alors qu'est ce qui se passe ?

Par ailleurs, quelle est le rôle ici de l'utilisation du With Me / End With car j'avais (avant) de créer ce post inscrit le même code mais sans l'usage du With et çà plantait bien sur.

Merci de m'aider car là je reste complètement bloqué.

Bonne journée à tous.

CDLT.

John78.