je vous pose un pb (pas sur que ca soit possible de solutionner)
dans une feuille excel,
onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de l'onglet
de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2 ils mets
damien )
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
Ardus Petus
Private Sub Worksheet_Change(ByVal Target As Range) Dim rRange As Range Set rRange = Range("A1") If Not Intersect(Target, rRange) Is Nothing Then Worksheets(2).name = rRange.Text End If End Sub
A coller dans le code de la feuille 1
Cordialement -- AP
"damien" a écrit dans le message de news: 446ed35e$0$309$
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner) dans une feuille excel, onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2 ils mets damien )
merci pour vos sugestion !!!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRange As Range
Set rRange = Range("A1")
If Not Intersect(Target, rRange) Is Nothing Then
Worksheets(2).name = rRange.Text
End If
End Sub
A coller dans le code de la feuille 1
Cordialement
--
AP
"damien" <damienguilbert@free.fr> a écrit dans le message de news:
446ed35e$0$309$626a54ce@news.free.fr...
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner)
dans une feuille excel,
onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de
l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2
ils mets damien )
Private Sub Worksheet_Change(ByVal Target As Range) Dim rRange As Range Set rRange = Range("A1") If Not Intersect(Target, rRange) Is Nothing Then Worksheets(2).name = rRange.Text End If End Sub
A coller dans le code de la feuille 1
Cordialement -- AP
"damien" a écrit dans le message de news: 446ed35e$0$309$
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner) dans une feuille excel, onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2 ils mets damien )
merci pour vos sugestion !!!
papou
Bonjour Clic droit sur l'onglet de ta feuille, Visualiser le code et tu positionnes les lignes suivantes dans la page blanche à droite. Tu modifies éventuellement le code en utilisant le CodeName de la feuille que tu veux renommer (le codename est le premier nom de ta feuille apparaissant dans l'explorateur de projet dans VBA - soit donc avant le nom entre parenthèses) Tu fermes l'éditeur VBA et tu saisis un nom de feuille en A1 sur ta feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub On Error GoTo YaUnOs Feuil2.Name = Target.Value Exit Sub
YaUnOs: MsgBox "Le nom de feuille saisi en A1 est incorrect", vbInformation, "Incorrect" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End Sub
Cordialement Pascal
"damien" a écrit dans le message de news: 446ed35e$0$309$
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner) dans une feuille excel, onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2 ils mets damien )
merci pour vos sugestion !!!
Bonjour
Clic droit sur l'onglet de ta feuille, Visualiser le code et tu positionnes
les lignes suivantes dans la page blanche à droite.
Tu modifies éventuellement le code en utilisant le CodeName de la feuille
que tu veux renommer (le codename est le premier nom de ta feuille
apparaissant dans l'explorateur de projet dans VBA - soit donc avant le nom
entre parenthèses)
Tu fermes l'éditeur VBA et tu saisis un nom de feuille en A1 sur ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
On Error GoTo YaUnOs
Feuil2.Name = Target.Value
Exit Sub
YaUnOs:
MsgBox "Le nom de feuille saisi en A1 est incorrect", vbInformation,
"Incorrect"
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End Sub
Cordialement
Pascal
"damien" <damienguilbert@free.fr> a écrit dans le message de news:
446ed35e$0$309$626a54ce@news.free.fr...
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner)
dans une feuille excel,
onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de
l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2
ils mets damien )
Bonjour Clic droit sur l'onglet de ta feuille, Visualiser le code et tu positionnes les lignes suivantes dans la page blanche à droite. Tu modifies éventuellement le code en utilisant le CodeName de la feuille que tu veux renommer (le codename est le premier nom de ta feuille apparaissant dans l'explorateur de projet dans VBA - soit donc avant le nom entre parenthèses) Tu fermes l'éditeur VBA et tu saisis un nom de feuille en A1 sur ta feuille
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub If Target.Cells.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub On Error GoTo YaUnOs Feuil2.Name = Target.Value Exit Sub
YaUnOs: MsgBox "Le nom de feuille saisi en A1 est incorrect", vbInformation, "Incorrect" Application.EnableEvents = False Target.ClearContents Application.EnableEvents = True End Sub
Cordialement Pascal
"damien" a écrit dans le message de news: 446ed35e$0$309$
bonjour
je vous pose un pb (pas sur que ca soit possible de solutionner) dans une feuille excel, onglet feuille 1 colonne a ligne 1
j ai un nom "damien"
je souhaiterai que ce nom apparaisse automatiquement sur le nom de l'onglet de la feuille2 (sur le deuxieme onglet, au lieu d'avoir feuille 2 ils mets damien )
