Evênement change sur ComboBox

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Profane
  • Date de début Date de début

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
P

Profane

XLDnaute Occasionnel
Bonjour a tous,
sur un userform je dispose de plusieurs combobox (11), je récupére leurs valeurs que j'envoi sur des textBox (11)
pour résumé :
textbox1.Value = combobox1.value
textbox2.Value = combobox2.value
.......
malheureusement je dois coder ceci sur chaque evenement change du combobox concerné (1 à 11)
y a t'il moyen de passer par une boucle ?
Cordialement
 
Trier par date Trier par votes
Re : Evênement change sur ComboBox

Merci pierrot
mais en fait mon soucis se situe sur l'evenement 😛rivate Sub ComboBox(1 à 11)_Change() du userform
car a chaque changement de valeur de comboxbox , je dois réecrire l'evenement correspondant :-> Private Sub ComboBox(1)_change, Private Sub ComboBox(2)_change, Private Sub ComboBox(n)_change....
bon aprés midi
 
Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

en ajoutant du code , ca devrait être plus "parlant"

'récupération des valeurs des combobox et copie dans les textbox correspondant en mode multi-ligne
Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
TextBox2.Value = ComboBox2.Value
End Sub

Private Sub UserForm_Initialize()
'alimentation des combobox service-terminal-réseau

ComboBoxListeService.List = Range("Service").Value
ComboBoxListeTerminaux.List = Range("Terminal").Value
ComboBoxListeReseaux.List = Range("Réseau").Value

'alimentation des combobox critères
Dim k, l, m As Integer
For k = 1 To 11
Controls("ComboBox" & k).List = Range("Rapidité").Value
Next
For l = 12 To 22
Controls("ComboBox" & l).List = Range("Précision").Value
Next
For m = 23 To 33
Controls("ComboBox" & m).List = Range("Disponibilité").Value
Next
End Sub

en gros je veux pas repeter 33 la même ligne en tete sur les evenement change des combo ;-)
 
Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

Re,

bon, je l'ai fait... dans le module de l'usf :
Code: 
Option Explicit
Private MesObjets() As New Classe1
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 11
    ReDim Preserve MesObjets(1 To i)
    Set MesObjets(i).cb = Me.Controls("ComboBox" & i)
    Set MesObjets(i).tb = Me.Controls("TextBox" & i)
Next i
End Sub

dans un module de classe nommé "Classe1" :
Code: 
Option Explicit
Public WithEvents cb As MSForms.ComboBox
Public WithEvents tb As MSForms.TextBox
Private Sub cb_Change()
tb = cb
End Sub
 
Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

Bonjour à tous,

J'espère que vous allez bien...^_^

Moi, je suis assez débutant en ce qui concerne la prog. et en particulier en vba...

Je suis entrain de mettre au point une facturation automatisée. et depuis au moins une semaine, je fais face à un petit frein... enfin, dû au manque de connaissance.

grosso-modo, je dois déclarer 26 ComboBox dans INITIALISATION ...jusqu'à là pas de souci, avec une boucle "For" et le tour et joué. Mais en ce qui concerne "Private Sub ComboBox_Change()" là je bloque.... bien sur facile de déclarer les combobox une à une , mais on se retrouver très vite dépassant la 500 ième ligne

ma question, est-il possible de créer une boucle/procédure pour pour remplir mes différentes combobox sans avoir à recopier la même chose 26 fois...ça serait bête et surchargerait mon fichier pour rien.

MERCI d'avance.


extrait du code :


Private Sub ComboBox1_Change()
Dim ligne As Long
Dim i
i = 1
If Me.Controls("Combobox" & i).ListIndex = -1 Then Exit Sub
ligne = Me.Controls("Combobox" & i).ListIndex + 2



If Me.Controls("Combobox" & i) = "BARRE" Then
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
Else

If Me.Controls("Combobox" & i) = "CREED" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = False
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
If Me.Controls("Combobox" & i) = "ASSEMB" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
End If
End If
End If
End Sub

Private Sub ComboBox2_Change()
Dim ligne As Long
Dim i
i = 2
If Me.Controls("Combobox" & i).ListIndex = -1 Then Exit Sub
ligne = Me.Controls("Combobox" & i).ListIndex + 2



If Me.Controls("Combobox" & i) = "BARRE" Then
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
Else

If Me.Controls("Combobox" & i) = "CREED" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = False
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
If Me.Controls("Combobox" & i) = "ASSEMB" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
End If
End If
End If
End Sub

Private Sub ComboBox3_Change()
Dim ligne As Long
Dim i
i = 3
If Me.Controls("Combobox" & i).ListIndex = -1 Then Exit Sub
ligne = Me.Controls("Combobox" & i).ListIndex + 2



If Me.Controls("Combobox" & i) = "BARRE" Then
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
Else

If Me.Controls("Combobox" & i) = "CREED" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = False
Me.Controls("TextBox" & i + 250).Visible = False
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
If Me.Controls("Combobox" & i) = "ASSEMB" Then
Me.Controls("Combobox" & i + 100).Visible = False
Me.Controls("TextBox" & i + 150).Visible = False
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = False
Me.Controls("TextBox" & i + 400).Visible = False
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Else
Me.Controls("Combobox" & i + 100).Visible = True
Me.Controls("TextBox" & i + 150).Visible = True
Me.Controls("TextBox" & i + 200).Visible = True
Me.Controls("TextBox" & i + 250).Visible = True
Me.Controls("TextBox" & i + 350).Visible = True
Me.Controls("TextBox" & i + 400).Visible = True
Me.Controls("TextBox" & i + 100) = Ws3.Cells(ligne, 3)
Me.Controls("TextBox" & i + 150) = Ws3.Cells(ligne, 2)
End If
End If
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

Bonjour,

Un petit fichier simplifié, please ! Pour mieux comprendre ton problème. Pour ne pas réinventer une structure de fichier différente de la tienne et partir sur des fausses pistes. Pour ne pas créer 400 textbox sans savoir ce qu'il faut mettre dedans. Pour tester si les solutions qui te sont données ne comportent pas d'erreurs.... Aide les autres à t'aider.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

Bonsoir Mikeo,

Bien écoute, tu trouveras ci-joint un extrait de code qui fonctionne bien....pas besoin de diffuser le classeur en entier car >10MO et près de 15 000 lignes... on s'y perdrait très vite....llooooll

Cet extrait, résume le problème auquel je fais face, c'est à dire une réitération de déclaration des "ComboBox_change". alors, qu'il faudrait mettre en place un petit truc pour éviter de répéter les mêmes commande x fois.

à titre indicatif, je dois déclarer 2x 26 Combobox dans la même UFM

Bien à toi,
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Evênement change sur ComboBox

Bonjour,

Tu peux essayer de faire quelque chose comme le fichier joint, en transférant tes changements de combobox dans un module de classe. N'ayant pas ton fichier, aucun moyen de savoir si cela marche ou pas. Dans ce forum, tu as des spécialistes de modules de classe beaucoup plus compétents que moi.

Cordialement,

Mikeo
 

Pièces jointes

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

D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
389
Did25
D
C
  • Résolu(e)
XL 2021 Tri alpha sur combobox à 2 colonnes
2
Réponses
15
Affichages
1 K
dysorthographie
dysorthographie
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
Dranreb
A
  • Question Question
XL 2010 remplir plusieurs textbox en fonction d'un tri par deux comboBox
Réponses
8
Affichages
849
Dranreb
Dranreb
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
923
Mody200
M
B
  • Question Question
XL 2021 Insertions de plus de 10 textbox et combobox dans listbox
Réponses
9
Affichages
1 K
cp4
cp4
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
736
tactic6
tactic6
lynyrd
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
924
AtTheOne
AtTheOne
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
930
Appo1985
A
C
  • Résolu(e)
XL 2010 D'une userform transfert sur plusieurs feuilles en fonction
Réponses
4
Affichages
969
ccia
C
N
  • Résolu(e)
XL 2019 Alimenter une combobox selon critère après avoir double cliqué sur une feuille
2
Réponses
20
Affichages
2 K
sousou
sousou
L
  • Question Question
Microsoft 365 Réinitialiser concombox et probleme modification bd
Réponses
2
Affichages
703
Dudu2
Dudu2
A
  • Question Question
XL 2019 ajout automatique de quantités de sortie de stock au méme produit existant deja au tableau
Réponses
3
Affichages
1 K
vgendron
vgendron
D
  • Question Question
XL 2019 Ignorer cellule vide liste combobox
Réponses
14
Affichages
1 K
Did25
D
D
  • Question Question
XL 2013 Mise en place d'une boucle pour copier des données dans une case différentes en fonction de la valeur d'une combobox
Réponses
13
Affichages
2 K
drumeiro
D
G
  • Résolu(e)
XL 2016 Find avec Combobox et Texbox - RESOLU
Réponses
3
Affichages
957
Grall
G
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
813
Flnte
F
J
  • Question Question
XL 2016 [RESOLU] Avis Code VBA excel
Réponses
9
Affichages
1 K
jabenj
J
paradisecity1996
  • Question Question
XL 2019 BDD VBA - nombreux problèmes
Réponses
3
Affichages
946
fanfan38
fanfan38
Eric C
  • Résolu(e)
XL 2010 Ranger différentes valeurs dans une cellule
Réponses
13
Affichages
1 K
Eric C
Eric C
Retour