Bonsoir Peka, bonsoir le forum,
En pièce jointe ton fichier avec une la fonction personnalisée ci-dessous :
Public Function MAXSI(M As Range, PL As Range)
Dim LM As Integer 'déclare la variable LM (Limite Maximum)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim VM As Integer 'déclare la variable VM (Valeur Maximum)
LM = M.Value 'définit la limite maximum LM
For Each CEL In PL 'boucle sur toutes les cellules de la plage PL
If IsNumeric(CEL.Value) = True Then 'condition : si la cellule est numérique
'si la valeur de la cellue est supérieure à la valeur maximale et inférieure à la limite maximale
'alors Vm devient la valeur de la celllue CEL
If CEL.Value > VM And CEL.Value < LM Then VM = CEL.Value
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
MAXSI = VM 'la fonction MAXSI renvoie la valeur maxilame VM
End Function
Pour l'utiliser :
• sélectionne la cellule dans laquelle tu veux avoir le résultat
• clique sur fx (insérer un fonction) et choisi MAXSI dans la liste (catégorie Personnalisées)
• dans le premier champ, sélectionne la limite maximale (B2 dans ton exemple)
• dans le deuxième champ sélectionne la plage où la fonction va agir (A5:L10) dans ton exemple)
• Valide et tu auras le résultat
Tu pourras évidement utiliser cette fonction n'importe où ailleurs en respectant les deux champs...
[Édition]
Ooops je vois que je suis grave en retard ! Bonsoir Mbbp, Assalam Alaykhoum mon Cher Rachid...