Discussion :

[fabricebouka]

Bonjour,
Je voudrais faire la moyenne des durées exprimées en années et en mois (en VBA). Obtenir un résultat qui sera exprimé en années et en mois.
Au fait, j'ai des fichiers excel extraits d'un logiciel de gestion et regroupant des info de nos clients. Ces fichiers se trouvent dans un dossier et je dois créer le tableau consolidé (en pièce jointe). La durée de vie moyenne est exprimée en années et en mois (Ex. 2 ans, 9 mois).
NB. Je suis un débutant en VBA

Merci pour votre aide

Voici Ce que j'ai déjà fait pour remplir une partie du tableau. Il ne me reste que pour les durées de vie.

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
Sub EncoursTF()
 
' Initialisation
 
' --------------
'Cell.Delete
MontEncoursTF = 0
MontEncoursTV = 0
MontEncoursTS = 0
NombreEmpruntsTF = 0
NombreEmpruntsTV = 0
NombreEmpruntsTS = 0
 
 
' Parcours de tous les fichiers
' -----------------------------
ChDir "C:\Users\Incognito\Documents\Dossier"
ClasseurRegional = Dir("C:\Users\Incognito\Documents\Dossier\*.xls")
While Len(Classeur) > 0
Workbooks.Open Classeur
Worksheets("Structure par taux").Select
Range("A27").Select
If Range("A27") = "Encours" Then
MontEncoursTF = MontEncoursTF + Range("B27").Value
MontEncoursTV = MontEncoursTV + Range("C27").Value
MontEncoursTS = MontEncoursTS + Range("D27").Value
NombreEmpruntsTF = NombreEmpruntsTF + Range("B31").Value
NombreEmpruntsTV = NombreEmpruntsTV + Range("C31").Value
NombreEmpruntsTS = NombreEmpruntsTS + Range("D31").Value
Else
MontEncoursTF = MontEncoursTF + Range("B35").Value
MontEncoursTV = MontEncoursTV + Range("C35").Value
MontEncoursTS = MontEncoursTS + Range("D35").Value
NombreEmpruntsTF = NombreEmpruntsTF + Range("B33").Value
NombreEmpruntsTV = NombreEmpruntsTV + Range("C33").Value
NombreEmpruntsTS = NombreEmpruntsTS + Range("D33").Value
End If
 
Workbooks(ClasseurRegional).Close False
ClasseurRegional = Dir
 
Wend
 
Workbooks("OBSERVATOIRE DE DETTE.xlsm").Activate
Worksheets("Structure_par_taux").Select
Range("C6").Select
Range("C6").Value = MontEncoursTF
Range("D6").Value = MontEncoursTV
Range("E6").Value = MontEncoursTS
Range("C10").Value = NombreEmpruntsTF
Range("D10").Value = NombreEmpruntsTV
Range("E10").Value = NombreEmpruntsTS
 
End Sub

[Theze]

Bonjour,

Une piste pour le calcul de la moyenne sous la forme "2 ans, 9 mois". Les valeurs des cellules doivent être entrée sous cette forme (2 ans, 9 mois avec virgule et espaces). Il y a sûrement des améliorations à apporter mais ça peut servir de base !

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Annee As Double
    Dim Mois As Double
    Dim Moyenne As Double
 
    Set Plage = Range("A1:A10")
 
    For Each Cel In Plage
 
        Annee = Annee + CLng(Trim(Split(Split(Cel.Value, ",")(0), " ")(0)))
        Mois = Mois + CLng(Trim(Split(Split(Cel.Value, ",")(1), " ")(0)))
 
    Next Cel
 
    Mois = Mois + Annee * 12
 
    Moyenne = Mois / Plage.Count
 
    Annee = Round(Moyenne / 12, 0)
 
    Mois = Moyenne Mod 12
 
    MsgBox "Moyenne : " & Annee & " ans, " & Mois & " mois"
 
End Sub

Hervé.