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.
J'ai également essayé avec set plagerang.name=nomfeuille & ray13
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Rien n'y fait
Je vous remercie pour votre aide
Cordialement
Partager