En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
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
LSteph
Bonsoir Caroline, tu peux remplacer now par az1 '*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1]) If Not isect Is Nothing And Not IsEmpty([a1]) Then ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy") End If End Sub '*** 'lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Bonsoir Caroline,
tu peux remplacer now par az1
'***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a1])
If Not isect Is Nothing And Not IsEmpty([a1]) Then
ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy")
End If
End Sub
'***
'lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Bonsoir Caroline, tu peux remplacer now par az1 '*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1]) If Not isect Is Nothing And Not IsEmpty([a1]) Then ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy") End If End Sub '*** 'lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
LSteph
... ...précision tu noteras que j'extrais les 23 premiers chr en raison du format imposé à la date Format([az1],"ddmmyyyy" qui donne 8 caractères pour excel 2003 la limite est 31 cractères pour un nom de feuille. pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
...
...précision
tu noteras que j'extrais les 23 premiers chr en raison du format imposé à la
date
Format([az1],"ddmmyyyy" qui donne 8 caractères
pour excel 2003 la limite est 31 cractères pour un nom de feuille.
pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
... ...précision tu noteras que j'extrais les 23 premiers chr en raison du format imposé à la date Format([az1],"ddmmyyyy" qui donne 8 caractères pour excel 2003 la limite est 31 cractères pour un nom de feuille. pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
ChrisV
Bonjour Caroline L.
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then On Error Resume Next ActiveSheet.Name = [A1] If Err.Number <> 0 Then MsgBox Error(Err) End If End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Bonjour Caroline L.
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
On Error Resume Next
ActiveSheet.Name = [A1]
If Err.Number <> 0 Then MsgBox Error(Err)
End If
End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then On Error Resume Next ActiveSheet.Name = [A1] If Err.Number <> 0 Then MsgBox Error(Err) End If End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Caroline L.
Bonsoir LSteph,
gros merci... j'ai adapté et ça fonctionne.
Caroline
"LSteph" a écrit dans le message de news:
Bonsoir Caroline, tu peux remplacer now par az1 '*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1]) If Not isect Is Nothing And Not IsEmpty([a1]) Then ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy") End If End Sub '*** 'lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Bonsoir LSteph,
gros merci... j'ai adapté et ça fonctionne.
Caroline
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
uq6CLwh8FHA.1020@TK2MSFTNGP15.phx.gbl...
Bonsoir Caroline,
tu peux remplacer now par az1
'***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, [a1])
If Not isect Is Nothing And Not IsEmpty([a1]) Then
ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy")
End If
End Sub
'***
'lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple,
la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se
renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de
cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule
le
format date désiré, cela ne change rien. Avez-vous une idée ?
Bonsoir Caroline, tu peux remplacer now par az1 '*** Private Sub Worksheet_Change(ByVal Target As Range) Dim isect As Range Set isect = Intersect(Target, [a1]) If Not isect Is Nothing And Not IsEmpty([a1]) Then ActiveSheet.Name = Mid([a1], 1, 23) & Format(Now, "ddmmyyyy") End If End Sub '*** 'lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Caroline L.
Bonsoir ChrisV,
Super ! tu as répondu à mes 2 questions et tout fonctionne très bien.
Merci à toi.
Bonne soirée ou bonne nuit
Caroline
"ChrisV" a écrit dans le message de news:
Bonjour Caroline L.
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then On Error Resume Next ActiveSheet.Name = [A1] If Err.Number <> 0 Then MsgBox Error(Err) End If End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Bonsoir ChrisV,
Super ! tu as répondu à mes 2 questions et tout fonctionne très bien.
Merci à toi.
Bonne soirée ou bonne nuit
Caroline
"ChrisV" <chrisv@microsoftgroups.org> a écrit dans le message de news:
OZyheni8FHA.3752@tk2msftngp13.phx.gbl...
Bonjour Caroline L.
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
On Error Resume Next
ActiveSheet.Name = [A1]
If Err.Number <> 0 Then MsgBox Error(Err)
End If
End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple,
la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se
renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de
cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule
le
format date désiré, cela ne change rien. Avez-vous une idée ?
Super ! tu as répondu à mes 2 questions et tout fonctionne très bien.
Merci à toi.
Bonne soirée ou bonne nuit
Caroline
"ChrisV" a écrit dans le message de news:
Bonjour Caroline L.
Pour la question 1, dans la feuille de code de l'onglet concerné:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A1]) Is Nothing Then On Error Resume Next ActiveSheet.Name = [A1] If Err.Number <> 0 Then MsgBox Error(Err) End If End Sub
Pour la question 2:
="Gestion des annulations "&TEXTE(AZ1;"jj/mm/aaa")
ChrisV
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Caroline L.
Hum, je ne suis pas certaine d'avoir saisi ce que tu dis ici mais j'ai solutionné mes 2 questions grace à toi et aussi à ChrisV.
Tout plein de remerciements à vous deux ! :-)
Caroline
"LSteph" a écrit dans le message de news:
... ...précision tu noteras que j'extrais les 23 premiers chr en raison du format imposé à la
date Format([az1],"ddmmyyyy" qui donne 8 caractères pour excel 2003 la limite est 31 cractères pour un nom de feuille. pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
Merci ;-) Bon week-end
Caroline
Hum, je ne suis pas certaine d'avoir saisi ce que tu dis ici mais j'ai
solutionné mes 2 questions grace à toi et aussi à ChrisV.
Tout plein de remerciements à vous deux ! :-)
Caroline
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
Oug7U1h8FHA.2192@TK2MSFTNGP14.phx.gbl...
...
...précision
tu noteras que j'extrais les 23 premiers chr en raison du format imposé à
la
date
Format([az1],"ddmmyyyy" qui donne 8 caractères
pour excel 2003 la limite est 31 cractères pour un nom de feuille.
pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." <caroland@videotron.ca> a écrit dans le message de news:
On6Vich8FHA.1292@tk2msftngp13.phx.gbl...
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la
suite la feuille active se renomme avec la valeur saisie. Par exemple,
la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se
renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante :
="Gestion des annulations " & AZ1
la valeur de AZ1 est une date. Mon problème c'est que le résultat de
cette
formule me donne la chose suivante : Gestion des annulations 39781
Je sais que le 39781 est une date mais même si j'applique à la cellule
le
format date désiré, cela ne change rien. Avez-vous une idée ?
Hum, je ne suis pas certaine d'avoir saisi ce que tu dis ici mais j'ai solutionné mes 2 questions grace à toi et aussi à ChrisV.
Tout plein de remerciements à vous deux ! :-)
Caroline
"LSteph" a écrit dans le message de news:
... ...précision tu noteras que j'extrais les 23 premiers chr en raison du format imposé à la
date Format([az1],"ddmmyyyy" qui donne 8 caractères pour excel 2003 la limite est 31 cractères pour un nom de feuille. pour 97 cela doit être moins , les autres je ne sais pas.
lSteph
"Caroline L." a écrit dans le message de news:
Bonjour !
En ce début de week-end, j'ai 2 petites questions.
1- J'aimerais que lorsque je saisi une donnée dans la cellule A1 par la suite la feuille active se renomme avec la valeur saisie. Par exemple, la
feuille se nomme feuil2 et si je saisi "Allo" en A1, la feuille se renomme
maintenant automatiquement en "Allo".
2- J'ai la formule suivante : ="Gestion des annulations " & AZ1 la valeur de AZ1 est une date. Mon problème c'est que le résultat de cette
formule me donne la chose suivante : Gestion des annulations 39781 Je sais que le 39781 est une date mais même si j'applique à la cellule le
format date désiré, cela ne change rien. Avez-vous une idée ?
