J'ai un classeur qui comprend de nombreuses feuilles=20
comportant elles m=EAmes plein de cellules nomm=E9es.
Je r=E9cup=E8re tous les noms de tous les classeurs en=20
faisant sur une nouvelle feuille Insertion ->Noms ->=20
Coller -> Coller une liste ce qui me r=E9m=E8ne quelque chose=20
du type :
Annee_Courante =3DMenu!$E$9
Annee1_Consult =3DMenu!$F$10
Annee1_Saisie =3DMenu!$F$12...
Sur ces feuilles, j'ai aussi des cases =E0 cocher (cr=E9es=20
avec la barre d'outil Formulaires) qui sont=20
nomm=E9es .Comment faire pour ramener leur noms. La m=E9thode=20
=E9voqu=E9e pr=E9cedemment ne marche pas.
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
Denis Michon
Bonjour Fabienne,
Ceci affiche le nom de tous les Checkbox contenu dans la feuille que tu identifieras dans la procédure .
'---------------------- Sub AfficherNomCaseÀCocher()
Dim A As Integer, Sh As Object
With Worksheets("Feuil1") For Each Sh In .CheckBoxes A = A + 1 .Range("A" & A) = Sh.Name
Next End With Set Object = Nothing
End Sub '----------------------
Salutations!
"fabienne HUÏEZ" a écrit dans le message de news:04b401c39e5b$5aab1580$ J'ai un classeur qui comprend de nombreuses feuilles comportant elles mêmes plein de cellules nommées. Je récupère tous les noms de tous les classeurs en faisant sur une nouvelle feuille Insertion ->Noms -> Coller -> Coller une liste ce qui me rémène quelque chose du type : Annee_Courante =Menu!$E$9 Annee1_Consult =Menu!$F$10 Annee1_Saisie =Menu!$F$12...
Sur ces feuilles, j'ai aussi des cases à cocher (crées avec la barre d'outil Formulaires) qui sont nommées .Comment faire pour ramener leur noms. La méthode évoquée précedemment ne marche pas.
merci pour vos réponses
Bonjour Fabienne,
Ceci affiche le nom de tous les Checkbox contenu dans la feuille que tu identifieras dans la procédure .
'----------------------
Sub AfficherNomCaseÀCocher()
Dim A As Integer, Sh As Object
With Worksheets("Feuil1")
For Each Sh In .CheckBoxes
A = A + 1
.Range("A" & A) = Sh.Name
Next
End With
Set Object = Nothing
End Sub
'----------------------
Salutations!
"fabienne HUÏEZ" <FVH4@wanadoo.fr> a écrit dans le message de news:04b401c39e5b$5aab1580$a101280a@phx.gbl...
J'ai un classeur qui comprend de nombreuses feuilles
comportant elles mêmes plein de cellules nommées.
Je récupère tous les noms de tous les classeurs en
faisant sur une nouvelle feuille Insertion ->Noms ->
Coller -> Coller une liste ce qui me rémène quelque chose
du type :
Annee_Courante =Menu!$E$9
Annee1_Consult =Menu!$F$10
Annee1_Saisie =Menu!$F$12...
Sur ces feuilles, j'ai aussi des cases à cocher (crées
avec la barre d'outil Formulaires) qui sont
nommées .Comment faire pour ramener leur noms. La méthode
évoquée précedemment ne marche pas.
Ceci affiche le nom de tous les Checkbox contenu dans la feuille que tu identifieras dans la procédure .
'---------------------- Sub AfficherNomCaseÀCocher()
Dim A As Integer, Sh As Object
With Worksheets("Feuil1") For Each Sh In .CheckBoxes A = A + 1 .Range("A" & A) = Sh.Name
Next End With Set Object = Nothing
End Sub '----------------------
Salutations!
"fabienne HUÏEZ" a écrit dans le message de news:04b401c39e5b$5aab1580$ J'ai un classeur qui comprend de nombreuses feuilles comportant elles mêmes plein de cellules nommées. Je récupère tous les noms de tous les classeurs en faisant sur une nouvelle feuille Insertion ->Noms -> Coller -> Coller une liste ce qui me rémène quelque chose du type : Annee_Courante =Menu!$E$9 Annee1_Consult =Menu!$F$10 Annee1_Saisie =Menu!$F$12...
Sur ces feuilles, j'ai aussi des cases à cocher (crées avec la barre d'outil Formulaires) qui sont nommées .Comment faire pour ramener leur noms. La méthode évoquée précedemment ne marche pas.
