Afficher le nom de la plage
Résolu
RachelMartel
Messages postés
435
Date d'inscription
Statut
Membre
Dernière intervention
-
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
Boisgontierjacques Messages postés 175 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Afficher le nom de la plage
- Afficher le nom de mon entreprise quand j'appelle - Forum Mobile
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? - Forum Graphisme
- Nom de compte steam exemple - Forum Jeux vidéo
- Nom de l'adresse - Forum Jeux vidéo
- Changer le nom de son iphone - Guide
5 réponses
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
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
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
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
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.