utilisation fonction rank avec plage nommee
J'ai définit des plages nommées pour effectuer des calculs de rang par rapport à différents rayons
Ex :
Ray13 valeur
Ray 13 valeur
Ray 13 valeur
Rayon12 valeur
Ray12 valeur
Les noms de plages de cellules reprennent le nom de la feuille (acyivesheet .name& le nom du rayon)
Une plage nommée pour ray13 : juinray13
Une plage nommée pour rayon 12 : juinray12
J'ai fait une macro, ça marche bien
Ayant plus de 6 rayons je ne peux faire un Si car n'accepte que 6 sous conditions.
Je fais une function afin d'envoyer dans ma fonction range le tri dans la plage nommée correspondante.
Il ne parvient pas à évaluer la plage nommée dans ma fonction Rank.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Function calculrang(rayon As Integer, cellule)
'JE RECHERCHE LE NOM DE LA FEUILLE POUR AVOIR LE NOM DE LA PLAGE RAYON
Dim Nomfeuille As String
Dim plagerang As Range
Nomfeuille = ActiveSheet.Name
'EN FONCTION DU NUMERO DE RAYON JE CALCUL LE RANG
Select Case rayon
'LE RAYON =13
Case 13
plagerang = Nomfeuille & "ray13"
calculrang = Application.WorksheetFunction.Rank(cellule, plagerang, 1)
'CAS OU RAYON =12
Case 12
plagerang = Nomfeuille & "ray12"
calculrang = Application.WorksheetFunction.Rank(cellule, plagerang, 1)
End Select
End Function |
J'ai également essayé avec set plagerang.name=nomfeuille & ray13
Rien n'y fait
Je vous remercie pour votre aide
Cordialement