Calculer la valeur maximal d'une colonne

marmotte18 · 21 Mars 2012

Bonjour,

Quelle commande faut-il que je passe pour calculer par macro, la valeur maximale de la plage de cellules A2:A101 ?

Celle que j'utilisais était : Application.Max(Range("A2:A101"))

Merci par avance

tototiti2008 · 21 Mars 2012

Re : Calculer la valeur maximal d'une colonne

Bonjour Marmotte,

Celle que j'utilisais était : Application.Max(Range("A2:A101"))

Et as-tu des problèmes avec cette utilisation ?

Application.Max s'écrit aussi Application.WorksheetFunction.Max, c'est à dire que tu fais appel à la fonction de feuille de calcul
Mais en VBA "pur" sans appel aux fonctions de la feuille de calcul, pas grand chose d'existant pour calculer un maximum

marmotte18 · 21 Mars 2012

Re : Calculer la valeur maximal d'une colonne

tototiti2008 à dit:
Bonjour Marmotte,

Et as-tu des problèmes avec cette utilisation ?

Application.Max s'écrit aussi Application.WorksheetFunction.Max, c'est à dire que tu fais appel à la fonction de feuille de calcul
Mais en VBA "pur" sans appel aux fonctions de la feuille de calcul, pas grand chose d'existant pour calculer un maximum

Merci tototiti2008 pour ta réponse. Malheureusement, j'ai le regret de te dire qu'aucune des 2 syntaxes ne fonctionnent. Faut-il alors que je me relève les manches pour programmer avec une boucle cette fonction ?

C'est quand même étonnant, cela fonctionnait très bien et maintenant rien à faire. A moins que j'ai fait une grosse boulette et que je ne la vois pas.

tototiti2008 · 21 Mars 2012

Re : Calculer la valeur maximal d'une colonne

Re,

Peux-tu nous donner un fichier avec des données sur lesquelles tu essayes de faire le max ?
as-tu un message d'erreur dans la plage ?

Pierrot93 · 21 Mars 2012

Re : Calculer la valeur maximal d'une colonne

Bonjour Marmotte, re toto

peut être nous donner également la totalité du code, car effectivement en l'état....

bon après midi
@+

marmotte18 · 22 Mars 2012

Re : Calculer la valeur maximal d'une colonne

Bonjour Tototiti2008 et Pierrot93,

Merci pour vos réponses. En tournant le code dans tous les sens, j'ai réussi malgré tout à obtenir ce que je voulais :

Code:

Dim Nb As Currency, Plage As Range
Set Plage = Worksheets("Feuil1").Range("A2:A101")
Nb = Application.Max(Plage)

Calculer la valeur maximal d'une colonne

marmotte18

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

tototiti2008

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

marmotte18

XLDnaute Impliqué

Discussions similaires