Bonjour !!
Je m’en remets à vous car je n’arrive pas à trouver la solution...
J’ai essayé de créer un userform afin de renseigner des heures et des quantitatifs pour un chantier(1 classeur contenant 1 feuille par mois) .
Mes données s’injectent bien dans les cellules mais j’ai plusieurs problèmes :
Les quantitatifs et les heures sont saisis tous les jours.
- elles doivent donc impérativement rester dans ma feuille excel et apparaitre dans les textbox de mon userform (nommé HJANVIER) à chaque ouverture de mon classeur
- le classeur contenant les saisies ne devrait pas être visible par la personne qui saisi les données
- J’ai besoin d’un menu qui permet de choisir le mois de saisie sans faire apparaitre le contenu de mon classeur, je ne sais pas si c’est possible.
Je n’ai jamais appris à créer un userform, désolée si j’ai fait beaucoup d’erreur…pas douée...
Merci beaucoup de votre aide !!
Je vous joint mon fichier.


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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
'Croix désactivée
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
 
'ici c'est l'initialisation du UserForm
Private Sub HJANVIER_Initialize()
End Sub
 
Private Sub Q1P1_Change()
 
End Sub
 
Private Sub VALIDER_Enter()
'Indiquer la feuille à remplir
    Sheets("JANVIER").Select
 
' Mise en place des valeurs numériques saisies Poste 1 quantitatif
   Range("C9").Value = Q1P1.Value
   Range("C10").Value = Q2P1.Value
   Range("C11").Value = Q3P1.Value
   Range("C12").Value = Q4P1.Value
   Range("C13").Value = Q5P1.Value
   Range("C14").Value = Q6P1.Value
   Range("C15").Value = Q7P1.Value
   Range("C16").Value = Q8P1.Value
   Range("C17").Value = Q9P1.Value
   Range("C18").Value = Q10P1.Value
   Range("C19").Value = Q11P1.Value
   Range("C20").Value = Q12P1.Value
   Range("C21").Value = Q13P1.Value
   Range("C22").Value = Q14P1.Value
   Range("C23").Value = Q15P1.Value
   Range("C24").Value = Q16P1.Value
   Range("C25").Value = Q17P1.Value
   Range("C26").Value = Q18P1.Value
   Range("C27").Value = Q19P1.Value
   Range("C28").Value = Q20P1.Value
   Range("C29").Value = Q21P1.Value
   Range("C30").Value = Q22P1.Value
   Range("C31").Value = Q23P1.Value
   Range("C32").Value = Q24P1.Value
   Range("C33").Value = Q25P1.Value
   Range("C34").Value = Q26P1.Value
   Range("C35").Value = Q27P1.Value
   Range("C36").Value = Q28P1.Value
   Range("C37").Value = Q29P1.Value
   Range("C38").Value = Q30P1.Value
   Range("C39").Value = Q31P1.Value
 
       ' Mise en place des valeurs numériques saisies Poste 1 heures
   Range("F9").Value = H1P1.Value
   Range("F10").Value = H2P1.Value
   Range("F11").Value = H3P1.Value
   Range("F12").Value = H4P1.Value
   Range("F13").Value = H5P1.Value
   Range("F14").Value = H6P1.Value
   Range("F15").Value = H7P1.Value
   Range("F16").Value = H8P1.Value
   Range("F17").Value = H9P1.Value
   Range("F18").Value = H10P1.Value
   Range("F19").Value = H11P1.Value
   Range("F20").Value = H12P1.Value
   Range("F21").Value = H13P1.Value
   Range("F22").Value = H14P1.Value
   Range("F23").Value = H15P1.Value
   Range("F24").Value = H16P1.Value
   Range("F25").Value = H17P1.Value
   Range("F26").Value = H18P1.Value
   Range("F27").Value = H19P1.Value
   Range("F28").Value = H20P1.Value
   Range("F29").Value = H21P1.Value
   Range("F30").Value = H22P1.Value
   Range("F31").Value = H23P1.Value
   Range("F32").Value = H24P1.Value
   Range("F33").Value = H25P1.Value
   Range("F34").Value = H26P1.Value
   Range("F35").Value = H27P1.Value
   Range("F36").Value = H28P1.Value
   Range("F37").Value = H29P1.Value
   Range("F38").Value = H30P1.Value
   Range("F39").Value = H31P1.Value
 
    ' Mise en place des valeurs numériques saisies Poste 2 quantitatif
   Range("P9").Value = Q1P2.Value
   Range("P10").Value = Q2P2.Value
   Range("P11").Value = Q3P2.Value
   Range("P12").Value = Q4P2.Value
   Range("P13").Value = Q5P2.Value
   Range("P14").Value = Q6P2.Value
   Range("P15").Value = Q7P2.Value
   Range("P16").Value = Q8P2.Value
   Range("P17").Value = Q9P2.Value
   Range("P18").Value = Q10P2.Value
   Range("P19").Value = Q11P2.Value
   Range("P20").Value = Q12P2.Value
   Range("P21").Value = Q13P2.Value
   Range("P22").Value = Q14P2.Value
   Range("P23").Value = Q15P2.Value
   Range("P24").Value = Q16P2.Value
   Range("P25").Value = Q17P2.Value
   Range("P26").Value = Q18P2.Value
   Range("P27").Value = Q19P2.Value
   Range("P28").Value = Q20P2.Value
   Range("P29").Value = Q21P2.Value
   Range("P30").Value = Q22P2.Value
   Range("P31").Value = Q23P2.Value
   Range("P32").Value = Q24P2.Value
   Range("P33").Value = Q25P2.Value
   Range("P34").Value = Q26P2.Value
   Range("P35").Value = Q27P2.Value
   Range("P36").Value = Q28P2.Value
   Range("P37").Value = Q29P2.Value
   Range("P38").Value = Q30P2.Value
   Range("P39").Value = Q31P2.Value
 
       ' Mise en place des valeurs numériques saisies Poste 2 heures
   Range("S9").Value = H1P2.Value
   Range("S10").Value = H2P2.Value
   Range("S11").Value = H3P2.Value
   Range("S12").Value = H4P2.Value
   Range("S13").Value = H5P2.Value
   Range("S14").Value = H6P2.Value
   Range("S15").Value = H7P2.Value
   Range("S16").Value = H8P2.Value
   Range("S17").Value = H9P2.Value
   Range("S18").Value = H10P2.Value
   Range("S19").Value = H11P2.Value
   Range("S20").Value = H12P2.Value
   Range("S21").Value = H13P2.Value
   Range("S22").Value = H14P2.Value
   Range("S23").Value = H15P2.Value
   Range("S24").Value = H16P2.Value
   Range("S25").Value = H17P2.Value
   Range("S26").Value = H18P2.Value
   Range("S27").Value = H19P2.Value
   Range("S28").Value = H20P2.Value
   Range("S29").Value = H21P2.Value
   Range("S30").Value = H22P2.Value
   Range("S31").Value = H23P2.Value
   Range("S32").Value = H24P2.Value
   Range("S33").Value = H25P2.Value
   Range("S34").Value = H26P2.Value
   Range("S35").Value = H27P2.Value
   Range("S36").Value = H28P2.Value
   Range("S37").Value = H29P2.Value
   Range("S38").Value = H30P2.Value
   Range("S39").Value = H31P2.Value
 
   'Garder les données dans le userform et dans le tableau excel
   HJANVIER.Hide
 
End Sub
 
 
'Quitter
 Private Sub Quitter_Click()
Unload HJANVIER
End Sub