Chiffre MAXI

Bruce68 à dit:

Bonsoir vbacrumble
Merci pour la réponse cela fait la somme de n'importe quel Chiffre meme les dates et moi je ne veux que les chiffres sans les dates mais avec 2 chiffres derriere la virgule ou le point suivant la config.
merci pour toute votre aide

Cliquez pour agrandir...

[COLOR="Blue"]Function[/COLOR] MonMax(zone [COLOR="blue"]As[/COLOR] Range) [COLOR="blue"]As Double[/COLOR]
  [COLOR="blue"]For Each[/COLOR] curCell [COLOR="blue"]In[/COLOR] zone.Cells
    [COLOR="blue"]If[/COLOR] IsNumeric(Replace(curCell.Value, ".", ",")) [COLOR="blue"]Then[/COLOR]
      [COLOR="blue"]If[/COLOR] [COLOR="red"]Replace(curCell.Value, ".", ",")[/COLOR] < 39448# [COLOR="blue"]Then[/COLOR]
        [COLOR="blue"]If[/COLOR] MonMax < Replace(curCell.Value, ".", ",") [COLOR="blue"]Then[/COLOR] MonMax = Replace(curCell.Value, ".", ",")
      [COLOR="blue"]End If[/COLOR]
    [COLOR="blue"]End If[/COLOR]
  [COLOR="blue"]Next[/COLOR] curCell
[COLOR="blue"]End Function[/COLOR]

Bruce68 à dit:

Bonjour nolich et le forum

La fonction MaSomme donne bien le bon résultat mais sans aucun chiffre derriere la virgule ou le point suivant la config. (Le Chiffre est Arrondi)
Pour la meme ligne avec la fonction MonMax j'ai le chiffre avec tous les chiffres derriere la virgule ou le point.
Ex Cellule A8 =742.45
MaSomme = 742
MonMax= 742.45
Ce que je voudrais : que faut il modifier dans fonction MaSomme Pour avoir 2 nchiffres derrier la virgule ou le point en sachant que j'aimerais mettre le format 0.00 Kl €
Merci pour l'aide.

Cliquez pour agrandir...

vbacrumble à dit:

Sauf erreur, ça fonctionne non ?

Code:

Function MaSomme(zone As Range) As Double
Application.Volatile
Dim c As Range
For Each c In zone.Cells
If ((Not IsDate(c)) * (Not IsEmpty(c)) * ((IsNumeric(c)))) Then
MaSomme = _
Application.WorksheetFunction.Sum(MaSomme + c.Value)
End If
Next c
End Function

Cliquez pour agrandir...