Alimenter plusieurs combobox (userforme) partir d'un onglet vba
Résolu
seb3386
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
seb3386 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
seb3386 Messages postés 3 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je travaille à la réalisation d'un formulaire sur excel en utilisant des userforms (passage d'un Userform à un autre avec des boutons "Next" et "Back").
Sur un des userforms (Userform03), je souhaiterais insérer des comboboxs (au nombre de 9), qui s'alimentent à partir de données dans un onglet de mon fichier excel, à la fois :
- en supprimant les doublons
- et en présentant les données de la combobox par ordre alphabétique (car les données dans la feuille excel ne sont pas triées et ne doivent pas l'être).
Pour remplir ma Combobox1 sur mon Userform03, voici ce que j'ai fait:
Cela marche plutôt bien pour une seule combobox. Mais c'est dès que je cherche à remplir les autres Combobox que cela se complique.
J'ai essayé de dupliquer (autant de fois qu'il y a de combobox) la procédure en créant de nouvelles variables (dans le même sub) mais le passage du Userform02 au Userform03 ne marche pas. J'ai le message d'erreur suivant lorsque je tente de passer du Userform02 au Userform03 : "Erreur d'execution '9': l'indice n'appartient pas à la sélection".
Lorsque je clique sur débogage, c'est la ligne suivante ( présente dans le code du Userform2) qui est surlignée en jaune et à la source du bug (en gras et soulignée ci-dessous) :
Auriez-vous une solution à mon problème, ou une autre alternative afin de remplir plusieurs combobox dans un userform ?
Merci beaucoup pour votre attention.
Sébastien
Je travaille à la réalisation d'un formulaire sur excel en utilisant des userforms (passage d'un Userform à un autre avec des boutons "Next" et "Back").
Sur un des userforms (Userform03), je souhaiterais insérer des comboboxs (au nombre de 9), qui s'alimentent à partir de données dans un onglet de mon fichier excel, à la fois :
- en supprimant les doublons
- et en présentant les données de la combobox par ordre alphabétique (car les données dans la feuille excel ne sont pas triées et ne doivent pas l'être).
Pour remplir ma Combobox1 sur mon Userform03, voici ce que j'ai fait:
Private Sub UserForm_Initialize()
Dim sd As Object
Dim str As Range
Dim cel As Range
Dim tbl As Variant
Dim i As Integer
Dim j As Integer
Dim temp As Variant
Set sd = CreateObject("Scripting.Dictionary")
With Sheets("Entities") 'feuille sur laquelle se trouvent mes données qui permettent d'alimenter ma combobox
Set str = .Range(Range("C2"), Range("C65536").End(xlUp)) 'définit la plage de données
End With
For Each cel In str
sd(cel.Value) = "" 'alimente la liste sans doublons
Next cel
tbl = sd.keys 'définit le tableau des valeurs sans doublons
'tri alphabétique
For i = 0 To UBound(tbl)
For j = 0 To UBound(tbl)
If tbl(i) < tbl(j) Then
temp = tbl(i)
tbl(i) = tbl(j)
tbl(j) = temp
End If
Next j
Next i
Me.ComboBox1.List = tbl
End Sub
Cela marche plutôt bien pour une seule combobox. Mais c'est dès que je cherche à remplir les autres Combobox que cela se complique.
J'ai essayé de dupliquer (autant de fois qu'il y a de combobox) la procédure en créant de nouvelles variables (dans le même sub) mais le passage du Userform02 au Userform03 ne marche pas. J'ai le message d'erreur suivant lorsque je tente de passer du Userform02 au Userform03 : "Erreur d'execution '9': l'indice n'appartient pas à la sélection".
Lorsque je clique sur débogage, c'est la ligne suivante ( présente dans le code du Userform2) qui est surlignée en jaune et à la source du bug (en gras et soulignée ci-dessous) :
Private Sub CommandButton1_Click()
'Passer au UserForm03
Unload Me
UserForm03.Show
End Sub
Auriez-vous une solution à mon problème, ou une autre alternative afin de remplir plusieurs combobox dans un userform ?
Merci beaucoup pour votre attention.
Sébastien
A voir également:
- Alimenter plusieurs combobox (userforme) partir d'un onglet vba
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Rouvrir un onglet fermé - Guide
- Comment faire une recherche à partir d'une photo - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Onglet disposition excel ✓ - Forum Word
6 réponses
Bonjour,
Difficile de comprendre car cela devrait fonctionner.
Une question :
OK j'ai pas bien lu donc oui il y a du code et c'est bien la procédure initialize qui provoque cela donc Est-ce que le nom de la feuille "Entities" est bien orthographié ?
Les autres combos sont remplies avec des données se trouvant dans d'autres feuilles ?
Je pense qu'il y a un nom de feuille incorrect dans la macro initialize
Cordialement,
Difficile de comprendre car cela devrait fonctionner.
Une question :
OK j'ai pas bien lu donc oui il y a du code et c'est bien la procédure initialize qui provoque cela donc Est-ce que le nom de la feuille "Entities" est bien orthographié ?
Les autres combos sont remplies avec des données se trouvant dans d'autres feuilles ?
Je pense qu'il y a un nom de feuille incorrect dans la macro initialize
Cordialement,
Bonjour,
Ton problème vient du fait que ton code est dans:
Private Sub UserForm_Initialize()
il faut le mettre dans:
Private Sub UserForm_Activate()
comme ceci
Ton problème vient du fait que ton code est dans:
Private Sub UserForm_Initialize()
il faut le mettre dans:
Private Sub UserForm_Activate()
comme ceci
Private Sub UserForm_Activate()
Dim sd As Object
Dim str As Range
Dim cel As Range
Dim tbl As Variant
Dim i As Integer
Dim j As Integer
Dim temp As Variant
Set sd = CreateObject("Scripting.Dictionary")
With Sheets("Entities") 'feuille sur laquelle se trouvent mes données qui permettent d'alimenter ma combobox
Set str = .Range(Range("C2"), Range("C65536").End(xlUp)) 'définit la plage de données
End With
For Each cel In str
sd(cel.Value) = "" 'alimente la liste sans doublons
Next cel
tbl = sd.keys 'définit le tableau des valeurs sans doublons
'tri alphabétique
For i = 0 To UBound(tbl)
For j = 0 To UBound(tbl)
If tbl(i) < tbl(j) Then
temp = tbl(i)
tbl(i) = tbl(j)
tbl(j) = temp
End If
Next j
Next i
Me.ComboBox1.List = tbl
With Sheets("Entities") 'feuille sur laquelle se trouvent mes données qui permettent d'alimenter ma combobox
Set str = .Range(Range("D2"), Range("C65536").End(xlUp)) 'définit la plage de données
End With
For Each cel In str
sd(cel.Value) = "" 'alimente la liste sans doublons
Next cel
tbl = sd.keys 'définit le tableau des valeurs sans doublons
'tri alphabétique
For i = 0 To UBound(tbl)
For j = 0 To UBound(tbl)
If tbl(i) < tbl(j) Then
temp = tbl(i)
tbl(i) = tbl(j)
tbl(j) = temp
End If
Next j
Next i
Me.ComboBox2.List = tbl
End Sub
mais le passage du Userform02 au Userform03 ne marche pas.
Utilise ceci:
les noms des UserForm sont a adapter
Utilise ceci:
Private Sub CommandButton1_Click()
lancementUSF
UserForm2.Hide
End Sub
'http://silkyroad.developpez.com/VBA/UserForm/
Sub lancementUSF()
Dim sVariable As String
sVariable = "UserForm1"
VBA.UserForms.Add(sVariable).Show
End Sub
les noms des UserForm sont a adapter
Bonjour Pilas, Bonjour cs_Le Pivert, Bonjour le forum,
Merci beaucoup pour vos réponses.
Merci Pilas:
Le nom de la feuille "Entities" est bien orthographié, j'ai bien vérifié.
Les autres combo sont censées être, pour une partie, alimentées par la même feuille, et pour une autre partie par une autre feuille excel.
J'ai bien vérifié les orthographes, mais cela ne vient pas de là.
Merci cs_Le Pivert:
Je viens de remplacer
J'ai maintenant une autre erreur. Elle provient de la définition de la plage. La ligne surlignée est la ligne numéro 13 dans le message de cs_Le Pivert. Je vais essayer de chercher d'où cela provient, mais je ne vois pas bien...
Merci beaucoup pour vos réponses.
Merci Pilas:
Le nom de la feuille "Entities" est bien orthographié, j'ai bien vérifié.
Les autres combo sont censées être, pour une partie, alimentées par la même feuille, et pour une autre partie par une autre feuille excel.
J'ai bien vérifié les orthographes, mais cela ne vient pas de là.
Merci cs_Le Pivert:
Je viens de remplacer
Private Sub UserForm_Initialize()par
Private Sub UserForm_Activate()
J'ai maintenant une autre erreur. Elle provient de la définition de la plage. La ligne surlignée est la ligne numéro 13 dans le message de cs_Le Pivert. Je vais essayer de chercher d'où cela provient, mais je ne vois pas bien...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question