Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
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
michdenis
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 € ;[red](# ##0.00 €) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 € ;[red](# ##0.00 €) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 € ;[red](# ##0.00 €) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Artenio
OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
OK merci
mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs?
car la devise indiquée dans mon ordi est l'euro.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e6%23GcaFnKHA.5692@TK2MSFTNGP04.phx.gbl...
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
michdenis
As-tu regardé dans ton panneau de configuration de Windows / options régionales comment sont définis tes paramètres ? As-tu l'euro ou le "F" comme symbole par défaut pour le format monétaire ?
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
As-tu regardé dans ton panneau de configuration
de Windows / options régionales comment sont
définis tes paramètres ? As-tu l'euro ou le "F" comme
symbole par défaut pour le format monétaire ?
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de discussion :
4b5b4aa5$0$23764$426a34cc@news.free.fr...
OK merci
mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs?
car la devise indiquée dans mon ordi est l'euro.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e6%23GcaFnKHA.5692@TK2MSFTNGP04.phx.gbl...
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
As-tu regardé dans ton panneau de configuration de Windows / options régionales comment sont définis tes paramètres ? As-tu l'euro ou le "F" comme symbole par défaut pour le format monétaire ?
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
michdenis
Si tu as la version Excel 2007, à côté du symbole de l'euro dans le ruban, tu as un petit bouton qui te permet de choisir un autre symbole. Sauf erreur, pour modifier le symbole par défaut, tu dois le faire via le panneau de configuration.
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Si tu as la version Excel 2007, à côté du symbole de l'euro
dans le ruban, tu as un petit bouton qui te permet de choisir
un autre symbole.
Sauf erreur, pour modifier le symbole par défaut, tu dois le
faire via le panneau de configuration.
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de discussion :
4b5b4aa5$0$23764$426a34cc@news.free.fr...
OK merci
mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs?
car la devise indiquée dans mon ordi est l'euro.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e6%23GcaFnKHA.5692@TK2MSFTNGP04.phx.gbl...
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
Si tu as la version Excel 2007, à côté du symbole de l'euro dans le ruban, tu as un petit bouton qui te permet de choisir un autre symbole. Sauf erreur, pour modifier le symbole par défaut, tu dois le faire via le panneau de configuration.
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Artenio
comme je l'ai indiqué dans mon 1er post j'ai vérifié et j'ai bien le symbole de l'euro
je vois pas pourquoi j'ai un "F" enfin c'est pas grave
avec ta proposition ça marche et j'ai même le négatif en rouge
j'ai aussi trouvé en faisant des essais que ça fonctionnait avec C.Offset(, 3).Style = "EURO" mais je n'ai pas d'explication... c'est de la chance...
Merci pour tout
Cordialement
Patrice
"michdenis" a écrit dans le message de news:
As-tu regardé dans ton panneau de configuration de Windows / options régionales comment sont définis tes paramètres ? As-tu l'euro ou le "F" comme symbole par défaut pour le format monétaire ?
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
comme je l'ai indiqué dans mon 1er post j'ai vérifié
et j'ai bien le symbole de l'euro
je vois pas pourquoi j'ai un "F"
enfin c'est pas grave
avec ta proposition ça marche et j'ai même le négatif en rouge
j'ai aussi trouvé en faisant des essais que ça fonctionnait avec
C.Offset(, 3).Style = "EURO"
mais je n'ai pas d'explication... c'est de la chance...
Merci pour tout
Cordialement
Patrice
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
C8E91515-EEAB-4AEA-84EF-1A3424C3441E@microsoft.com...
As-tu regardé dans ton panneau de configuration
de Windows / options régionales comment sont
définis tes paramètres ? As-tu l'euro ou le "F" comme
symbole par défaut pour le format monétaire ?
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b4aa5$0$23764$426a34cc@news.free.fr...
OK merci
mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs?
car la devise indiquée dans mon ordi est l'euro.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e6%23GcaFnKHA.5692@TK2MSFTNGP04.phx.gbl...
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
comme je l'ai indiqué dans mon 1er post j'ai vérifié et j'ai bien le symbole de l'euro
je vois pas pourquoi j'ai un "F" enfin c'est pas grave
avec ta proposition ça marche et j'ai même le négatif en rouge
j'ai aussi trouvé en faisant des essais que ça fonctionnait avec C.Offset(, 3).Style = "EURO" mais je n'ai pas d'explication... c'est de la chance...
Merci pour tout
Cordialement
Patrice
"michdenis" a écrit dans le message de news:
As-tu regardé dans ton panneau de configuration de Windows / options régionales comment sont définis tes paramètres ? As-tu l'euro ou le "F" comme symbole par défaut pour le format monétaire ?
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Artenio
Non je suis sur XL 2002...
"michdenis" a écrit dans le message de news:
Si tu as la version Excel 2007, à côté du symbole de l'euro dans le ruban, tu as un petit bouton qui te permet de choisir un autre symbole. Sauf erreur, pour modifier le symbole par défaut, tu dois le faire via le panneau de configuration.
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
Non je suis sur XL 2002...
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
0BF4576E-4F7D-4602-A81B-46C3267E902B@microsoft.com...
Si tu as la version Excel 2007, à côté du symbole de l'euro
dans le ruban, tu as un petit bouton qui te permet de choisir
un autre symbole.
Sauf erreur, pour modifier le symbole par défaut, tu dois le
faire via le panneau de configuration.
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b4aa5$0$23764$426a34cc@news.free.fr...
OK merci
mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs?
car la devise indiquée dans mon ordi est l'euro.
Merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
e6%23GcaFnKHA.5692@TK2MSFTNGP04.phx.gbl...
Bonjour,
tu peux remplacer :
C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles...
Un exemple pour le principe !
C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" <pat.cas@free.fr> a écrit dans le message de groupe de
discussion :
4b5b3425$0$17524$426a34cc@news.free.fr...
Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien
sauf que les nombres de ma colonne H4:H103 ne s'affichent plus
au format comptabilité avec le symbole de l'Euro mais avec un format
comptabilité avec le symbole "F"
J'ai vérifié dans mes options régionales où l'Euro est bien indiqué.
Je dois certainement modifier quelque part mais où?
Ci-dessous la macro
----
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("H4:H103"))
If Not Rg Is Nothing Then
For Each C In Rg
If C.Value = 30 Then
C.Offset(, 3).NumberFormat = "0"
Else
C.Offset(, 3).Style = "Currency"
End If
Next
End If
End Sub
----
Si tu as la version Excel 2007, à côté du symbole de l'euro dans le ruban, tu as un petit bouton qui te permet de choisir un autre symbole. Sauf erreur, pour modifier le symbole par défaut, tu dois le faire via le panneau de configuration.
"Artenio" a écrit dans le message de groupe de discussion : 4b5b4aa5$0$23764$ OK merci mais peux tu m'expliquer pourquoi "currency" me donne "F" comme Francs? car la devise indiquée dans mon ordi est l'euro. Merci
"michdenis" a écrit dans le message de news: e6%
Bonjour,
tu peux remplacer : C.Offset(, 3).Style = "Currency"
Par
Toute une variété de format sont possibles... Un exemple pour le principe ! C.Offset(, 3).NumberFormat = "# ##0.00 ? ;[red](# ##0.00 ?) "
"Artenio" a écrit dans le message de groupe de discussion : 4b5b3425$0$17524$ Bonjour
Michdenis m'a fourni une macro qui fonctionne quasiment bien sauf que les nombres de ma colonne H4:H103 ne s'affichent plus au format comptabilité avec le symbole de l'Euro mais avec un format comptabilité avec le symbole "F" J'ai vérifié dans mes options régionales où l'Euro est bien indiqué. Je dois certainement modifier quelque part mais où? Ci-dessous la macro ---- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("H4:H103")) If Not Rg Is Nothing Then For Each C In Rg If C.Value = 30 Then C.Offset(, 3).NumberFormat = "0" Else C.Offset(, 3).Style = "Currency" End If Next End If End Sub ----
Merci de votre aide Cordialement
Patrice
michdenis
| comme je l'ai indiqué dans mon 1er post j'ai vérifié | et j'ai bien le symbole de l'euro
Je viens de faire le test. J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration, j'ai modifié la langue pour Français(France) et je me suis bien assuré que le symbole "Euro" était bien celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur le bouton "monétaire", j'ai effectivement le symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.
| comme je l'ai indiqué dans mon 1er post j'ai vérifié
| et j'ai bien le symbole de l'euro
Je viens de faire le test.
J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration,
j'ai modifié la langue pour Français(France) et je me
suis bien assuré que le symbole "Euro" était bien
celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur
le bouton "monétaire", j'ai effectivement le
symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.
| comme je l'ai indiqué dans mon 1er post j'ai vérifié | et j'ai bien le symbole de l'euro
Je viens de faire le test. J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration, j'ai modifié la langue pour Français(France) et je me suis bien assuré que le symbole "Euro" était bien celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur le bouton "monétaire", j'ai effectivement le symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.
Artenio
ok merci je ferai vérifier mon Pc par ma technicienne particulière (ma fille) Enfin ça fonctionne alors ne soyons pas + royaliste que le roi.... Bon dimanche et encore merci
Patrice
"michdenis" a écrit dans le message de news: %230Ezd$
| comme je l'ai indiqué dans mon 1er post j'ai vérifié | et j'ai bien le symbole de l'euro
Je viens de faire le test. J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration, j'ai modifié la langue pour Français(France) et je me suis bien assuré que le symbole "Euro" était bien celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur le bouton "monétaire", j'ai effectivement le symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.
ok merci
je ferai vérifier mon Pc par ma technicienne particulière (ma fille)
Enfin ça fonctionne alors ne soyons pas + royaliste que le roi....
Bon dimanche et encore merci
Patrice
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%230Ezd$GnKHA.5696@TK2MSFTNGP04.phx.gbl...
| comme je l'ai indiqué dans mon 1er post j'ai vérifié
| et j'ai bien le symbole de l'euro
Je viens de faire le test.
J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration,
j'ai modifié la langue pour Français(France) et je me
suis bien assuré que le symbole "Euro" était bien
celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur
le bouton "monétaire", j'ai effectivement le
symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.
ok merci je ferai vérifier mon Pc par ma technicienne particulière (ma fille) Enfin ça fonctionne alors ne soyons pas + royaliste que le roi.... Bon dimanche et encore merci
Patrice
"michdenis" a écrit dans le message de news: %230Ezd$
| comme je l'ai indiqué dans mon 1er post j'ai vérifié | et j'ai bien le symbole de l'euro
Je viens de faire le test. J'ai fermé toutes les instances de l'application Excel.
Dans le panneau de configuration, j'ai modifié la langue pour Français(France) et je me suis bien assuré que le symbole "Euro" était bien celui pour le format monétaire.
Et dans Excel 2003 et 2007, lorsque je clique sur le bouton "monétaire", j'ai effectivement le symbole Euro qui s'affiche par défaut.
Je suspecte un problème de configuration sur ton ordinateur.