''Janvier
Sub stats_janvier()
'sélection de la colonne date de la première date à la dernière date
Sheets("Donnees_completes").Select
For cal = 5 To Sheets("donnees_completes").Range("A10000").End(xlUp).Row
Next cal
c = cal - 1
Sheets("donnees_completes").Range("C5:C" & c).Select
'format des dates de JJ/MM/AA à MM/AA
Selection.NumberFormat = "mm/yy"
'filtre des dates du mois de janvier
annee = Sheets("informations").Range("S4").Value
Rows("4:4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="01/" & annee
'comptage + écriture des codes inter mensuels
'Accid Prompt Feu Sec.Vic Inond Animal Divers Prev.Acc Insectes Gaz
Call Code_Accid_janvier
Call Code_Prompt_janvier
Call Code_Feu_janvier
Call Code_SecVic_janvier
Call Code_Inond_janvier
Call Code_Animal_janvier
Call Code_Divers_janvier
Call Code_PrevAcc_janvier
Call Code_Insectes_janvier
Call Code_Gaz_janvier
'affichage de toutes les dates
Sheets("donnees_completes").Activate
Rows("4:4").Select
Selection.AutoFilter
'affichage de la date de MM/AA en JJ/MM/AA
Sheets("Donnees_completes").Select
For cal = 5 To Sheets("donnees_completes").Range("A10000").End(xlUp).Row
Next cal
c = cal - 2
Sheets("donnees_completes").Range("C5:C" & c).Select
Selection.NumberFormat = "dd/mm/yy"
End Sub
Sub Code_Accid_janvier()
'Accid Prompt Feu Sec.Vic Inond Animal Divers Prev.Acc Insectes Gaz
Dim Accid As Long
Dim Li As Long
Dim Tmp As Long
Sheets("Donnees_completes").Select
For cal = 5 To Sheets("donnees_completes").Range("A10000").End(xlUp).Row
Next cal
c = cal - 1
Sheets("donnees_completes").Range("G5:G" & c).Select
On Error Resume Next
Call Selection.Find(What:="Accid", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Err.Number = 91 Then
'MsgBox "Pas trouver"
'Call Err.Clear
Sheets("Stats_Inter").Range("B38").Value = 0
Else
Li = ActiveCell.Row
If Li <> 0 Then Accid = Accid + 1
While Tmp <> Li
Selection.FindNext(After:=ActiveCell).Activate
Tmp = ActiveCell.Row
Accid = Accid + 1
Wend
Sheets("Stats_Inter").Range("B38").Value = Accid - 1
'MsgBox NumFois - 1
End If
On Error GoTo er1
Sheets("Stats_Inter").Activate
Exit Sub
er1: MsgBox "ERREUR : Calculs statistiques mensuelles"
End Sub