Chiffre MAXI

[Bruce68]

Bonjour à tous
Peut on dans la ligne A trouver le chiffre Maxi (Par Formule) parmis des cellules comportant des Dates et des chiffres.
Merci de votre aide

 

[Raja]

Re : Chiffre MAXI

Bonjour,

Un exemple de fichier serait le bienvenu. Au fait, c'est quoi la ligne A ?

 

[Bruce68]

Re : Chiffre MAXI

Bonjour à tous

Voici un Exemple dans fichier
Merci de votre aide

 

[mromain]

Re : Chiffre MAXI

bonjour Bruce68, Raja,

voici une formule VBA :

Function MonMax(zone As Range) As Double
For Each curCell In zone.Cells
    If IsNumeric(curCell.Value) Then
        If MonMax < curCell.Value Then MonMax = curCell.Value
    End If
Next curCell
End Function

a+

 

[Bruce68]

Re : Chiffre MAXI

Bonjour mromain et le forum
Merci pour la fonction VBA, j'aurais aimé une formule , si je n'ai rien d'autre je prendrai la fonction mais au fait comment elle fonctionne je l'ai mis dans ma page et rien ne se passe.
merci pour votre aide

 

[vbacrumble]

Re : Chiffre MAXI

Bonjour Bruce68

Il faut aller dans Visual Basic Editor

Outils/Macros/Visual Basic Editor

Puis faire Insertion/Module
enfin copier le code VBA dans ce nouveau module
(qui devrait normalement s'appeler Module1)

puis retourne dans Excel
pour utiliser MonMax comme une formule native d'Excel.

 

[Raja]

Re : Chiffre MAXI

Re,

As-tu essayé la formule suivante :

=MAX(3:3)

 

[vbacrumble]

Re : Chiffre MAXI

Bonjour Raja


=MAX(3:3) -> renvoie 39925 (logique )

 

[Bruce68]

Re : Chiffre MAXI

Bonjour vbacrumble et le forum

Merci pour la solution ça je l'avais fait mais rien ne marche que faut il mettre dans la cellule pour avoir le chiffre Maxi = MonMax ne marche pas.

Pour faire la somme que des chiffres quelle est la formule egalement.

Merci pour toute votr aide

 

[mromain]

Re : Chiffre MAXI

re salut,

je te mets un fichier exemple.

a+


edit: et voici la fonction pour la somme:

Function MaSomme(zone As Range) As Integer
For Each curCell In zone.Cells
    If IsNumeric(curCell.Value) And curCell.Value <> vbNullString Then
        MaSomme = MaSomme + 1
    End If
Next curCell
End Function

 

[excellentt]

Re : Chiffre MAXI

Bonjour,
j'ai un peu le meme genre de probleme. Je voudrai que la valeur d'une cellule memorise le MAX de cette meme cellule dont la donnée provient d'une requete WEB. cette donnée est numerique.

j'ai essayé MonMax mais ca passe pas.

merci

 

[JHA]

Re : Chiffre MAXI

Bonjour Bruce68, le forum,

un essai avec grande valeur:

=GRANDE.VALEUR(SI(ESTERREUR(TROUVE(",";$B$3:$M$3;1))=FAUX;$B$3:$M$3);1)
A valider pr Ctrl+Maj+Entrée

JHA

 

[Bruce68]

Re : Chiffre MAXI

Bonsoir mromain et le forum

Pour la fonction MonMax ça fonctionne tres bien, par contre pour la somme ça compte le nombre de chiffre dans les cellules cela ne fait de somme .
Merci pour toute votre aide

 

[JHA]

Re : Chiffre MAXI

Re à tous,

ci joint un essai pour la grande valeur et la somme

JHA

 

[Bruce68]

Re : Chiffre MAXI

Bonsoir JHA
Merci pour tes formules je vois quelles fonctionnent
Pour chiffre Maxi c'est bon
Pour Somme Tu utilise SommeProd et moi je ne veux pas l'utiliser dans une grande base de données elle ralenti trop les calculs je prefererais une autre formule ou la fonction Somme en VBA à condition quelle fasse une somme et non un compte de valeur.

Merci pour toute votre aide

bonne soirée à tous