Est-il possible de récupérer les seuls noms concernant la feuille
utilisée et non plus la liste complète du fichier telle qu'elle apparaît
lorsque l'on clique sur la flèche a coté de l'annotation L26 C4 sur la
photo.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjout Od,
Sub Macro1() feuille = "=" & ActiveSheet.Name & "!" nbr = Len(feuille) For Each n In Names If Left(n.RefersTo, nbr) = feuille Then x = x + 1 Range("A" & x) = n.Name End If Next End Sub
la liste va se recopier sur la feuille active en débutant en A1
isabelle
od_37 a écrit :
Bonjour,
Est-il possible de récupérer les seuls noms concernant la feuille utilisée et non plus la liste complète du fichier telle qu'elle apparaît lorsque l'on clique sur la flèche a coté de l'annotation L26 C4 sur la photo.
http://cjoint.com/?cembzPSUyJ
merci pour vos réponses.
bonjout Od,
Sub Macro1()
feuille = "=" & ActiveSheet.Name & "!"
nbr = Len(feuille)
For Each n In Names
If Left(n.RefersTo, nbr) = feuille Then
x = x + 1
Range("A" & x) = n.Name
End If
Next
End Sub
la liste va se recopier sur la feuille active en débutant en A1
isabelle
od_37 a écrit :
Bonjour,
Est-il possible de récupérer les seuls noms concernant la feuille
utilisée et non plus la liste complète du fichier telle qu'elle apparaît
lorsque l'on clique sur la flèche a coté de l'annotation L26 C4 sur la
photo.
Sub Macro1() feuille = "=" & ActiveSheet.Name & "!" nbr = Len(feuille) For Each n In Names If Left(n.RefersTo, nbr) = feuille Then x = x + 1 Range("A" & x) = n.Name End If Next End Sub
la liste va se recopier sur la feuille active en débutant en A1
isabelle
od_37 a écrit :
Bonjour,
Est-il possible de récupérer les seuls noms concernant la feuille utilisée et non plus la liste complète du fichier telle qu'elle apparaît lorsque l'on clique sur la flèche a coté de l'annotation L26 C4 sur la photo.