Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : Problème d'initialisation de combobox

Créer une discussion

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
S

syl0038

XLDnaute Junior
Bonjour,
Quelqu'un pourrait t'il m'expliquer comment initialiser ma combobox 4 dans l'userform production 1.
Cela fonctionne à l'ouverture de l'userform production1 mais ensuite quand je change la valeur dans le combobox4, rien ne se passe.

J'ai essayé des codes en faisant des recherches mais sans grand succès.

Je vous remercie par avance de votre aide!
Syl0038

Le code pour la macro est 38520
 

Pièces jointes

Trier par date Trier par votes
Re : VBA : Problème d'initialisation de combobox

Bonjour,

Il faut réinitialier les items avant traitement.

Code: 
Private Sub combobox4_reset()
    Production1.ComboBox1.Visible = False
    Production1.ComboBox2.Visible = False
    Production1.ComboBox3.Visible = False
    Production1.TextBox1.Visible = False
    Production1.TextBox2.Visible = False
    Production1.TextBox3.Visible = False
    Production1.CheckBox1.Visible = False
    Production1.Label30.Visible = False
    Production1.Label5.Visible = False
    Production1.Label4.Visible = False
    Production1.Label6.Visible = False
    Production1.Label7.Visible = False
    Production1.Label27.Visible = False
    Production1.Label27.Visible = False
End Sub



Private Sub ComboBox4_Change()
Dim MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
combobox4_reset
....... la suite du code
 
Vote positif 0 Vote négatif
Re : VBA : Problème d'initialisation de combobox

Bonjour syl0038

Et que diantre devrait-il se passer ???
Tu ne mets rien dans mondico et par ailleurs ces lignes sont inutiles !!!

Code: 
    Production1.ComboBox4.List = MonDico.items
    Production1.ComboBox4.ListIndex = -1
    Production1.ComboBox4.List = Sheets("Data_base").Range("n2:n7").Value

Par ailleurs , a l'intention de tous ceux qui passeront par la
Evitez de nous faire etudier des codes non fonctionnels sans nous preciser à quoi ils sont destinés (nous ne sommes pas extralucides !!!!)

Ah !!!
Bravo Gelinotte
De ce qui precede ,je conclus que tu es EXTRALUCIDES (et moi NON)
 
Vote positif 0 Vote négatif
Re : VBA : Problème d'initialisation de combobox

Bonsoir sil0038, les participants,

Comme j'ai planché sur le sujet, je joins ma solution dans laquelle j'ai restructuré le code et supprimé les lignes inutiles.

Je partage entièrement la remarque de PierreJean car j'ai rencontré les mêmes problèmes de compréhension. Ce qui fait que je n'ai pas renseigné les deux dernières options de la liste dans la condition Select Case...End Select car je n'ai pas retrouvé la correspondance dans le code d'origine.

Par ailleurs, le fait d'effacer la ComboBox4 après le choix conduisait à effacer les contrôles : j'ai donc ajouté un test de condition en première ligne.

Voici le code :

Code: 
Private Sub ComboBox4_Change()
If ComboBox4.ListIndex = -1 Then Exit Sub

    Production1.ComboBox1.Visible = False
    Production1.ComboBox2.Visible = False
    Production1.ComboBox3.Visible = False
    Production1.TextBox1.Visible = False
    Production1.TextBox2.Visible = False
    Production1.TextBox3.Visible = False
    Production1.CheckBox1.Visible = False
    Production1.Label30.Visible = False
    Production1.Label5.Visible = False
    Production1.Label4.Visible = False
    Production1.Label6.Visible = False
    Production1.Label7.Visible = False
    Production1.Label27.Visible = False
'-----------------------------------------------------------------------------------
Select Case ComboBox4.ListIndex
  Case 0 ' Moulage/assemblage
    Production1.ComboBox1.Visible = True
    Production1.ComboBox2.Visible = True
    Production1.ComboBox3.Visible = True
    Production1.TextBox1.Visible = True
    Production1.TextBox2.Visible = True
    Production1.TextBox3.Visible = True
    Production1.CheckBox1.Visible = True
    Production1.Label30.Visible = True
    Production1.Label5.Visible = True
    Production1.Label4.Visible = True
    Production1.Label6.Visible = True
    Production1.Label7.Visible = True
    Production1.Label27.Visible = True
      Case 1 ' Sortare
    Production1.ComboBox3.Visible = True
    Production1.TextBox3.Visible = True
    Production1.Label4.Visible = True
    Production1.Label27.Visible = True
  Case 2 ' Ambalare
    Production1.ComboBox3.Visible = True
    Production1.TextBox3.Visible = True
    Production1.Label4.Visible = True
    Production1.Label27.Visible = True
  Case 3 ' Control 100%
    Production1.ComboBox3.Visible = True
    Production1.TextBox3.Visible = True
    Production1.Label4.Visible = True
    Production1.Label27.Visible = True
  Case 4 ' Formare
  Case 5 ' Sedinta
End Select
Production1.ComboBox4.ListIndex = -1
End Sub
Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : Problème d'initialisation de combobox

RE :

Et pour faire encore plus court :

Code: 
Private Sub ComboBox4_Change()
If ComboBox4.ListIndex = -1 Then Exit Sub
Select Case ComboBox4.ListIndex
  Case 0 ' Moulage/assemblage
    ctl = Array("1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1", "1")
  Case 1 ' Sortare
    ctl = Array("0", "0", "1", "0", "0", "1", "0", "0", "0", "1", "0", "0", "1")
  Case 2, 3 ' Ambalare, Control 100%
    ctl = Array("0", "0", "1", "0", "0", "1", "0", "0", "0", "1", "0", "0", "1")
  Case 4 ' Formare *
    ctl = Array("0", "0", "1", "0", "0", "1", "0", "0", "0", "1", "0", "0", "1")
  Case 5 ' Sedinta *
    ctl = Array("0", "0", "1", "0", "0", "1", "0", "0", "0", "1", "0", "0", "1")
End Select
Production1.ComboBox1.Visible = IIf(ctl(0) = "1", True, False)
Production1.ComboBox2.Visible = IIf(ctl(1) = "1", True, False)
Production1.ComboBox3.Visible = IIf(ctl(2) = "1", True, False)
Production1.TextBox1.Visible = IIf(ctl(3) = "1", True, False)
Production1.TextBox2.Visible = IIf(ctl(4) = "1", True, False)
Production1.TextBox3.Visible = IIf(ctl(5) = "1", True, False)
Production1.CheckBox1.Visible = IIf(ctl(6) = "1", True, False)
Production1.Label30.Visible = IIf(ctl(7) = "1", True, False)
Production1.Label5.Visible = IIf(ctl(8) = "1", True, False)
Production1.Label4.Visible = IIf(ctl(9) = "1", True, False)
Production1.Label6.Visible = IIf(ctl(10) = "1", True, False)
Production1.Label7.Visible = IIf(ctl(11) = "1", True, False)
Production1.Label27.Visible = IIf(ctl(12) = "1", True, False)
Production1.ComboBox4.ListIndex = -1
End Sub
Si les Case 4 et 5 (*) sont identiques à d'autres on peut les reporter sur ces lignes en séparant par une virgule comme dans Case 2, 3.

Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

  • Résolu(e)
XL 2010 Problème de propagation d'évènement Combobox
Réponses
11
Affichages
936
ChTi160
  • Résolu(e)
Microsoft 365 Problème de formatage de dates au format EUR
Réponses
2
Affichages
426
R1-
  • Question Question
Microsoft 365 VBA : combobox changement de couleur
Réponses
1
Affichages
474
Oneida
  • Question Question
XL 2021 Débogage code VBA sous Excel 2021: Impossible
Réponses
7
Affichages
693
p'tit vieux
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
1 K
cp4
J
  • Résolu(e)
Autres Problème de " dans Formulalocal en vba
Réponses
3
Affichages
704
jacsimo
J
  • Résolu(e)
XL 2016 Label itération
Réponses
3
Affichages
610
marg55
N
  • Question Question
XL 2016 Copier coller de Excel à Word
Réponses
0
Affichages
809
Ninoush_
N
L
  • Résolu(e)
Microsoft 365 Case à Cocher - VBA - Problème liaison de cellules
Réponses
5
Affichages
2 K
Hasco
V
  • Résolu(e)
Microsoft 365 Afficher filtres appliqués par macro dans la cellule B3 directement et non par F5 puis Réinitialiser
Réponses
12
Affichages
2 K
VirginieG
V
  • Résolu(e)
XL 2010 UserForm, menu déroulant cascade et enrichir une base de donnée
2 3 4
Réponses
53
Affichages
8 K
ChTi160
S
  • Question Question
Microsoft 365 Multipage avec VBA
Réponses
6
Affichages
1 K
SAOLAN
S
  • Question Question
XL 2016 Formule pour combiner des formules de recherche
Réponses
6
Affichages
701
Philippe LAMACHE
P
  • Question Question
XL 2013 Bon de commande VBA avec combobox
Réponses
1
Affichages
643
fanfan38
T
  • Question Question
XL 2013 « Impossible de charger l’objet car il n’est pas disponible sur cette machine. Veuillez vérifier votre connexion.»
Réponses
4
Affichages
1 K
Tubule
T
E
  • Question Question
Problème suppression fiche dans userform
Réponses
2
Affichages
878
EmilieGA
E
  • Question Question
SetFocus avec un ComboBox
Réponses
13
Affichages
3 K
job75
S
  • Question Question
XL 2010 Problème rétrecissement combobox feuille excel
Réponses
1
Affichages
3 K
corloste
C
  • Question Question
XL 2013 Planning problème de code VBA (résolu)
Réponses
9
Affichages
2 K
binouse
B
R
  • Question Question
XL 2013 Problème d'affectation de valeur
Réponses
8
Affichages
1 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…