Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Cette procédure permet de désactiver la croix qui faisait disparaitre le UserForm et donnait accès au classeur
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub UserForm_Activate()
With Me 'affiche l'USF en bas à droite
.Top = Application.Height - 1.5 * Me.Height
.Left = Application.Width - 1.1 * Me.Width
End With
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
ListeFiches.Clear
For i = 23 To Sheets.Count
ListeFiches.AddItem Sheets(i).Name
Next i
ListeFiches.TopIndex = ListeFiches.ListCount
For i = 2 To 23
ListeBD.AddItem Sheets(i).Name
Next i
End Sub
Private Sub ListeFiches_Click()
Sheets(ListeFiches.Value).Visible = True
Sheets(ListeFiches.Value).CommandButtonValidation.Visible = True
Sheets(ListeFiches.Value).CommandButtonFacturation.Visible = True
Sheets(ListeFiches.Value).Select
End Sub
Private Sub ListeBD_Click()
Sheets(ListeBD.Value).Visible = True
Sheets(ListeBD.Value).Select
End Sub