OVH Cloud OVH Cloud

Format Onglet

4 réponses
Avatar
Christian
Bonjour =E0 tous
Lorsque j'utilise le format suivant: "[$-813]mmmm" sur une=20
cellule, j'obtiens pour le mois en cours "oktober"; ce qui=20
est correct.
Dans la proc=E9dure suivante,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal=20
Target As Range)
If Target.Address =3D "$N$3" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name =3D Format(Target.Value, "[$-813]
mmmm")
End If
End Sub
cela ne fonctionne pas; je re=E7ois "octobre" comme nom=20
d'onglet.
Qui peut m'aider a r=E9soudre ce probl=E8me.
Pour info, je travaille en Hollande avec Excel2003 en=20
Fran=E7ais.
Merci d'avance
Christian

4 réponses

Avatar
papou
Bonjour
Tu ne pourras pas utiliser la fonction Format car elle utilise les
paramètres régionaux.
Il faudrait éventuellement modifier les paramètres régionaux avant puis les
rétablir après.
Cordialement
Pascal


"Christian" a écrit dans le message de
news: 181401c4bb2f$fa365be0$
Bonjour à tous
Lorsque j'utilise le format suivant: "[$-813]mmmm" sur une
cellule, j'obtiens pour le mois en cours "oktober"; ce qui
est correct.
Dans la procédure suivante,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Address = "$N$3" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "[$-813]
mmmm")
End If
End Sub
cela ne fonctionne pas; je reçois "octobre" comme nom
d'onglet.
Qui peut m'aider a résoudre ce problème.
Pour info, je travaille en Hollande avec Excel2003 en
Français.
Merci d'avance
Christian
Avatar
Christian
Bonjour Papou
Merci de m'avoir répondu.
Christian

-----Message d'origine-----
Bonjour
Tu ne pourras pas utiliser la fonction Format car elle
utilise les

paramètres régionaux.
Il faudrait éventuellement modifier les paramètres
régionaux avant puis les

rétablir après.
Cordialement
Pascal


"Christian" a écrit
dans le message de

news: 181401c4bb2f$fa365be0$
Bonjour à tous
Lorsque j'utilise le format suivant: "[$-813]mmmm" sur une
cellule, j'obtiens pour le mois en cours "oktober"; ce qui
est correct.
Dans la procédure suivante,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Address = "$N$3" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "[$-813]
mmmm")
End If
End Sub
cela ne fonctionne pas; je reçois "octobre" comme nom
d'onglet.
Qui peut m'aider a résoudre ce problème.
Pour info, je travaille en Hollande avec Excel2003 en
Français.
Merci d'avance
Christian


.



Avatar
michdenis
Bonjour Christian,

Tu peux essayer ceci :

Remplace ceci dans ta procédure :

Target.Parent.Name = Format(Target.Value, "[$-813]

Par

target.NumberFormat = "[$-813]DD MMMM YYYY"
target.Parent.Name = target.Text

N.B. Attention, la fonction "Format" appartient au VBA, et n'a rien à voir avec le Format des cellules de la feuille de
calcul.

Salutations!



"Christian" a écrit dans le message de
news:181401c4bb2f$fa365be0$
Bonjour à tous
Lorsque j'utilise le format suivant: "[$-813]mmmm" sur une
cellule, j'obtiens pour le mois en cours "oktober"; ce qui
est correct.
Dans la procédure suivante,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Address = "$N$3" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "[$-813]
mmmm")
End If
End Sub
cela ne fonctionne pas; je reçois "octobre" comme nom
d'onglet.
Qui peut m'aider a résoudre ce problème.
Pour info, je travaille en Hollande avec Excel2003 en
Français.
Merci d'avance
Christian
Avatar
Christian
Merci MichDenis
Cela fonctionne très bien
Salutations
Christian
-----Message d'origine-----
Bonjour Christian,

Tu peux essayer ceci :

Remplace ceci dans ta procédure :

Target.Parent.Name = Format(Target.Value, "[$-813]

Par

target.NumberFormat = "[$-813]DD MMMM YYYY"
target.Parent.Name = target.Text

N.B. Attention, la fonction "Format" appartient au VBA,
et n'a rien à voir avec le Format des cellules de la

feuille de
calcul.

Salutations!



"Christian" a écrit
dans le message de

news:181401c4bb2f$fa365be0$
Bonjour à tous
Lorsque j'utilise le format suivant: "[$-813]mmmm" sur une
cellule, j'obtiens pour le mois en cours "oktober"; ce qui
est correct.
Dans la procédure suivante,
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal
Target As Range)
If Target.Address = "$N$3" Then
If Not IsDate(Target.Value) Then Exit Sub
Target.Parent.Name = Format(Target.Value, "[$-813]
mmmm")
End If
End Sub
cela ne fonctionne pas; je reçois "octobre" comme nom
d'onglet.
Qui peut m'aider a résoudre ce problème.
Pour info, je travaille en Hollande avec Excel2003 en
Français.
Merci d'avance
Christian


.