Un nom de feuille en référence à une cellule??

[David]

Bonjour les pros d'excel !!

Est-il possible d'avoir le nom d'une feuille qui se nomme automatiquement en fonction d'une cellule présente sur la feuille en question?

Exemple : su ma feuille A, qui parle des fruits, en remplissant la cellule A1 par 'FRUITS', la feuille se nomme auttomatiquement 'FRUITS'.

Merci de vos conseils!!

David.

 

[Gérard DEZAMIS]

Bonjour David

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
ActiveSheet.Name = Cells(1, 1).Value
Application.ScreenUpdating = True
End Sub

Ton onglet sera renommé lorsque la feuille sera sélectionnée

@+GD

 

[Hervé]

Bonjour david, gerard

Une autre approche :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
        ActiveSheet.Name = Target
End If
End Sub

la feuille est renommé des changement en A1.

salut

 

[Gérard DEZAMIS]

Re David
Salut Hervé

Bien joué, approche, touché , coulé !

C'est effectivement plus rapide, donc plus rentable !
J'ai essayé ton code dans Workbook pour que cela puisse fonctionner sur toutes les feuilles (flemme quand tu nous tiens ...)
So morche pô !

Tu as bien une petite astuce qui traîne non ?
(ou alorsd une erreur de ma part...) Merci d'avance

@+GD

 

[Hervé]

re david, gérard

ben, normalement dans le workbook, tu devrais pas avoir de souci.

as-tu bien utilisé la bonne évenementielle :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address(0, 0) = 'A1' Then
                Sh.Name = Target
End If
End Sub

j'ai remplacé activesheet par sh par convention, mais ceci ne gêne pas.

salut

 

[david]

Euh... excusez moi mais c'est quoi ce langage d'ovni là?



Ou dois-je rentrer ces lignes hieroglyphiques? :unsure:

J'ai oublie de vous prévenir : je suis une pistache ne excel... :lol:

a bientot !!

 

[Gérard DEZAMIS]

Re RV
1000 excuses j'avais tout simplement balancé le tout dans Workbook sans modifier l'evenementielle...
au lieu de Workbook_SheetChange j'avais
Worksheet_Change...

hmy: Interdit de rire ! hmy:

Merci encore
Bien amicalement
@+GD

 

[Hervé]

re

pas de problème gérard

david

une pistache lol

ces signes, c'est des procédures VBA, à copier coller dans VBE.

choisi ou la premiere macro de gérard ou ma premiere.

puis dans la feuille concerné, clique droit sur le nom de ton onglet puis choisi visualiser le code.

vbe va s'ouvrir avec une jolie feuille blanche.

colle la macro de ton choix.

puis referme vbe par la petite croix(la croix rouge), et saisi un nom en A1 (penses à valider ta saisie).

et voilà.

salut