ludo27
XLDnaute Junior
bonjour,
j'ai développé une petite fonction qui permet de retrouver le premier Name défini sur un range passé en paramètre :
la ligne
me donne l'erreur :
Je n'arrive pas à parcourir tous les Names du classeur et à comparer la valeur de leur attribut RefersToR1C1.
Si quelqu'un a une idée, ou une autre manière de récupérer le name d'un range ...
Merci
j'ai développé une petite fonction qui permet de retrouver le premier Name défini sur un range passé en paramètre :
Code:
Function SearchName(MyRange As Range, Optional bGlobal As Boolean = True) As Name
Dim N As Name
On Error GoTo error_SearchName
If (bGlobal) Then
For Each N In MyRange.Application.ActiveWorkbook.Names
If N.RefersToR1C1 = MyRange Then
Set SearchName = N
Exit Function
End If
Next N
Else:
For Each N In MyRange.Worksheet.Names
If N.RefersToR1C1 = MyRange Then
Set SearchName = N
Exit Function
End If
Next N
End If
Exit Function
error_SearchName:
Set SearchName = Null
End Function
la ligne
Code:
If N.RefersToR1C1 = MyRange Then
Incompatibilité de type
Je n'arrive pas à parcourir tous les Names du classeur et à comparer la valeur de leur attribut RefersToR1C1.
Si quelqu'un a une idée, ou une autre manière de récupérer le name d'un range ...
Merci