i = Right(Me.CboBox.Name, Len(Me.CboBox.Name) - 12) ' recupere l' index
ListeProduits FrmCommandes.Controls("Produits" & i), "A", 2
Select Case Me.CboBox.Text ' affiche message du contolTipText
Case Gene.Categorie1
FrmCommandes.Controls("Taille" & i).ControlTipText = "1 ou 2 ou 4 ou 6 ou 8 ou 10 ou 12"
Case Gene.Categorie2
FrmCommandes.Controls("Taille" & i).ControlTipText = "1 ou 2 ou 4"
Case Gene.Categorie3
FrmCommandes.Controls("Taille" & i).ControlTipText = "1"
Case Else
FrmCommandes.Controls("Taille" & i).ControlTipText = "Tous les chiffres"
End Select