Fonction ou macro en VBA max if
Résolu
H5000
Messages postés
5
Statut
Membre
-
H5000 Messages postés 5 Statut Membre -
H5000 Messages postés 5 Statut Membre -
Bonjour,
je suis débutant sur vba et je souhaiterais créer une fonction ou macro qui me récupère le max d'une plage avec un critère donné .Je sais le faire en Excel et je souhaiterais le faire en VBA:
value1 value2 résultat souhaité
marc 5 5
marc 2 5
marc 4 5
jo 6 6
jo 2 6
elise 8 9
elise 9 9
j'ai essayé de le faire mais ça ne marche pas.
aussi ,je ne sais jamais s'il vaut mieux utiliser une fonction ou un sub ?
j'ai nommé ma feuille"test" et voici mon code :
Function maxif(r As Range)
Dim i As Integer
For i = 2 To ubound(r)
If Sheets("test").cells(i + 1, 1).Value = Sheets("test").celles(i, 1).Value Then
If Sheets("test").cells(i + 1, 1).Value > Sheets("test").cells(i, 1).Value Then
maxif= Sheets("test").cells(i + 1, 1).Value
End If
End If
Next
End Function
si vous avez un autre code à proposer ou des conseils ,je vous en remercie d'avance.
je suis débutant sur vba et je souhaiterais créer une fonction ou macro qui me récupère le max d'une plage avec un critère donné .Je sais le faire en Excel et je souhaiterais le faire en VBA:
value1 value2 résultat souhaité
marc 5 5
marc 2 5
marc 4 5
jo 6 6
jo 2 6
elise 8 9
elise 9 9
j'ai essayé de le faire mais ça ne marche pas.
aussi ,je ne sais jamais s'il vaut mieux utiliser une fonction ou un sub ?
j'ai nommé ma feuille"test" et voici mon code :
Function maxif(r As Range)
Dim i As Integer
For i = 2 To ubound(r)
If Sheets("test").cells(i + 1, 1).Value = Sheets("test").celles(i, 1).Value Then
If Sheets("test").cells(i + 1, 1).Value > Sheets("test").cells(i, 1).Value Then
maxif= Sheets("test").cells(i + 1, 1).Value
End If
End If
Next
End Function
si vous avez un autre code à proposer ou des conseils ,je vous en remercie d'avance.
A voir également:
- Fonction max vba
- Fonction si et - Guide
- Max maillot avis ✓ - Forum Consommation & Internet
- Driver max - Télécharger - Pilotes & Matériel
- I14 pro max - Accueil - Guide téléphones
- Fiabilité du site maxmaillot - Forum Consommation & Internet
Bravo,très élégante fonction, je te plussoie
cordialement