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
A voir également:
- Afficher le nom de la plage
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- 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
- Dans le diaporama à télécharger, les diapositives s’enchaînent automatiquement. combien de temps la diapositive crayon met-elle à s’afficher ? combien de temps reste-t-elle affichée à l’écran ? ✓ - Forum Powerpoint
- Afficher mot de passe wifi android - Guide
5 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 111
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
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 111
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
524
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
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 111
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
10907
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 janvier 2025
2 429
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.