Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellule

JCGL

XLDnaute Barbatruc

• 17 Février 2014

• #2

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Bonjour à tous,

Dans le module ThisWorkBook :

VB:

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Name = Cells(1, 2)
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

D

dguillerme

XLDnaute Junior

• 17 Février 2014

• #3

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Bonsoir et merci pour votre réponse.

Je suis loin d'être un expert VBA. J'ai donc quelques questions car je n'ai pas réussi à faire fonctionner ce code.
Faut-il remplacer Cells (1, 2) par le nom de la cellule concernée?
Une fois que j'ai copié le code, faut-il laisser les options par défaut? (WorkBook et SheetActivate)
Dois-je enregistrer la macro?

Merci beaucoup!

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Février 2014

• #4

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Bonjour à tous,

Cells(1,2) correspond à B1 (Cells(Ligne,Colonne) donc à toi d'adapter.
Je ne comprends pas le coup des Options par défaut.

Le fichier tout prêt.

A+ à tous

 

Pièces jointes

• JC Onglet_num.xlsm

  19.8 KB · Affichages: 40

Vote positif 0 Vote négatif

D

dguillerme

XLDnaute Junior

• 17 Février 2014

• #5

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Ok j'ai compris. Merci beaucoup, j'obtiens bien le résultat voulu.

Serait-il possible d'exempter les deux premières feuilles du classeur de ce script?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Février 2014

• #6

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Bonjour à tous,

Remplacer le nom des onglets par le nom souhaité :

VB:

Option Explicit


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "Test" And ActiveSheet.Name <> "Essai" Then ActiveSheet.Name = Cells(1, 2)
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 17 Février 2014

• #7

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

salut

et pour éviter des messages d'erreur,

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Then Exit Sub
  On Error GoTo 1
  Sh.Name = [B1]: Exit Sub
1 MsgBox "la feuille  " & [B1] & " existe déjà !", vbCritical, "Action avortée ..."
End Sub

bien sûr Si... aucune erreur n'est envisageable, tout simplement avec la variariable du ByVal Sh As Object,

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name = "Feuil1" Or Sh.Name = "Feuil2" Then Exit Sub
  Sh.Name = [B1]
End Sub

 

Vote positif 0 Vote négatif

D

dguillerme

XLDnaute Junior

• 18 Février 2014

• #8

Re : Nommer automatiquement les noms des feuilles en fonction du contenu d'une cellul

Merci beaucoup!

 

Vote positif 0 Vote négatif