J'aimerai remplacer ces nombres par des libellés (Janvier, Février, Mars ...
Décembre) à l'affichage, mais en faisant en sorte que les cellules d'origine
conservent les nombres.
Quelqu'un aurait-il une idée ? (Ou pire, la question aurait-elle été déjà
traitée)
dans la feuille de code associée à la page excel contenant les n° de mois, à supposer que les mois doivent se trouver en colonne B :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells(1).Column = 2 And IsNumeric(Target) Then If Target > 0 And Target < 13 Then Target.NumberFormat = """" & Format(DateSerial(2000, Target, 1), "mmmm") & """" End If End If End Sub
quand on tape 5, ça affiche mai tout en gardant la valeur 5
http://jacxl.free.fr
"AV" a écrit dans le message de news:
....mais en faisant en sorte que les cellules d'origine conservent les nombres.
Pas possible de garder les valeurs numériques (1 à 12) et les formater en
mois !
1 à 12 correspondant aux même numéros de série c'est à dire 01/01/1900 à 12/01/1900 ! Il vaudrait bien mieux que tes cellules contiennent des vraies dates (1/1;1/2;1/3....1/12) qui pourront alors être formatées à volonté (mmmm)
AV
Comme l'oeuf de ... Fallait y penser. Super.
"j@c" <adresse_bidon@bidon.fr> wrote in message
news:41c3dd55$0$4674$626a14ce@news.free.fr...
mais si c'est possible :
dans la feuille de code associée à la page excel contenant les n° de mois,
à supposer que les mois doivent se trouver en colonne B :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Column = 2 And IsNumeric(Target) Then
If Target > 0 And Target < 13 Then
Target.NumberFormat = """" & Format(DateSerial(2000, Target, 1), "mmmm") &
""""
End If
End If
End Sub
quand on tape 5, ça affiche mai tout en gardant la valeur 5
j@c
http://jacxl.free.fr
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eiOZD4M5EHA.3596@TK2MSFTNGP12.phx.gbl...
....mais en faisant en sorte que les cellules d'origine
conservent les nombres.
Pas possible de garder les valeurs numériques (1 à 12) et les formater
en
mois !
1 à 12 correspondant aux même numéros de série c'est à dire 01/01/1900 à
12/01/1900 !
Il vaudrait bien mieux que tes cellules contiennent des vraies dates
(1/1;1/2;1/3....1/12) qui pourront alors être formatées à volonté (mmmm)
dans la feuille de code associée à la page excel contenant les n° de mois, à supposer que les mois doivent se trouver en colonne B :
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells(1).Column = 2 And IsNumeric(Target) Then If Target > 0 And Target < 13 Then Target.NumberFormat = """" & Format(DateSerial(2000, Target, 1), "mmmm") & """" End If End If End Sub
quand on tape 5, ça affiche mai tout en gardant la valeur 5
http://jacxl.free.fr
"AV" a écrit dans le message de news:
....mais en faisant en sorte que les cellules d'origine conservent les nombres.
Pas possible de garder les valeurs numériques (1 à 12) et les formater en
mois !
1 à 12 correspondant aux même numéros de série c'est à dire 01/01/1900 à 12/01/1900 ! Il vaudrait bien mieux que tes cellules contiennent des vraies dates (1/1;1/2;1/3....1/12) qui pourront alors être formatées à volonté (mmmm)
