Formules VBA inactives

**gonsp** · 16/02/2017, 09h36

Bonjour,

Dans un programme VBA j'aimerais inclure des formules dans différentes cellules.
Voilà un exemple de formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(2, 1).Offset(Ligne + 7, Colonne + 3).FormulaLocal = "=SOMME(" & Adresse_Total1 & ":" & Adresse_Total2 & ")"

Je ne comprends pas car celles-ci ne s'activent pas. Après avoir lancé mon programme, ma cellule est bien écrite, mais c'est seulement après avoir cliqué sur la formule (dans la cellule) puis appuyer sur "entrée" que ma formule s'active.

Si vous avez une piste ou si il vous manque des infos n'hésitez pas!
Merci par avance

**unparia** · 16/02/2017, 10h30

Bonjour
Tu auras peut-être une réponse lorsque tu auras précisé (tu penses peut-être que cela n'a aucune importance ?) :
- dans quelle procédure évènementielle tu as mis ce code !
- s'il est ou non dans une boucle (et laquelle ?)

**halaster08** · 16/02/2017, 10h33

Bonjour,

N'aurais tu pas désactivé le calcul automatique dans ta macro? (et oublié de le remettre à la fin)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Calculation = xlManual

**gonsp** · 16/02/2017, 13h18

Envoyé par unparia

Bonjour
Tu auras peut-être une réponse lorsque tu auras précisé (tu penses peut-être que cela n'a aucune importance ?) :
- dans quelle procédure évènementielle tu as mis ce code !
- s'il est ou non dans une boucle (et laquelle ?)

Il est dans un sub normal sans événement. Et dans un double for.
Je n'ai pas touché au calcul automatique de ma macro..

**halaster08** · 16/02/2017, 13h28

La ligne de code, que tu nous montre, n'explique pas a elle seule le problème que tu rencontres, sans voir le reste de ton code on ne peut pas t'aider.
As-tu des macro évenementielles sur ce classeur?

**gonsp** · 16/02/2017, 13h32

J'ai deux USF mais qui n'agissent pas dans la fonction...
Voici mon code complet, bon courage

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
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
Option Explicit
Public First_Date As Variant
Public Date_ComboBox As String

Function Expension(Cellule_Départ As Range, Nombre_De_Cellules_Lignes As Integer)

    Cellule_Départ.Select
    Selection.AutoFill Destination:=Range(Cellule_Départ, Cellule_Départ.Offset(Nombre_De_Cellules_Lignes - 1)), Type:=xlFillDefault

End Function

Function Adjust(Colonne As String)
    
        Columns(Colonne & ":" & Colonne).EntireColumn.AutoFit
        
End Function

Function Date_Longue(Colonne As String)

    Dim Colonne_Complète As String
    
    Colonne_Complète = Colonne & ":" & Colonne
    Columns(Colonne_Complète).Select
    Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy"
    
End Function

Function Center_Et_Gras(Colonne_Début As String, Colonne_Fin As String)

    Dim Colonne_Complète As String

    Colonne_Complète = Colonne_Début & ":" & Colonne_Fin
    Columns(Colonne_Complète).Select
    Selection.HorizontalAlignment = xlCenter
    Selection.Font.Bold = True
    
End Function

Function Heure()

    Cells.Select
    Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
    
End Function

Function Bordure(ByVal Ligne As Integer, ByVal Colonne As Integer)

    Dim Cell As Range
    For Each Cell In Range(Cells(2, 1).Offset(Ligne - 1, Colonne), Cells(2, 1).Offset(Ligne + 6, Colonne + 3))
    
        Cell.Select
        Selection.Borders(xlEdgeLeft).Weight = xlThin
        Selection.Borders(xlEdgeTop).Weight = xlMedium
        Selection.Borders(xlEdgeBottom).Weight = xlMedium
        Selection.Borders(xlEdgeRight).Weight = xlThin
        
    Next
    
End Function

Function Bordure_Total(ByVal Colonne As Integer)

    Dim Cell As Range
    For Each Cell In Range(Cells(41, 1).Offset(0, Colonne), Cells(41, 4).Offset(0, Colonne))
    
        Cell.Select
        Selection.Borders(xlEdgeLeft).Weight = xlThin
        Selection.Borders(xlEdgeTop).Weight = xlMedium
        Selection.Borders(xlEdgeBottom).Weight = xlMedium
        Selection.Borders(xlEdgeRight).Weight = xlThin
        
    Next
    
End Function

Function Cacher_Cellule(Colonne_Début As String, Colonne_Fin As String)

    Range(Colonne_Début & ":" & Colonne_Fin).EntireColumn.Hidden = True

End Function

Function Coloriage_Semaine(ByVal Ligne As Integer, ByVal Colonne As Integer)
    
    Range(Cells(2, 1).Offset(Ligne - 1, Colonne), Cells(2, 1).Offset(Ligne - 1, Colonne + 3)).Select
    With Selection.Interior
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With

    Range(Cells(2, 1).Offset(Ligne + 7, Colonne + 2), Cells(2, 1).Offset(Ligne + 7, Colonne + 3)).Select
    With Selection.Interior
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.349986266670736
    End With

End Function


Sub Date1()
    
    Dim Colonne, Semaine, Ligne, Ligne_SOMME As Integer
    Dim Adresse_Total1, Adresse_Total2, Adresse_Heure1, Adresse_Heure2, Adresse_Mod1, Adresse_Mod2, Adresse_Mod3, Adresse_If, Adresse_Is, Cellule_Offset As String
    Dim Cellule_Offset_2, Cellule_Offset_12, Cellule_Offset_22, Cellule_Offset_32 As String
    Dim Date_TextBox, Nom As String
    Dim Date_Fin As Date
    
    UserForm1.Show
    
    Semaine = 0

    Sheets(UserForm1.ComboBox1.Value).Activate
    
    Cells(2, 1) = CDate(UserForm1.TextBox1.Value)
    
    Date_Fin = Cells(2, 1) + 111
    Nom = "Du " & Format(Cells(2, 1).Value, "d mmm yyyy") & " au " & Format(Date_Fin, "d mmm yyyy")
    
    For Colonne = 1 To Sheets.Count
        If Sheets(Colonne).Name = Nom Then
            If MsgBox("Attention, une feuille porte déjà le nom """ & Nom & """ voulez-vous l'écraser?", vbYesNo + vbExclamation, "ATTENTION") = vbYes Then
                Application.DisplayAlerts = False
                Worksheets(Nom).Delete
                Application.DisplayAlerts = True
                Exit For
            Else
                Exit Sub
            End If
        End If
    Next
    
    Call Heure
    
    Call Date_Longue("A")
    Call Date_Longue("I")
    Call Date_Longue("Q")
    Call Date_Longue("Y")
    
    Call Center_Et_Gras("A", "D")
    Call Center_Et_Gras("I", "L")
    Call Center_Et_Gras("Q", "T")
    Call Center_Et_Gras("Y", "AB")
    
    
    For Colonne = 0 To 24 Step 8
        For Ligne = 0 To 30 Step 10
            Cells(2, 1).Offset(Ligne, Colonne) = Cells(2, 1) + Semaine
            Cells(2, 1).Offset(Ligne - 1, Colonne + 1) = "Début"
            Cells(2, 1).Offset(Ligne - 1, Colonne + 2) = "Fin"
            Cells(2, 1).Offset(Ligne - 1, Colonne + 3) = "Heure"
            Cells(2, 1).Offset(Ligne + 7, Colonne + 2) = "Total"
            
            Cells(2, 1).Offset(Ligne, Colonne + 1) = "Repos"
            Cells(2, 1).Offset(Ligne, Colonne + 2) = "Repos"
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 1), 7)
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 2), 7)
            
            Adresse_Heure1 = Cells(2, 1).Offset(Ligne, Colonne + 6).Address(False, False)
            Adresse_Heure2 = Cells(2, 1).Offset(Ligne, Colonne + 4).Address(False, False)
            Cells(2, 1).Offset(Ligne, Colonne + 3).FormulaLocal = "=SI(" & Adresse_Heure1 & ";" & Adresse_Heure2 & ";""0:00:00"")"
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 3), 7)
        
            Adresse_Total1 = Cells(2, 1).Offset(Ligne, Colonne + 3).Address(False, False)
            Adresse_Total2 = Cells(2, 1).Offset(Ligne + 6, Colonne + 3).Address(False, False)
            Cells(2, 1).Offset(Ligne + 7, Colonne + 3).FormulaLocal = "=SOMME(" & Adresse_Total1 & ":" & Adresse_Total2 & ")"
            Cells(2, 1).Offset(Ligne + 7, Colonne + 3).NumberFormat = "[h]:mm:ss;@"
            
            Adresse_Mod1 = Cells(2, 1).Offset(Ligne, Colonne + 2).Address(False, False)
            Adresse_Mod2 = Cells(2, 1).Offset(Ligne, Colonne + 1).Address(False, False)
            Adresse_Mod3 = Cells(2, 1).Offset(Ligne, Colonne + 5).Address(False, False)
            Cells(2, 1).Offset(Ligne, Colonne + 4).FormulaLocal = "=MOD(" & Adresse_Mod1 & "-" & Adresse_Mod2 & ";1)-" & Adresse_Mod3
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 4), 7)
            
            Adresse_If = Cells(2, 1).Offset(Ligne, Colonne + 6).Address(False, False)
            Cells(2, 1).Offset(Ligne, Colonne + 5).FormulaLocal = "=SI(" & Adresse_If & ";0,03125;0)"
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 5), 7)
            
            Adresse_Is = Cells(2, 1).Offset(Ligne, Colonne + 1).Address(False, False)
            Cells(2, 1).Offset(Ligne, Colonne + 6).FormulaLocal = "=ESTNONTEXTE(" & Adresse_Is & ")"
            Call Expension(Cells(2, 1).Offset(Ligne, Colonne + 6), 7)
                        
            Call Expension(Range(Cells(2, 1).Offset(Ligne, Colonne), Cells(2, 1).Offset(Ligne, Colonne)), 7)
            
            Call Bordure(Ligne, Colonne)
            
            Call Coloriage_Semaine(Ligne, Colonne)
            
            Semaine = Semaine + 7
            
        Next
        
            
            Cells(41, 1).Offset(0, Colonne) = "Total Cycle"
            
            Cellule_Offset_2 = Cells(41, 2).Offset(0 - 2, Colonne + 2).Address(False, False)
            Cellule_Offset_12 = Cells(41, 2).Offset(0 - 12, Colonne + 2).Address(False, False)
            Cellule_Offset_22 = Cells(41, 2).Offset(0 - 22, Colonne + 2).Address(False, False)
            Cellule_Offset_32 = Cells(41, 2).Offset(0 - 32, Colonne + 2).Address(False, False)
            Cells(41, 2).Offset(0, Colonne).FormulaLocal = "=SOMME(" & Cellule_Offset_2 & ";" & Cellule_Offset_12 & ";" & Cellule_Offset_22 & ";" & Cellule_Offset_32 & ")"
            Cells(41, 2).Offset(0, Colonne).NumberFormat = "[h]:mm:ss;@"
            
            Cells(41, 3).Offset(0, Colonne) = "sur"
            
            Cells(41, 4).Offset(0, Colonne) = "148:00:00"
            Cells(41, 4).Offset(0, Colonne).NumberFormat = "[h]:mm:ss;@"
            
            Range(Cells(41, 1).Offset(0, Colonne), Cells(41, 4).Offset(0, Colonne)).Select
            With Selection.Interior
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = -0.349986266670736
            End With
            
            Call Bordure_Total(Colonne)
        
    Next
    
    Call Adjust("A")
    Call Adjust("I")
    Call Adjust("Q")
    Call Adjust("Y")
    
    Call Cacher_Cellule("E", "G")
    Call Cacher_Cellule("M", "O")
    Call Cacher_Cellule("U", "W")
    Call Cacher_Cellule("AC", "AE")
    
    ActiveSheet.Name = "Du " & Format(Cells(2, 1).Value, "d mmm yyyy") & " au " & Format(Cells(38, 25).Value, "d mmm yyyy")
    
    ActiveSheet.Buttons.Add(0, 0, (Cells(1, 1).Width) / 2, Cells(1, 1).Height).Select
    Selection.OnAction = "Date1"
    Selection.Characters.Text = "Tableau"
    
    ActiveSheet.Buttons.Add((Cells(1, 1).Width) / 2, 0, (Cells(1, 1).Width) / 2, Cells(1, 1).Height).Select
    Selection.OnAction = "Main_MAJ"
    Selection.Characters.Text = "MAJ"
    
    Cells(1, 1).Select
    
    Unload UserForm1
    
End Sub

Sub Main()

    Dim Mot_1 As String, Mot_2 As String, Mot_3 As String
    
    If UserForm1.CheckBox1.Value = True Then
        Call modifieRDVCalendrier("News 1")
        Call modifieRDVCalendrier(" News 1")
    End If
    
    If UserForm1.CheckBox2.Value = True Then
        Call modifieRDVCalendrier("News 2")
        Call modifieRDVCalendrier(" News 2")
    End If
    
    If UserForm1.CheckBox3.Value = True Then
        Call modifieRDVCalendrier("Travail")
        Call modifieRDVCalendrier(" Travail")
    End If

    If UserForm1.CheckBox4.Value = True Then
        
        Call modifieRDVCalendrier(UserForm1.TextBox2.Value)
        
    End If
    
End Sub


Sub Main_MAJ()

    UserForm2.Show
    Call MAJ
    
End Sub


Sub MAJ()
    
    If UserForm2.CheckBox1.Value = True Then
        Call modifieRDVCalendrier("News 1")
        Call modifieRDVCalendrier(" News 1")
    End If
    
    If UserForm2.CheckBox2.Value = True Then
        Call modifieRDVCalendrier("News 2")
        Call modifieRDVCalendrier(" News 2")
    End If
    
    If UserForm2.CheckBox3.Value = True Then
        Call modifieRDVCalendrier("Travail")
        Call modifieRDVCalendrier(" Travail")
    End If

    If UserForm2.CheckBox4.Value = True And UserForm2.TextBox2.Value <> "Autre..." Then
        Call modifieRDVCalendrier(UserForm2.TextBox2.Value)
    End If
    If UserForm2.CheckBox4.Value = True And UserForm2.TextBox3.Value <> "Autre..." Then
        Call modifieRDVCalendrier(UserForm2.TextBox3.Value)
    End If
    If UserForm2.CheckBox4.Value = True And UserForm2.TextBox4.Value <> "Autre..." Then
        Call modifieRDVCalendrier(UserForm2.TextBox4.Value)
    End If
    If UserForm2.CheckBox4.Value = True And UserForm2.TextBox5.Value <> "Autre..." Then
        Call modifieRDVCalendrier(UserForm2.TextBox5.Value)
    End If
    
    Unload UserForm2
End Sub

**gonsp** · 16/02/2017, 15h33

Problème résolu : j'avais des problèmes avec .Formula et .FormulaLocal

Formules VBA inactives

Macros et VBA Excel

Discussions similaires

Partager

Partager