Sub AfficheProduitsCommandes(Cbo As Control)
If Cbo.ListIndex = -1 Then Exit Sub
Dim Usf As MSForms.UserForm, Pre$
Set Usf = Cbo.Parent
Lg = Cbo.ListIndex + 2
Select Case Cbo.Name
Case "CboClients"
Pre = IIf(Cbo.Parent.Name = "FrmClients", "Txt", "Eti")
Set Sh = Sheets("Clients")
Usf.Controls(Pre & "Nom") = Cbo.Text
Usf.Controls(Pre & "Prenom") = Sh.Range("B" & Lg)
Usf.Controls(Pre & "Tel") = Sh.Range("C" & Lg)
Usf.Controls(Pre & "Adresse") = Sh.Range("D" & Lg)
Usf.Controls(Pre & "Complement") = Sh.Range("E" & Lg)
Usf.Controls(Pre & "CP") = Sh.Range("F" & Lg).Text
Usf.Controls(Pre & "Ville") = Sh.Range("G" & Lg).Value
If Cbo.Parent.Name = "FrmCommandes" Then
LireCommandesInscrite Cbo
End If
Case "CboProduits"
Set Sh = Sheets("Produits")
If Cbo.Parent.Name = "FrmProduits" Then
Usf.TxtProduits = Usf.CboProduits.Text
Usf.TxtCategorie = Sh.Cells(Lg, 2)
End If
Case "Produits1", "Produits2", "Produits3", "Produits4", "Produits5", "Produits6", "Produits7", "Produits8", "Produits9", "Produits10", "Produits11", "Produits12"
Dim i%
i = Right(Cbo.Name, Len(Cbo.Name) - 8)
Usf.Controls("EtiCategorie" & i) = Sheets("Produits").Cells(Cbo.ListIndex + 2, 2)
Select Case Usf.Controls("EtiCategorie" & i).Caption
Case "C001"
Usf.Controls("Taille" & i).ControlTipText = "1 ou 2 ou 4 ou 6 ou 8 ou 10 ou 12"
Case "C002"
Usf.Controls("Taille" & i).ControlTipText = "1 ou 2 ou 4"
Case "C003"
Usf.Controls("Taille" & i).ControlTipText = "1"
End Select
Usf.Controls("Qte" & i).SetFocus
End Select
End Sub