Private Sub CboBox_Change()
Dim Cel As Range, i%
If CboBox.Enabled = False Then Exit Sub
Select Case Left(CboBox.Name, 6)
Case Is = "CboCli" ' liste déroulante clients
If CboBox.ListIndex = -1 Then Exit Sub
' liste des dates de commandes
With FrmCommandes.CboCom
.Clear 'liste à zéro
.ColumnCount = 2 'nb colonne
.ColumnWidths = "40;0" 'largeur colonne (0 masque la colonne)
End With
For Each Cel In Worksheets("Commandes").Range(PlageListe(Worksheets("Commandes"), "A", 2))
If Cel.Text = CboBox.Text And Cel.Offset(0, 1).Text = CboBox.List(CboBox.ListIndex, 1) Then ' choix sur le nom et le prénom
With FrmCommandes.CboCom
.AddItem Cel.Offset(0, 5) ' ajout des date de création
.List(FrmCommandes.CboCom.ListCount - 1, 1) = Cel.Row 'ajout de la ligne traitée
End With
End If
Next Cel
RempliInfoClient
If FrmCommandes.CboCom.ListCount > 0 Then ' determine si commande
FrmCommandes.CboCom.AddItem "Nouv. Com.", 0 ' ajout nouvelle commande
FrmCommandes.CboCom.Enabled = True
FrmCommandes.Frame1.Enabled = False
FrmCommandes.CboCom.BackColor = vbRed
Else
FrmCommandes.CboCom.Enabled = False
FrmCommandes.Frame1.Enabled = True
FrmCommandes.CboCom.BackColor = vbWhite
End If
Case Is = "CboCom" ' liste déroulante dates commandes
If CboBox.ListIndex = -1 Then 'cbocom vide on vide les infos client
FrmCommandes.Frame1.Enabled = False ' vérouillage de la frame1
Exit Sub ' nouvelle commande on sort
End If
If CboBox.Text = "Nouv. Com." Then ' traitement nouv com selectionné et ci dessous mise en place info client
FrmCommandes.Frame1.Enabled = True ' dévérouillage de la frame1
Exit Sub ' nouvelle commande on sort
Else 'traitement commandes enregistrées
FrmCommandes.Frame1.Enabled = True ' dévérouillage de la frame1
Gene.LireCommandes ' traitement de la commande existante
End If
Case "EtiCat"
If CboBox.ListIndex = -1 Then Exit Sub
FrmCommandes.CboClients.Enabled = False ' bloque la liste client
FrmCommandes.CboCom.Enabled = False ' bloque la liste commande
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 mesage 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 chioffres"
End Select
End Select
End Sub