1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| Sub Saisie_journaliere()
'inserer un bouton pour faciliter la saisie genre "clique ici pour saisir ta journee mon gars"
'rajouter une grue qui arrive en novembre
Worksheets("Production").Activate
Dim Nsemaine As Integer
Dim Njour As Integer
Dim Nequipe As Integer
Nsemaine = InputBox(" Saisir le numéro de la semaine ")
Njour = InputBox(" Saisir le numéro du jour (lundi = 1, mardi = 2... ) ")
Nequipe = InputBox(" Saisir le numéro de l'équipe ")
Nptx = InputBox(" Nombre de poteaux posés ")
Nptxb = InputBox(" Nombre de poteaux brochés posés ")
Npoutres = InputBox(" Nombre de poutres posées ")
Npannes = InputBox("Nombre de pannes posées")
NpannxCF = InputBox("Nombre de panneaux CF posés")
Ndap = InputBox(" Nombre de DAP posées ")
'Si Nsemaine = 1 , et Njour= 1 et Nequipe = 1, alors
If Nsemaine = "1" And Njour = "1" And Nequipe = "1" Then
'ca marche pas : erreur d'execution 424 objet requis
Range("E12").Text = Nptx
Production!E13.Value = Nptxb
Production!E14.Value = Npoutres
Production!E15.Value = Npannes
Production!E16.Value = NpannxCF
Production!E17.Value = Ndap
'sinon => on passe a l'équipe suivante
Else
If Nsemaine = "1" And Njour = "1" And Nequipe = "2" Then
Production!E18.Value = Nptx
Production!E19.Value = Nptxb
Production!E20.Value = Npoutres
Production!E21.Value = Npannes
Production!E22.Value = NpannxCF
Production!E23.Value = Ndap
end if
end if
end sub |