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
Jacky
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Bonjour,
La valeur de la cellule A1 comme nom de feuille
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
On Error GoTo erreurs
ActiveSheet.Name = [A1]
Exit Sub
End If
erreurs:
MsgBox "Paramètres pour un nom de feuille erronés"
End Sub
'-----------------
A mettre dans le module de la feuille en question
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
uraabKV1IHA.5472@TK2MSFTNGP06.phx.gbl...
Bonjour
J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1
Merci par avance pour toute aide
Pour la réciproque j'ai cela
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
jojolapin
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Merci pour ta réponse mais je n'arrive pas à l'activer
Je ne suis pas trop doué dans les macros
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGaOubV1IHA.548@TK2MSFTNGP06.phx.gbl...
Bonjour,
La valeur de la cellule A1 comme nom de feuille
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
On Error GoTo erreurs
ActiveSheet.Name = [A1]
Exit Sub
End If
erreurs:
MsgBox "Paramètres pour un nom de feuille erronés"
End Sub
'-----------------
A mettre dans le module de la feuille en question
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
uraabKV1IHA.5472@TK2MSFTNGP06.phx.gbl...
Bonjour
J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1
Merci par avance pour toute aide
Pour la réciproque j'ai cela
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Jacky
Re...
Copier le code Clique droit sur l'onglet de la feuille en question Choisir ==>Visualiser le code Coller dans la fenêtre en théorie blanche de droite Voir Ici: http://cjoint.com/?gxujSRdOlQ -- Salutations JJ
"jojolapin" a écrit dans le message de news: %
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Re...
Copier le code
Clique droit sur l'onglet de la feuille en question
Choisir ==>Visualiser le code
Coller dans la fenêtre en théorie blanche de droite
Voir Ici:
http://cjoint.com/?gxujSRdOlQ
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
%23WPrfmV1IHA.4772@TK2MSFTNGP03.phx.gbl...
Merci pour ta réponse mais je n'arrive pas à l'activer
Je ne suis pas trop doué dans les macros
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGaOubV1IHA.548@TK2MSFTNGP06.phx.gbl...
Bonjour,
La valeur de la cellule A1 comme nom de feuille
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
On Error GoTo erreurs
ActiveSheet.Name = [A1]
Exit Sub
End If
erreurs:
MsgBox "Paramètres pour un nom de feuille erronés"
End Sub
'-----------------
A mettre dans le module de la feuille en question
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
uraabKV1IHA.5472@TK2MSFTNGP06.phx.gbl...
Bonjour
J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1
Merci par avance pour toute aide
Pour la réciproque j'ai cela
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Copier le code Clique droit sur l'onglet de la feuille en question Choisir ==>Visualiser le code Coller dans la fenêtre en théorie blanche de droite Voir Ici: http://cjoint.com/?gxujSRdOlQ -- Salutations JJ
"jojolapin" a écrit dans le message de news: %
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
jojolapin
Merci j'ai réussi à la faire "marcher" masi après plusieurs tentatives Merci encroe Je vais voir si je peux l'adapter à ce que je cherche
"Jacky" a écrit dans le message de news:
Re...
Copier le code Clique droit sur l'onglet de la feuille en question Choisir ==>Visualiser le code Coller dans la fenêtre en théorie blanche de droite Voir Ici: http://cjoint.com/?gxujSRdOlQ -- Salutations JJ
"jojolapin" a écrit dans le message de news: %
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Merci j'ai réussi à la faire "marcher" masi après plusieurs tentatives
Merci encroe
Je vais voir si je peux l'adapter à ce que je cherche
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OxekfyV1IHA.4004@TK2MSFTNGP03.phx.gbl...
Re...
Copier le code
Clique droit sur l'onglet de la feuille en question
Choisir ==>Visualiser le code
Coller dans la fenêtre en théorie blanche de droite
Voir Ici:
http://cjoint.com/?gxujSRdOlQ
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
%23WPrfmV1IHA.4772@TK2MSFTNGP03.phx.gbl...
Merci pour ta réponse mais je n'arrive pas à l'activer
Je ne suis pas trop doué dans les macros
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eGaOubV1IHA.548@TK2MSFTNGP06.phx.gbl...
Bonjour,
La valeur de la cellule A1 comme nom de feuille
'------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then
On Error GoTo erreurs
ActiveSheet.Name = [A1]
Exit Sub
End If
erreurs:
MsgBox "Paramètres pour un nom de feuille erronés"
End Sub
'-----------------
A mettre dans le module de la feuille en question
--
Salutations
JJ
"jojolapin" <jojolapin_99@yahoo.fr> a écrit dans le message de news:
uraabKV1IHA.5472@TK2MSFTNGP06.phx.gbl...
Bonjour
J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1
Merci par avance pour toute aide
Pour la réciproque j'ai cela
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)
Merci j'ai réussi à la faire "marcher" masi après plusieurs tentatives Merci encroe Je vais voir si je peux l'adapter à ce que je cherche
"Jacky" a écrit dans le message de news:
Re...
Copier le code Clique droit sur l'onglet de la feuille en question Choisir ==>Visualiser le code Coller dans la fenêtre en théorie blanche de droite Voir Ici: http://cjoint.com/?gxujSRdOlQ -- Salutations JJ
"jojolapin" a écrit dans le message de news: %
Merci pour ta réponse mais je n'arrive pas à l'activer Je ne suis pas trop doué dans les macros
"Jacky" a écrit dans le message de news:
Bonjour,
La valeur de la cellule A1 comme nom de feuille '------------ Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing And Target.Count = 1 Then On Error GoTo erreurs ActiveSheet.Name = [A1] Exit Sub End If erreurs: MsgBox "Paramètres pour un nom de feuille erronés" End Sub '----------------- A mettre dans le module de la feuille en question -- Salutations JJ
"jojolapin" a écrit dans le message de news:
Bonjour J'aimerai trouvé un moyen de nommer l'onglet comme la cellule A1 Merci par avance pour toute aide
Pour la réciproque j'ai cela =STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;9^9)