boucle ave ComboBox_Change()

[soune26]

Bonsoir le fofo,

J'ai juste une petite question:

Pensez- vous qu'il est possible de faire une boucle avec cela:

Private Sub REFERENCE1_Change()
DESIGNATION1.Value = Sheets("PRODUIT").Cells(REFERENCE1.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE2_Change()
DESIGNATION2.Value = Sheets("PRODUIT").Cells(REFERENCE2.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE3_Change()
DESIGNATION3.Value = Sheets("PRODUIT").Cells(REFERENCE3.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE4_Change()
DESIGNATION4.Value = Sheets("PRODUIT").Cells(REFERENCE4.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE5_Change()
DESIGNATION5.Value = Sheets("PRODUIT").Cells(REFERENCE5.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE6_Change()
DESIGNATION6.Value = Sheets("PRODUIT").Cells(REFERENCE6.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE7_Change()
DESIGNATION7.Value = Sheets("PRODUIT").Cells(REFERENCE7.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE8_Change()
DESIGNATION8.Value = Sheets("PRODUIT").Cells(REFERENCE8.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE9_Change()
DESIGNATION9.Value = Sheets("PRODUIT").Cells(REFERENCE9.ListIndex + 1, 2).Value
End Sub
Private Sub REFERENCE10_Change()
DESIGNATION10.Value = Sheets("PRODUIT").Cells(REFERENCE10.ListIndex + 1, 2).Value
End Sub

Si c'est possible se serait vraiment cool car j'en ai trente deux, merci d'avance à ceux qui ont jeté un yeux! et un bisou pour celui qui me donne une réponse(qui fonctionne biensur).

 

[Bebere]

Re : boucle ave ComboBox_Change()

bonjour Soune
un module de classe
met un fichier, c'est plus facile pour tout le monde
à bientôt

 

[Denis]

Re : boucle ave ComboBox_Change()

Bonjour le fil et le forum
ci-joint un petit classeur modèle avec quelques explications
Bon courage et à +
Denis