ComboBox: Valeur à afficher à partir d'une plage défini par nom

Résolu

xaveria -
xaveria - 19 sept. 2013 à 21:29

Bonjour,

J'ai un formulaire qui se trouve dans une feuille de mon classeur Excel (feuil1), et toutes les listes de choix que je veux avoir sont dans une autre feuille (feuil3). Toutes ces listes ont des noms définis dans mon classeur.

Dans mon formulaire, je veux avoir une liste déroulante de choix, donc j'ai utilisé le ComboBox, mais je n'arrive pas à faire afficher les valeurs voulues lorsque je clique sur la flèche de la liste dans le formulaire. Je ne suis pas certaine de l'évènement à choisir pour y arriver. La liste reste vide.

Voici ce qui se trouve présentement dans le code:
Private Sub cbxSecteur_change()

Dim ChoixSecteurs As String
ChoixSecteurs = Feuil3.Range("Secteurs").Value

CbxSecteur.Rowsource = ChoixSecteurs

End Sub

Afficher la suite

A voir également:

Propriétés combobox vba
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Excel compter cellule couleur sans vba - Guide
Affichez les propriétés du fichier que vous voyez sur l’écran ci-dessous. qui est l’auteur du fichier ? ✓ - Forum Windows 10
Autofill vba ✓ - Forum Excel
Incompatibilité de type vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

J'ai un formulaire qui se trouve dans une feuille de mon classeur Excel (feuil1) Userform ou controls sur feuille de calcul ???????

xaveria

J'ai un bouton de commande sur la feuil1 du Classeur Excel, qui ouvre un Useform (FormulaireBox) dans lequel je voudrais que les ComboBox aient des listes déroulantes qui elles se trouvent dans ma feuil3 d'excel (ex nom de la plage = Secteurs)

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Re,

'VBA Userform

Private Sub UserForm_Activate()
Dim pt As Integer, nb As Integer

'raz liste
ComboBox1.Clear
'nombre de valeurs dans la liste
nb = Worksheets("feuil3").Range("Secteurs").Cells.Count
'boucle d'ecriture valeur dans combobox
For pt = 1 To nb
ComboBox1.AddItem (Worksheets("feuil3").Range("Secteurs").Cells(pt, 1))
Next pt
End Sub

'ou

Private Sub UserForm_Activate()
ComboBox1.Clear
'remplissage par adresse de la plage
ComboBox1.RowSource = Worksheets("feuil3").Range("A1:A5").Address
End Sub

'ou

'Directement dans la propriete RowSource de la Combobox1: Secteurs

A+

xaveria

Ça ne fonctionne pas, j'ai ajusté le nom de la combobox pour le nom de ma combobox, et le A1:A5 pour le nom de ma plage, et ça ne fonctionne pas, j'ai un message d'erreur qui apparaît à l'écran, l'indice n'appartient pas à la sélection : Il ne semble pas trouvé ma plage dans ma feuille excel qui se nomme "Secteurs"

Private Sub UserForm_Activate()
CbxSecteur.Clear
'remplissage par adresse de la plage
CbxSecteur.RowSource = Worksheets("feuil3").Range("Secteurs").Address

End Sub

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Re,

CbxSecteur.RowSource = Worksheets("feuil3").Range("Secteurs").Address

Ne marche pas, c'est pour cela que je ne l'avais pas mis,mais en passant par une variable intermediare c'est ok, comme quoi !!!

Private Sub UserForm_Click()
    x = Worksheets("feuil1").Range("liste").Address
    ComboBox1.RowSource = x
End Sub

A+

f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Ai oublie le nom de la feuille:
ex:
Private Sub UserForm_Activate()
x = "feuil3!" & Worksheets("feuil3").Range("liste2").Address
ComboBox1.RowSource = x
End Sub

Discussions similaires

[VBA] Propriété ComboBox

comment savoir qui est l'auteur d'un fichier

Erreur d'exécution 13 Incompatibilité de type

VBA excel : résoudre problème de capacité.

selectionner un item dans une combobox

Discussions similaires

Newsletters