Afficher le nom de la plage
Résolu/Fermé
RachelMartel
Messages postés
435
Date d'inscription
mardi 14 mai 2013
Statut
Membre
Dernière intervention
24 mars 2021
-
Modifié par RachelMartel le 29/11/2013 à 19:36
Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 - 30 nov. 2013 à 16:07
Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 - 30 nov. 2013 à 16:07
5 réponses
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
29 nov. 2013 à 22:18
29 nov. 2013 à 22:18
Bonsoir,
Oui mais seulement en VBA, et combien y a t il de plage nommée sur la feuille ?
Oui mais seulement en VBA, et combien y a t il de plage nommée sur la feuille ?
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
29 nov. 2013 à 22:59
29 nov. 2013 à 22:59
Re,
Une centaine, cela fait un peu beaucoup non !
et sur une feuille ou réparti sur le classeur ?
de toute façon le problème ne pourra se traiter que par VBA si tu as quelques notions
Une centaine, cela fait un peu beaucoup non !
et sur une feuille ou réparti sur le classeur ?
de toute façon le problème ne pourra se traiter que par VBA si tu as quelques notions
RachelMartel
Messages postés
435
Date d'inscription
mardi 14 mai 2013
Statut
Membre
Dernière intervention
24 mars 2021
25
29 nov. 2013 à 23:07
29 nov. 2013 à 23:07
Oui, je sais que c'est beaucoup :P Je crois que je vais m'en sortir autrement.
J'aurais cru qu'il y aurait peut-être eu une fonction un peu comme CELLULE(Adresse;A1).
Genre PLAGE(Nom;A1;E1). Je devrais écrire à Microsoft pour leur suggérer mon idée :P
Merci quand même!
J'aurais cru qu'il y aurait peut-être eu une fonction un peu comme CELLULE(Adresse;A1).
Genre PLAGE(Nom;A1;E1). Je devrais écrire à Microsoft pour leur suggérer mon idée :P
Merci quand même!
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
30 nov. 2013 à 09:23
30 nov. 2013 à 09:23
Bonjour,
Tu peux tester cette macro
A+
Tu peux tester cette macro
Sub Nom_Plage()
Dim N As Name
For Each N In ActiveWorkbook.Names
Range(N.RefersTo)(Range(N.RefersTo).Count).Value = N.Name
Next N
End Sub
A+
Mike-31
Messages postés
18342
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
2 novembre 2024
5 103
30 nov. 2013 à 10:32
30 nov. 2013 à 10:32
Re,
ou pour ceux que ça peut intéresser ce code liste les plages nommée dans l'exemple ceux de la feuille nommée "Feuil1" et liste colonne A et lien hypertexte vers les plages nommées colonne C
Sub NomsPlages_Sur_Feuilles()
Dim M As Name
Dim PlageNom As Range
Dim i As Byte
Dim NumLigne As Byte
NumLigne = 1 '------------------------------------ =1 équivat ligne 1
On Error Resume Next
For Each M In Worksheets("Feuil1").Parent.Names
Set PlageNom = Nothing
Set PlageNom = M.RefersToRange
If Not PlageNom Is Nothing Then
If Worksheets("Feuil1").Index = PlageNom.Worksheet.Index Then
Cells(NumLigne, 1) = M.Name '----------------1) équivaut colonne A
'---------------------------- crée lien hypertexte vers plages nommées
Worksheets("Feuil1").Hyperlinks.Add Anchor:=Cells(NumLigne, 3), _
Address:="", SubAddress:=M.RefersToRange.Address(external:=True)
NumLigne = NumLigne + 1
End If
End If
Next M
End Sub
ou pour ceux que ça peut intéresser ce code liste les plages nommée dans l'exemple ceux de la feuille nommée "Feuil1" et liste colonne A et lien hypertexte vers les plages nommées colonne C
Sub NomsPlages_Sur_Feuilles()
Dim M As Name
Dim PlageNom As Range
Dim i As Byte
Dim NumLigne As Byte
NumLigne = 1 '------------------------------------ =1 équivat ligne 1
On Error Resume Next
For Each M In Worksheets("Feuil1").Parent.Names
Set PlageNom = Nothing
Set PlageNom = M.RefersToRange
If Not PlageNom Is Nothing Then
If Worksheets("Feuil1").Index = PlageNom.Worksheet.Index Then
Cells(NumLigne, 1) = M.Name '----------------1) équivaut colonne A
'---------------------------- crée lien hypertexte vers plages nommées
Worksheets("Feuil1").Hyperlinks.Add Anchor:=Cells(NumLigne, 3), _
Address:="", SubAddress:=M.RefersToRange.Address(external:=True)
NumLigne = NumLigne + 1
End If
End If
Next M
End Sub
ccm81
Messages postés
10900
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
2 novembre 2024
2 423
Modifié par ccm81 le 30/11/2013 à 15:47
Modifié par ccm81 le 30/11/2013 à 15:47
Bonjour à tous
Un autre exemple avec la formule définissant la plage
https://www.cjoint.com/?3KEpM3NtMsp
Cdlmnt
Un autre exemple avec la formule définissant la plage
https://www.cjoint.com/?3KEpM3NtMsp
Cdlmnt
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Boisgontierjacques
Messages postés
175
Date d'inscription
jeudi 19 septembre 2013
Statut
Membre
Dernière intervention
26 décembre 2018
64
Modifié par Boisgontierjacques le 30/11/2013 à 16:08
Modifié par Boisgontierjacques le 30/11/2013 à 16:08
Bonjour,
Fonction affichant les noms de champ d'un classeur. La fonction est mise à jour dynamiquement.
Function ListeNoms()
Application.Volatile
Dim n As Name
Dim a()
ReDim a(1 To Application.Caller.Rows.Count, 1 To 2)
i = 1
For Each n In ActiveWorkbook.Names
a(i, 1) = n.Name
a(i, 2) = n
i = i + 1
Next n
ListeNoms = a
End Function
Sélectionner A2:B10
=listenoms()
Valider avec maj+ctrl+entrée
https://www.cjoint.com/c/CKEqhatXs8o
Jacques Boisgontier
Fonction affichant les noms de champ d'un classeur. La fonction est mise à jour dynamiquement.
Function ListeNoms()
Application.Volatile
Dim n As Name
Dim a()
ReDim a(1 To Application.Caller.Rows.Count, 1 To 2)
i = 1
For Each n In ActiveWorkbook.Names
a(i, 1) = n.Name
a(i, 2) = n
i = i + 1
Next n
ListeNoms = a
End Function
Sélectionner A2:B10
=listenoms()
Valider avec maj+ctrl+entrée
https://www.cjoint.com/c/CKEqhatXs8o
Jacques Boisgontier
29 nov. 2013 à 22:52
Actuellement je ne sais pas combien il va y avoir de plage nommée, mais il y en aura certainement une bonne centaine. Je suis en train d'élaborer un fichier qui contiendra plusieurs données.