Discussion :

[bosk1000]

bonjour a tous

j'ai une boucle qui concerne 10 combobox (cmb-ref1 à 10)

cette boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
For i = 1 To 10
reference = Me.Controls("cmb_ref" & i).Text
    Cells.Find(What:=reference, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext).Activate
libelle = ActiveCell.Offset(0, 1).Text
Me.Controls("txt_lib" & i).Text = libelle
prix = ActiveCell.Offset(0, 3).Value
Me.Controls("txt_prix" & i).Value = prix
Next i

je ne sais pas comment la placé en évenement pour qu'elle fonctionne à chaque changement dans une des 10 combobox

[Didier Gonard]

tu en fais une procédure à part et tu l'appelles avec les bons paramètres à partir des change de tes combo...

cordialement,

Didier

[bosk1000]

merci de venir m'aider
mais je ne comprend pas bien ce que tu veux dire

dois-je éviter de faire une boucle et de mettre la procédure dans chaque "combobox change" ? donc dupliquer le code 10 fois exclusivement pour chaque combo ?

[Didier Gonard]

bonjour ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim strPassNamecbo
Dim lngNumCol As Long
 
Private Sub ComboBox1_Change()
strPassNamecbo = "ComboBox1"
lngNumCol = 5
Call ToutEnUn(strPassNamecbo, lngNumCol)
 
End Sub
 
Private Sub ComboBox2_Change()
strPassNamecbo = "ComboBox2"
lngNumCol = 9
Call ToutEnUn(strPassNamecbo, lngNumCol)
 
End Sub
 
Sub ToutEnUn(strPassNamecbo, lngNumCol)
Cells(5, lngNumCol) = Me.Controls(strPassNamecbo).Value
End Sub

cordialement,

Didier

[bosk1000]

je suis désolé de ne pas comprendre

je ne comment pas le fonctionnement finale de ton code, qu'est-ce que tu obtiens car je ne vois pas comment les combobox sont alimenté

[Didier Gonard]

je ne vois pas comment les combobox sont alimenté

ça n'a pas d'importance, tu les alimentes comme tu veux, dans ce cas-ci j'ai mis de façon native dans la propriété Rowsource Toto et Zozo qui sont 2 noms de plage de liste données à 10 cellules en vertical.

C'est un cas de figure, avant d'invoquer un change tu as bien alimenté tes combos ?

cordialement,

Didier

[bosk1000]

ok, merci
mais je suis obligé quand même de répéter la manip dans cmb-ref_change de 1 à 10

[Didier Gonard]

Ben oui, comme tu dois créer tes 10 combo etc...

intérêt : tu n'as que quelques lignes à mettre par combo et un noyau commun qui fait que quand il y aura un changement au niveau noyau, tu n'as qu'un code à retoucher et tu ne risques pas d'en oublier ou de faire un copier coller non relatif..

Sinon tu peux regarder de ce côté là si ça peut convenir :

Ce tutoriel montre comment manipuler l'éditeur de macros Excel ... par macro.

cordialement,

Didier

[bosk1000]

sinon en trichant un peu, en mettant la procédure dans :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

j'ai pus mettrez la boucle qui s'active sur les 10 combobox, mais pas en synchro lorsque je choisis un éléments dans la combobox, donc tans pis ce n'est pas possible comme je comptais le faire