Bonjour
J'aimerais nommer automatiquement l'onglet de la feuille en cliquant dans la
cellule A1 qui autorise seulement une liste de données par le menu
"validation". Cette feuille est protégée.
J'ai essayer de me servir du code pris sur le site de Frédéric SIGONNEAU
J'ai essayé de la mettre dans un module, dans le Visual Basic de la feuille
et dans ThisWorkBook, mais rien de rien...
Attribute VB_Name = "NomOngletFeuille"
'renvoie le nom de la feuille de la cellule où la fonction
'est appelée.
'mise à jour si la feuille change de nom
'Vasant Nanavati, mpep
Function SheetName() As String
Application.Volatile
SheetName = Application.Caller.Parent.Name
End Function
Alors je coince vraiment.....
Si quelqu'un a une solution
Merci à tous ceux qui auront lu ce message jusqu'au bout
Remerciements très sincères à tous ceux qui tenteront de m'apporter une
solution
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
papou
Bonjour CLic droit sur l'onglet de ta feuille et colle ceci : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> "" Then ActiveSheet.Name = Target.Value End If End Sub
Cordialement Pascal
"Patrick" a écrit dans le message de news:%23nobuQ%
Bonjour J'aimerais nommer automatiquement l'onglet de la feuille en cliquant dans la
cellule A1 qui autorise seulement une liste de données par le menu "validation". Cette feuille est protégée.
J'ai essayer de me servir du code pris sur le site de Frédéric SIGONNEAU J'ai essayé de la mettre dans un module, dans le Visual Basic de la feuille
et dans ThisWorkBook, mais rien de rien... Attribute VB_Name = "NomOngletFeuille"
'renvoie le nom de la feuille de la cellule où la fonction 'est appelée. 'mise à jour si la feuille change de nom
'Vasant Nanavati, mpep Function SheetName() As String Application.Volatile SheetName = Application.Caller.Parent.Name End Function
Alors je coince vraiment.....
Si quelqu'un a une solution Merci à tous ceux qui auront lu ce message jusqu'au bout Remerciements très sincères à tous ceux qui tenteront de m'apporter une solution
Patrick
Bonjour
CLic droit sur l'onglet de ta feuille et colle ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value <> "" Then ActiveSheet.Name = Target.Value
End If
End Sub
Cordialement
Pascal
"Patrick" <patdupin@club-internet.fr> a écrit dans le message de
news:%23nobuQ%23QEHA.2704@TK2MSFTNGP10.phx.gbl...
Bonjour
J'aimerais nommer automatiquement l'onglet de la feuille en cliquant dans
la
cellule A1 qui autorise seulement une liste de données par le menu
"validation". Cette feuille est protégée.
J'ai essayer de me servir du code pris sur le site de Frédéric SIGONNEAU
J'ai essayé de la mettre dans un module, dans le Visual Basic de la
feuille
et dans ThisWorkBook, mais rien de rien...
Attribute VB_Name = "NomOngletFeuille"
'renvoie le nom de la feuille de la cellule où la fonction
'est appelée.
'mise à jour si la feuille change de nom
'Vasant Nanavati, mpep
Function SheetName() As String
Application.Volatile
SheetName = Application.Caller.Parent.Name
End Function
Alors je coince vraiment.....
Si quelqu'un a une solution
Merci à tous ceux qui auront lu ce message jusqu'au bout
Remerciements très sincères à tous ceux qui tenteront de m'apporter une
solution
Bonjour CLic droit sur l'onglet de ta feuille et colle ceci : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value <> "" Then ActiveSheet.Name = Target.Value End If End Sub
Cordialement Pascal
"Patrick" a écrit dans le message de news:%23nobuQ%
Bonjour J'aimerais nommer automatiquement l'onglet de la feuille en cliquant dans la
cellule A1 qui autorise seulement une liste de données par le menu "validation". Cette feuille est protégée.
J'ai essayer de me servir du code pris sur le site de Frédéric SIGONNEAU J'ai essayé de la mettre dans un module, dans le Visual Basic de la feuille
et dans ThisWorkBook, mais rien de rien... Attribute VB_Name = "NomOngletFeuille"
'renvoie le nom de la feuille de la cellule où la fonction 'est appelée. 'mise à jour si la feuille change de nom
'Vasant Nanavati, mpep Function SheetName() As String Application.Volatile SheetName = Application.Caller.Parent.Name End Function
Alors je coince vraiment.....
Si quelqu'un a une solution Merci à tous ceux qui auront lu ce message jusqu'au bout Remerciements très sincères à tous ceux qui tenteront de m'apporter une solution
