Une liste commune à plusieurs ComboBox

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Magic_Doctor

Magic_Doctor

XLDnaute Barbatruc
Supporter XLD
Bonjour,

J'ai une liste de produits divers que je peux enrichir à ma guise.
Supposons, qu'à un moment donné, il y ait dans cette liste :

Huile de croton
Huile de sésame
Huile de ricin
Glycérine
Propylène glycol
Bave de crapaud
Septisol
Extrait d'aloès
Larmes de crocodile

Sur la feuille il y a plusieurs ComboBox, supposons 4 (mais il se peut que par la suite j'en rajoute).
Chacune de ces ComboBox puise sa source dans la liste ci-dessus.
Je choisis un item dans la 1ère ComboBox : cet item disparaît de la liste des autres ComboBox (2, 3 et 4).
Je choisis un item dans la 2ème ComboBox : cet item disparaît de la liste des autres ComboBox (1, 3 et 4).
Et ainsi de suite.
Supposons maintenant que je décide de choisir un autre item dans la liste de la 1ère ComboBox.
L'item précédemment choisi dans cette liste réapparaît alors dans les listes des autres ComboBox.
En somme, faire en sorte qu'il soit impossible de choisir par inadvertance plusieurs fois un même item.

Merci d'avance pour l'aide.
 
Trier par date Trier par votes
Re : Une liste commune à plusieurs ComboBox

Rebonsoir BOISGONTIER,

C'est presque parfait. Mais supposons que l'on veuille faire marche arrière, c'est-à-dire revenir sur un ComboBox (par exemple le 1er) pour rectifier le choix. Dans sa liste figure toujours les items des 2 autres ComboBox. L'idéal étant que chaque fois que l'on choisit un item dans la liste d'un ComboBox, cet item disparaisse des listes des autres ComboBox, et si l'on rectifie le choix, non seulement le nouveau choix disparaîtra des listes des autres ComboBox, mais le précédent choix sera alors réintégré dans les listes des autres ComboBox. Ainsi on est sûr d'éviter de sélectionner par inadvertance plusieurs fois le même item et d'éventuellement revenir sur sa sélection en pouvant choisir tous les items encore disponibles.
 
Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Bonjour,

Voir pj

Code: 
Dim liste, n
Private Sub UserForm_Initialize()
    n = 4
    creelistedispo
End Sub

Sub creelistedispo()
  Set f = Sheets("BD")
  Set liste = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("a2:a" & f.[a65000].End(xlUp).Row).Value
    liste(c) = ""
  Next
  For i = 1 To n
    If Me("combobox" & i).Value <> "" Then liste.Remove (Me("combobox" & i).Value)
  Next i
  For i = 1 To n: Me("ComboBox" & i).List = liste.keys: Next
End Sub

Private Sub ComboBox1_Click()
  creelistedispo
End Sub

Private Sub ComboBox2_Click()
  creelistedispo
End Sub

Private Sub ComboBox3_Click()
  creelistedispo
End Sub

Private Sub ComboBox4_Click()
  creelistedispo
End Sub

JB
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Bonjour BOISGONTIER,

Tout d'abord merci pour ta diligence et ton efficacité. C'est impécable !
Ce n'est pas que je veuille être plus royaliste que le Roi, mais dans ma feuille je ne voudrais avoir que des ComboBox et ne pas avoir à faire appel à un USF pour y accéder.
En conséquence j'ai d'abord essayé de comprendre tes routines qui, je dois l'avouer, me sont encore en partie obscures, par exemple le très mystérieux Set liste = CreateObject("Scripting.Dictionary").
J'ai tenté de les modifier afin de court-circuiter l'USF et là CATA plus rien ne marche (le contraire m'aurait franchement étonné, vu mon niveau !).
Je joins le classeur avec son unique feuille modifiée.

Mais encore une fois merci.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Re,

Super !

Comme Set f = Sheets("BD"), je me suis permis d'alléger la macro. Mais ai-je bien fait ? Bon, en tout cas ça marche.
Aimant bien Option Explicit, je suis bien obligé alors de déclarer toutes les variables. Pour f j'ai écrit :
f As Sheets --> ça ne marche pas
f As Object --> ça ne marche pas
Comment donc déclarer f ?

Enfin, derniers points de détail.
1/ Quand on ouvre le classeur, automatiquement les listes des ComboBox sont réinitialisées et en conséquence, par défaut, une case vierge est sélectionnée. Comment s'y prendre pour qu'à l'ouverture du classeur tous les derniers items sélectionnés des ComboBox (avant fermeture précédente du classeur) soient toujours sélectionnés ?
2/ Quand on choisit un item dans un ComboBox, il reste toujours une case vide en fin de liste. Comment y remédier afin qu'un étourdi ne la sélectionne par inadvertance ?
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Voir pj

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Salut Magic_Doctor 🙂, Jacques 🙂, le Forum

Le fichier de JB modifié selon ton besoin si j'ai bien compris

Il suffit de définir un Nom ListeItems3 Par exemple et d'y coller cette formule

Code: 
=DECALER(ListeItems2;;;SOMME((ListeItems2<>"")*1))
et dans le code de Jacques remplacer

Code: 
  For Each c In f.Range("B4:B" & f.[B65000].End(xlUp).Row).Value
    liste(c) = ""
  Next
par

Code: 
  For Each c In F.Range("ListeItems3").Value
    liste(c) = ""
  Next
EDITION: @ JB... y-a-t'il une explication particulière pour continuer à utiliser Sub auto_open() en lieu et place de Private Sub Workbook_Open() 🙂
Bonne Journée
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Une liste commune à plusieurs ComboBox

Bonjour,

>il persiste toujours un dernier item vide.Peut-on l'éviter ?

Code: 
  For Each c In f.Range("B4:B" & f.[B65000].End(xlUp).Row).Value
   If Len(c) > 0 Then liste(c) = ""   ' ne prend pas les cellules vides
  Next

>y-a-t'il une explication particulière pour continuer à utiliser Sub auto_open() en lieu et place de Private Sub Workbook_Open()

Non.

Code: 
Sub auto_open()
  creelistedispo
End Sub

Sub creelistedispo()
  Set f = Sheets("BD")
  Set liste = CreateObject("Scripting.Dictionary")
  For Each c In f.Range("B4:B" & f.[B65000].End(xlUp).Row).Value
    If Len(c) > 0 Then liste(c) = ""
  Next
  For Each c In f.OLEObjects
    If TypeName(c.Object) = "ComboBox" Then
     If c.Object <> "" Then liste.Remove c.Object.Value
    End If
  Next c
  For Each c In f.OLEObjects
    If TypeName(c.Object) = "ComboBox" Then c.Object.List = liste.keys
  Next c
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

JPierre44
  • Question Question
Microsoft 365 utilisation du dropdown avec une combobox ewcel
Réponses
13
Affichages
622
sylvanu
sylvanu
A
  • Question Question
XL 2010 Problème ou alternative à SOMPRODUCT en VBA
Réponses
14
Affichages
748
bruno lemaire
B
oguruma
POWERQUERY :: Remplacements multiples dans plusieurs colonnes avec traitements de nettoyage et de conversion de casse
Réponses
0
Affichages
224
oguruma
oguruma
N
  • Question Question
Microsoft 365 Liste déroulante (combobox) en fonction d'une séquence de valeurs
Réponses
13
Affichages
812
Neofalken
N
A
  • Résolu(e)
XL 2016 Alimentation d'un fichier selon données sélectionnées via une ComboBox
Réponses
3
Affichages
692
Aldonanou
A
R
  • Question Question
Microsoft 365 plusieurs combobox sur une même feuille
Réponses
1
Affichages
556
job75
job75
Magic_Doctor
  • Question Question
XL 2010 Trier un dictionnaire par ordre alphabétique
2
Réponses
22
Affichages
4 K
Magic_Doctor
Magic_Doctor
Magic_Doctor
  • Question Question
XL 2010 Problème pour charger un ComboBox au moyen d'une boucle
2
Réponses
19
Affichages
3 K
patricktoulon
patricktoulon
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
S
  • Résolu(e)
XL 2019 Éviter de recharger plusieurs fois une listbox suite à filtrage avec combobox
Réponses
10
Affichages
1 K
SPGoder
S
A
  • Résolu(e)
XL 2016 Créer une liste verticale issue de plusieurs données à partir de la fonction Recherche V/H
Réponses
7
Affichages
824
arnoldbrice19
A
THOR57
  • Résolu(e)
Microsoft 365 Mettre les infos de 4 Listbox dans 1 seul liste box à plusieurs colonne
Réponses
3
Affichages
1 K
fanfan38
fanfan38
L
  • Question Question
XL 2016 Combobox sur plusieurs feuilles
Réponses
9
Affichages
1 K
le feuvre
L
J
  • Question Question
XL 2016 Comment figer une liste déroulante à une cellule ?
Réponses
7
Affichages
2 K
Lily78
L
R
  • Question Question
Microsoft 365 Filtrer une colonne à partir des conditions d'une ComboBox
Réponses
8
Affichages
1 K
Romane.
R
N
  • Résolu(e)
XL 2010 intégrer une liste de donnée à la suite (1ère case vide)
Réponses
14
Affichages
1 K
sousou
sousou
C
  • Question Question
XL 2013 Macro VBA appliquer une formule somme.si.ens à un tableau et ensuite une recherche mutli critere
Réponses
12
Affichages
2 K
Dranreb
Dranreb
B
  • Question Question
Problèmes : 4 filtres en cascade ComboBox pour affichage dans une ListBox
Réponses
6
Affichages
2 K
Birgz
B
A
  • Résolu(e)
Autres Désactiver la protection lié à une liste déroulante
Réponses
1
Affichages
743
Robert
Robert
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
Staple1600
Retour