Discussion :

[MarcelG]

Bonjour le Forum,

Sur un userform, j'ai placé un bouton qui rend visible une combobox jusque là invisible

Le code de ce bouton est bien entendu intégré à l'userform

Code :

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

1
2
3
4
5
6
With control1  
.Visible = True
.Clear
.RowSource = "Liste"
.AddItem "Nouveau"
End With

Ici "Liste" est un champ nommé
Si je mets la ligne RowSource en commentaire, aucun problème.
Si je mets celle AddItem, aucun problème

Par contre, si je code sans commentaire, alors un message d'erreur "70 Accès refusé" apparaît sur la ligne AddItem. Il y a donc incompatibilité entre ces 2 lignes.

Bien entendu, j'ai tenté une variante en codant comme indiqué par Silkyroad dans son tutoriel, c'est à dire en balayant "Liste" et utiliser AddItem, et le code fonctionne alors bien.

Mais pourquoi cette incompatibilité décrite plus haut ?

Merci pour votre réponse.

Cordialement.

Marcel

[ESVBA]

Parce que la source est définie définitivement en utilisant une plage nommée.
La liste est liée à la plage nommée. On ne peut rien y ajouter.

Il faut ajouter les valeurs à la liste et réaffecter la nouvelle plage de cellule à "RowSource".

Si la plage nommée est déclarée comme une "liste" sous 2003 (je n'ai plus le terme exacte sous 2003 mais c'est l'équivalent à un "tableau" sous 2007), le problème devrait se résoudre tout seul.

ESVBA

[MarcelG]

Merci pour cette explication. ESSVBA

Bon week-end

Marcel