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