Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le nom
correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme
JJ-M-AA
qui doit être reportée dans mon onglet automatiquement. Et dans un classeur
je peux avoir 20 onglets.
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
Daniel
Bonjour. Essaie : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub ActiveSheet.Name = Range("C8").Value End Sub Cordialement. Daniel "LILI87" a écrit dans le message de news:
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le nom correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme JJ-M-AA qui doit être reportée dans mon onglet automatiquement. Et dans un classeur je peux avoir 20 onglets.
Merci à tous pour un petit coup de main
Lili87
Bonjour.
Essaie :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub
ActiveSheet.Name = Range("C8").Value
End Sub
Cordialement.
Daniel
"LILI87" <LILI87@discussions.microsoft.com> a écrit dans le message de news:
10BAB14D-E3C5-4336-A621-99C13C144533@microsoft.com...
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le
nom
correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme
JJ-M-AA
qui doit être reportée dans mon onglet automatiquement. Et dans un
classeur
je peux avoir 20 onglets.
Bonjour. Essaie : Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub ActiveSheet.Name = Range("C8").Value End Sub Cordialement. Daniel "LILI87" a écrit dans le message de news:
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le nom correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme JJ-M-AA qui doit être reportée dans mon onglet automatiquement. Et dans un classeur je peux avoir 20 onglets.
Merci à tous pour un petit coup de main
Lili87
ChrisV
Bonjour LILI87,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) If Target.Address <> "$C$8" Then Exit Sub On Error GoTo gesErr ActiveSheet.Name = [C8]: End gesErr: [C8].Select MsgBox Error(Err) End Sub
ChrisV
"LILI87" a écrit dans le message de news:
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le nom correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme JJ-M-AA qui doit être reportée dans mon onglet automatiquement. Et dans un classeur je peux avoir 20 onglets.
Merci à tous pour un petit coup de main
Lili87
Bonjour LILI87,
Dans la feuille de code de ThisWorkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Address <> "$C$8" Then Exit Sub
On Error GoTo gesErr
ActiveSheet.Name = [C8]: End
gesErr:
[C8].Select
MsgBox Error(Err)
End Sub
ChrisV
"LILI87" <LILI87@discussions.microsoft.com> a écrit dans le message de news:
10BAB14D-E3C5-4336-A621-99C13C144533@microsoft.com...
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le
nom
correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme
JJ-M-AA
qui doit être reportée dans mon onglet automatiquement. Et dans un
classeur
je peux avoir 20 onglets.
Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Target As Range) If Target.Address <> "$C$8" Then Exit Sub On Error GoTo gesErr ActiveSheet.Name = [C8]: End gesErr: [C8].Select MsgBox Error(Err) End Sub
ChrisV
"LILI87" a écrit dans le message de news:
Bonjour
Pourriez vous m'indiquer la marche à suivre pour que mon onglet porte le nom correspondant à une cellule. Ex: en C8 je veux mettre une date sous forme JJ-M-AA qui doit être reportée dans mon onglet automatiquement. Et dans un classeur je peux avoir 20 onglets.
