Discussion :

[khroujou]

Bonjour,

Je souhaite calculer l'age d'une liste de personnes en distinguant les nourrissons des autres.

J'utilise la formule suivante :

Code :

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

=SI(DATEDIF(B2;A2;"y")<2;SI(DATEDIF(B2;A2;"m")<1;DATEDIF(B2;A2;"d")&" jours";DATEDIF(B2;A2;"m")&" mois");DATEDIF(B2;A2;"y")&" ans")

J'ai l'impression que cette formule rend mon fichier volumineux, surtout que le nombre de lignes peut atteindre 100 000.

Je souhaite savoir s'il y a une possibilité de le faire autrement (Vba par exemple).

Merci.

[Invité]

Bonjour,

Le code ci-dessous met en place la formule sur la colonne C et ne conserve que la valeur.

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
 
Sub TestCalculDeLAge()
 
Dim HeureDebut2, HeureFin2, TempsTotal2
 
    HeureDebut2 = Timer
 
    CalculDeLAge 3
 
    HeureFin2 = Timer
    TempsTotal2 = HeureFin2 - HeureDebut2
 
    MsgBox "Temps total du traitement : " & Round(TempsTotal2, 2) & " seconde(s)", vbInformation, "Calcul de l'âge"
 
 
End Sub
 
Sub CalculDeLAge(ByVal ColonneAge As Long)
 
Dim DerniereLigne As Long
 
 
    With ActiveSheet
 
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
 
         Application.Calculation = xlCalculationManual
         With .Range(.Cells(2, ColonneAge), .Cells(DerniereLigne, ColonneAge))
              .Formula = "=IF(DATEDIF(B2,A2,""y"")<2,IF(DATEDIF(B2,A2,""m"")<1,DATEDIF(B2,A2,""d"")&"" jours"",DATEDIF(B2,A2,""m"")&"" mois""),DATEDIF(B2,A2,""y"")&"" ans"")"
         End With
         Application.Calculation = xlCalculationAutomatic
         DoEvents
 
         With .Range(.Cells(2, ColonneAge), .Cells(DerniereLigne, ColonneAge))
              .Copy
              .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
         End With
 
    End With
 
End Sub

[Pierre Dumas]

Bonjour

Ce n'est pas cette formule qui rends le fichier volumineux. C'est le fait de faire une formule sur un si grand nombre de lignes.
Plutôt que de faire du VBA, si le fichier ne doit pas changer souvent, je ferai plutôt la formule indiquée, puis je ferai un copier-coller valeur afin de ne garder que les résultats. Mais la taille du fichier ne changera pas beaucoup.
D'ailleurs, ce sera le cas pour du VBA aussi.

En espérant que cela aide.

Bonne journée

Pierre Dumas

[khroujou]

Bonjour,
Merci Pierre, Merci Eric.

Je pense que je vais coller les valeurs en gardant la formule quelques parts pour les nouvelles données.