Bonjour,

je cherche a faire une fonction numéro de paragraphe qui sera insérée dans une cellule: Par()

en utilisant Application.Caller est il possible d'affecter directement l index ?

Par exemple

le 1er Par() rencontré dans le classeur prend la valeur 1

le 2eme Par() rencontré dans le classeur prend la valeur 2

Application.Caller.Index ne fonctionne pas

merci

Mon rêve c'est ca.....:

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
 
Function Par() As Variant
 
    Dim Fonction As Application.Caller
 
    For Each Fonction In ThisWorkbook.Fonction
 
        If Fonction.Name = Par Then
 
            Par() = Fonction.Index
 
        End If
 
    Next Fonction
 
End Function
bien sur ca ne marche carrement pas.............