Comment faire, si j'ai une case dans un onglet ou est=20
indiqu=E9 un texte.. quel qu'il soit (saucisse), pour que=20
l'onglet se renomme automatiquement pour s'appeler=20
saucisse...
Et si je change le texte de la cellule et que j'=E9cris=20
choucroute... l'onglet change de nom tout seul et=20
s'appelle choucroute ?
Dan slemodule de la feuille et pour une saisie en A1 Clic droit sur le nom de l'onglet > visualiser le code > copier/coller :
Private Sub Worksheet_Change(ByVal zz As Range) On Error Resume Next If zz.Address <> "$A$1" Then Exit Sub ActiveSheet.Name = [A1] End Sub
AV.
Jacky
Bonjour
Avec dans cette exemple la valeur de la cellule A1 '---- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] <> "" And [a1] <> ActiveSheet.Name Then ActiveSheet.Name = [a1] End Sub '---- Salutations JJ
"Luin Gor" a écrit dans le message de news:1fd501c5140c$8368e560$ Comment faire, si j'ai une case dans un onglet ou est indiqué un texte.. quel qu'il soit (saucisse), pour que l'onglet se renomme automatiquement pour s'appeler saucisse...
Et si je change le texte de la cellule et que j'écris choucroute... l'onglet change de nom tout seul et s'appelle choucroute ?
Merci de vos réponses.
Bonjour
Avec dans cette exemple la valeur de la cellule A1
'----
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If [a1] <> "" And [a1] <> ActiveSheet.Name Then ActiveSheet.Name = [a1]
End Sub
'----
Salutations
JJ
"Luin Gor" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1fd501c5140c$8368e560$a501280a@phx.gbl...
Comment faire, si j'ai une case dans un onglet ou est
indiqué un texte.. quel qu'il soit (saucisse), pour que
l'onglet se renomme automatiquement pour s'appeler
saucisse...
Et si je change le texte de la cellule et que j'écris
choucroute... l'onglet change de nom tout seul et
s'appelle choucroute ?
Avec dans cette exemple la valeur de la cellule A1 '---- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If [a1] <> "" And [a1] <> ActiveSheet.Name Then ActiveSheet.Name = [a1] End Sub '---- Salutations JJ
"Luin Gor" a écrit dans le message de news:1fd501c5140c$8368e560$ Comment faire, si j'ai une case dans un onglet ou est indiqué un texte.. quel qu'il soit (saucisse), pour que l'onglet se renomme automatiquement pour s'appeler saucisse...
Et si je change le texte de la cellule et que j'écris choucroute... l'onglet change de nom tout seul et s'appelle choucroute ?
Merci de vos réponses.
ChrisV
Bonjour Luin Gor,
Dans la feuille de code de l'onglet concerné...
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo gesErr ActiveSheet.Name = [A1]: End gesErr: msgErr = Error(Err) MsgBox "ERREUR: " & msgErr End Sub
ChrisV
"Luin Gor" a écrit dans le message de news: 1fd501c5140c$8368e560$ Comment faire, si j'ai une case dans un onglet ou est indiqué un texte.. quel qu'il soit (saucisse), pour que l'onglet se renomme automatiquement pour s'appeler saucisse...
Et si je change le texte de la cellule et que j'écris choucroute... l'onglet change de nom tout seul et s'appelle choucroute ?
Merci de vos réponses.
Bonjour Luin Gor,
Dans la feuille de code de l'onglet concerné...
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
On Error GoTo gesErr
ActiveSheet.Name = [A1]: End
gesErr:
msgErr = Error(Err)
MsgBox "ERREUR: " & msgErr
End Sub
ChrisV
"Luin Gor" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1fd501c5140c$8368e560$a501280a@phx.gbl...
Comment faire, si j'ai une case dans un onglet ou est
indiqué un texte.. quel qu'il soit (saucisse), pour que
l'onglet se renomme automatiquement pour s'appeler
saucisse...
Et si je change le texte de la cellule et que j'écris
choucroute... l'onglet change de nom tout seul et
s'appelle choucroute ?
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error GoTo gesErr ActiveSheet.Name = [A1]: End gesErr: msgErr = Error(Err) MsgBox "ERREUR: " & msgErr End Sub
ChrisV
"Luin Gor" a écrit dans le message de news: 1fd501c5140c$8368e560$ Comment faire, si j'ai une case dans un onglet ou est indiqué un texte.. quel qu'il soit (saucisse), pour que l'onglet se renomme automatiquement pour s'appeler saucisse...
Et si je change le texte de la cellule et que j'écris choucroute... l'onglet change de nom tout seul et s'appelle choucroute ?
Merci de vos réponses.
LuinGor
Je suis un peu manchot...
est ce que quelqu'un pourrait m'envoyer un fichier excel avec cette macro qui fonctionne...
Mon adresse :
Merci d'avance
Je suis un peu manchot...
est ce que quelqu'un pourrait m'envoyer un fichier excel
avec cette macro qui fonctionne...
