nommer la feuille active

[modus57]

Bonjour le forum

Je souhaiterais par macro nommer la feuille active en fonction de la valeur contenue dans une de ses cellules (E3 dans mon exemple).

Verifier que les autre feuilles n'ont pas le même nom, si c'est le cas, le nom pour la feuille active n'est pas attribué et la valeur de E3 ne doit pas être modifié.

Dans le cas contraire modifié le nom la feuille active en fonction de la valeur contenue dans la cellules E3

Je joins un exemple qui ne fonctionne pas, à améliorer.

Si quelqu'un peut m'aider merci d'avance.

Bon aprés-midi

[file name=exemplenommerfeuille.zip size=8205]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exemplenommerfeuille.zip[/file]

 

[mutzik]

Bonjour Modus57,

j'ai enlevé les msgbox et cela fonctionne correctement chez moi ???

 

[vekmort]

Bonjour,

Un petit essai avec la macro suivante à coller dans le code du Workbook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.Name = Sheets(1).Range('e2') 'Référence nom de la feuille active
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Name = Sh.Index
End Sub

Bonne fin de journée

Vekmort

 

[Excel_lent]

Salut à tous

Une autre proposition.

@+ [file name=nomfeulle.zip size=7835]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nomfeulle.zip[/file]

 

[modus57]

Bonsoir Excel-ence :whistle:

Bravo c'est exactement ce que je cherchais, j'ais fais compliqué alors que ton code est simple et efficace encore bravo et merci.

Et tous mes remerciements à vekmort et mutzik

Bonne soirée à tous.