Bonjour,

je tente d'aider un collègue à simplifier son quotidien au travail.

Contexte :

on a un tableau, composé de plusieurs feuilles.

Il faut rentrer chaque jours les nombres de pièces posées.

J'ai réussi à créer les Inputbox qui demandent le numéro de semaine/ le numéro du jour / le numéro d'équipe . (52 semaines, 7 jours par semaine, 6 équipes. )
J'ai aussi les inputbox qui demandent le nombre de pièces posées.

Je veux que, selon le numéro de semaine + jour + équipe, chaque nombre de pièces posées aille dans une cellule précise. (cette cellule sera utilisée dans des formules dans le reste du tableau)
J'ai tenté des SI/ALors/FinSi, de toute facon je saispas faire grand chose de plus que ca en VBA.

MAis ca marche pas, j'ai une erreur 424 objet requis.

Google est mon ami , mais après recherche je ne trouve pas de solution... (deux semaines, de recherche !!! )

Si quelqu'un a une idée ?

Je vous copie le début du code, il a un "si" par jour, et par équipe, en gros.... je mets que le début après ca se répète !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
si quelqu'un sait m'ider, merci beaucoup.
(sachant que je ne peux tester qu'au travail, mon pc n'a pas excel... )