Fonction Max
Résolu lepapillon2015 Messages postés 27 Date d'inscription Statut Membre Dernière intervention -
lepapillon2015 Messages postés 27 Date d'inscription Statut Membre Dernière intervention - 3 mai 2015 à 15:20
lepapillon2015 Messages postés 27 Date d'inscription Statut Membre Dernière intervention - 3 mai 2015 à 15:20
A voir également:
- Fonction Max
- Fonction si et - Guide
- I14 pro max - Accueil - Guide téléphones
- Driver max - Télécharger - Pilotes & Matériel
- Max ou netflix - Accueil - Streaming
- Fonction miroir - Guide
2 réponses
Bonjour
Un exemple
Cdlmnt
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 Statut Membre Dernière intervention
merci :)
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 ?
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...
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...