1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub UserForm_Initialize()
With Me
Chantier.AddItem "CHARCUTERIE"
Chantier.AddItem "PAIN"
Chantier.AddItem "COUPE/SAUR"
Chantier.AddItem "FROMAGE"
.Jour.AddItem "LUNDI"
.Jour.AddItem "MARDI"
.Jour.AddItem "MERCREDI"
.Jour.AddItem "JEUDI"
' etc...
End With
End Sub
Private Sub CommandButton1_Click()
With Me
MsgBox "Vous cherchez des personnes disposant de la compétence " & .Chantier.Value & _
", pour la journée du " & .Jour.Value & " et pour un volume de " & .Heure.Value & " h."
' ici on appelle la procédure qui recherche les gens
'Call RechercheGens(.Chantier.Value, .Jour.Value, .Heure.Value)
End With
End Sub |
Partager