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
Michd
Bonjour, Cet événement est valide que pour la feuille-module dans laquelle le code est inscrit. L'expression "Me" désigne la feuille où tu l'inscris dans son module. L'expression "Me" ne peut pas être utilisée dans les modules standards seulement dans les modules de classe (ThisWorkbook, module feuille ou dans un module de classe que tu insères. '------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target <> "" Then Me.Name = Target End Sub '------------------------- Ceci s'applique à toutes les feuilles du classeur, dès que tu modifies la valeur de la cellule A1, le nom de l'onglet de la feuille change immédiatement. '-------------------------- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" And Target <> "" Then Sh.Name = Target.Value End If End Sub '-------------------------- MichD
Bonjour,
Cet événement est valide que pour la feuille-module dans laquelle le code est inscrit.
L'expression "Me" désigne la feuille où tu l'inscris dans son module. L'expression "Me" ne peut pas
être utilisée dans les modules standards seulement dans les modules de classe (ThisWorkbook, module
feuille ou dans un module de classe que tu insères.
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then
Me.Name = Target
End Sub
'-------------------------
Ceci s'applique à toutes les feuilles du classeur, dès que tu modifies la valeur de la cellule A1,
le nom de l'onglet de la feuille change immédiatement.
'--------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" And Target <> "" Then
Sh.Name = Target.Value
End If
End Sub
'--------------------------
Bonjour, Cet événement est valide que pour la feuille-module dans laquelle le code est inscrit. L'expression "Me" désigne la feuille où tu l'inscris dans son module. L'expression "Me" ne peut pas être utilisée dans les modules standards seulement dans les modules de classe (ThisWorkbook, module feuille ou dans un module de classe que tu insères. '------------------------- Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" And Target <> "" Then Me.Name = Target End Sub '------------------------- Ceci s'applique à toutes les feuilles du classeur, dès que tu modifies la valeur de la cellule A1, le nom de l'onglet de la feuille change immédiatement. '-------------------------- Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" And Target <> "" Then Sh.Name = Target.Value End If End Sub '-------------------------- MichD
Michd
Oups! J'oubliais, le nom de la feuille ne peut contenir plus de 31 caractères et certains caractères ( / ? : * ) ne peuvent pas, être utilisés dans l'orthographe du nom de la feuille. Par conséquent, ces caractères ne doivent pas apparaître dans la cellule A1. La procédure ne contient pas une gestion d'erreur, le cas échéant. MichD
Oups! J'oubliais, le nom de la feuille ne peut contenir plus de 31 caractères et certains caractères
( / ? : * ) ne peuvent pas, être utilisés dans l'orthographe du nom de la feuille. Par conséquent,
ces caractères ne doivent pas apparaître dans la cellule A1. La procédure ne contient pas une
gestion d'erreur, le cas échéant.
Oups! J'oubliais, le nom de la feuille ne peut contenir plus de 31 caractères et certains caractères ( / ? : * ) ne peuvent pas, être utilisés dans l'orthographe du nom de la feuille. Par conséquent, ces caractères ne doivent pas apparaître dans la cellule A1. La procédure ne contient pas une gestion d'erreur, le cas échéant. MichD