Application d'un nom de cellule sur tout le classeur

[ingel]

Bonsoir,

J'aimerai appliquer un nom de cellule sur toutes les feuilles actives, mais a chaque fois j'ai un message d'erreur "Le nom entré existe déjà, entrez un nom unique"

y a t'il un moyen de résoudre ce problème en utilisant un code vba

merci

 

[DoubleZero]

Re : Application d'un nom de cellule sur tout le classeur

Bonjour, ingel, le Forum,

Peut-être ainsi :

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.[a4].Name = "toto"
End Sub

A bientôt

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

bonsoir,
j'ai deja essayer, sa marche uniquement avec la dernière feuil

 

[Staple1600]

Re : Application d'un nom de cellule sur tout le classeur

Bonsoir à tous

ingel
Ne jamais oublier la touche F1 (affiche l'aide d'Excel) qui doit dire la même chose que ci-dessous...
Attribuer un nom aux cellules d'un classeur - Excel
(voir la section : Pour nommer des cellules dans plusieurs feuilles de calcul à l'aide d'une référence 3D)

EDITION: Re, 00 (je te laisse trouver dans quel fil je t'ai déjà saluer aujourd'hui )

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

Merci agraffe je vais jetter un coup d'oeil

 

[DoubleZero]

Re : Application d'un nom de cellule sur tout le classeur

Re-bonjour, bonjour, Staple1600 ,

Merci trombone...

"trombone" ... Z'avez dit "trombone" ?

A bientôt

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

oui c'est cela, mais comment faire cela en vba et surtout que le nombre de feuilles est variable
merci encore

 

[Staple1600]

Re : Application d'un nom de cellule sur tout le classeur

Re

ingel
Pour le faire en VBA, il suffit de le faire manuellement tout en laissant tourner l’enregistreur de macros, non ?

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

Re

ingel
Pour le faire en VBA, il suffit de le faire manuellement tout en laissant tourner l’enregistreur de macros, non ?

oui mais mes feuilles sont variables d'une exécution a une autre, je pense a une boucle mais je ne maitrise pas trop le sujet

 

[laurent950]

Re : Application d'un nom de cellule sur tout le classeur

Bonjour,

Ce code est a placé dans le module ---->>> ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each c In Worksheets
    c.Cells(15, 11) = "TOTO"
Next c
End Sub

Laurent

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

Bonjour,

Ce code est a placé dans le module ---->>> ThisWorkbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each c In Worksheets
    c.Cells(1, 1) = "TOTO"
Next c
End Sub

Laurent

sa marche pas, la cellule que je veut nommer est la K15

 

[laurent950]

Re : Application d'un nom de cellule sur tout le classeur

C'est Normal
la cellule c.Cells(15, 11) = "TOTO" ' c.Cells(15, 11) 15 pour le numéro de ligne et 11 le numéro de colone soit : K15

J'ai corrigé le poste #10 donc cela devrait être OK

Laurent

 

[ingel]

Re : Application d'un nom de cellule sur tout le classeur

Merci problème résolu

 

[Dranreb]

Re : Application d'un nom de cellule sur tout le classeur

Bonsoir.
Est-ce bien quand même ce que vous vouliez: un seul nom dans le classeur dont la référence change à chaque fois qu'on active une feuille ?
Parce qu'il y aurait aussi possibilité de définir autant de nom identiques mais chacun étant propre à chaque feuille, en les préfixant du nom de la feuille, éventuellement encadré de "'", suivi d'un "!". Ou bien ajouter le nom par un .Names.Add à la collection Names de la feuille au lieu de celle du classeur, ce qui revient au même résultat puisqu'un nom d'une Worksheet.Names est aussi un nom de la Workbook.Names avec un préfixe de nom de feuille.