Fonction Max

Résolu/Fermé

lepapillon2015 Messages postés 27 Date d'inscription jeudi 2 avril 2015 Statut Membre Dernière intervention 3 mai 2015 - 2 mai 2015 à 14:54
lepapillon2015 Messages postés 27 Date d'inscription jeudi 2 avril 2015 Statut Membre Dernière intervention 3 mai 2015 - 3 mai 2015 à 15:20

Bonjour tout le monde !!
Je viens vous demander votre aide à propos d'une macro que j'essaie de créer.
En effet, j'ai créée un projet avec 3 différentes feuilles dans mon classeur et pour conclure mon analyse je voudrais créer une Messagebox de fin pour afficher le résultat maximum entre mes 3 feuilles. Je dois donc comparer 3 résultats qui se trouvent dans 3 feuilles différentes...
Comment faire ??
Merci beaucoup pour le coup de pouce ça me débloquerais la situation !
A bientot !

A voir également:

Fonction Max
Fonction si et - Guide
I14 pro max - Accueil - Guide téléphones
Fonction moyenne excel - Guide
Max ou netflix - Accueil - Streaming
Max tv gratuit - Télécharger - Télévision

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10905 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 décembre 2024 2 428
2 mai 2015 à 17:36

Bonjour

Un exemple

Public Function NMax(a, b, c)
Dim m
m = a
If b > m Then m = b
If c > m Then m = c
NMax = m
End Function

Public Sub essai()
Dim m, F1, F2, F3
Set F1 = Sheets(1)
Set F2 = Sheets(2)
Set F3 = Sheets(3)
m = NMax(F1.Cells(2, 1), F2.Cells(2, 1), F3.Cells(2, 1))
MsgBox "maxi : " & m
End Sub

Cdlmnt

lepapillon2015 Messages postés 27 Date d'inscription jeudi 2 avril 2015 Statut Membre Dernière intervention 3 mai 2015
3 mai 2015 à 15:20

merci :)

Réponse 2 / 2

NHenry Messages postés 15176 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 28 décembre 2024 350
2 mai 2015 à 14:59

Qu'as-tu déjà essayé, as-tu essayé de voir le code généré par le générateur de macro d'Excel ?

lepapillon2015 Messages postés 27 Date d'inscription jeudi 2 avril 2015 Statut Membre Dernière intervention 3 mai 2015
2 mai 2015 à 15:16

J'ai essayé de faire ça
Sub Result()
Function MMax(O.cells(20,1), A.Cells(20,1), C.cells(20,1))

If O.cells(20,1) > A.Cells(20,1) Then MMax = O.cells(20,1) Else MMax = A.Cells(20,1)
If C.cells(20,1) > MMax Then MMax = C.cells(20,1)

End Function
End Result
Et ça ne marche pas, sachant que O, A et C sont différents worksheet...

lepapillon2015 Messages postés 27 Date d'inscription jeudi 2 avril 2015 Statut Membre Dernière intervention 3 mai 2015
2 mai 2015 à 15:20

Enfin ce code est pour la fonction apres je ne sais pas comment attribuer ma message box au max...
je pensais à un truc comme ca :
MsgBox "La valeur max est " & " " & MMax "
Je suis un peu perdu :)

NHenry Messages postés 15176 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 28 décembre 2024 350
2 mai 2015 à 20:49

Sub Result()
Function MMax(O.cells(20,1), A.Cells(20,1), C.cells(20,1))

Tu déclare une fonction dans une sub ?
Il me semble que ce n'est pas possible, revois ton code.

Pour retourner une valeur dans une fonction, c'est NomDeLaFonction=Valeur.

Discussions similaires

Maxmaillots.net, vos avis

fiabilité du site maxmaillot

Max maillots

Avis - Football-max.net

La fonction FILTRE n'est plus reconnue