remplacer un point par une virgule

[Guilla]

Bonjour à tous,
J'ai un petit probleme.

J'ai un calcul à faire sur des données que mon classeur récupère sur le Web.
Malheureusement, les valeurs copier dans mon classeur sont au formats xxx.xx
et Excel ne comprend pas le point (J'imagine que c'est un point special pour
le net). Ce qui a pour effet que ma cellule de calcul affiche #VALEUR!
Alors que si je remplace les valeurs avec des points par des virgule, ma
formule fonctionne bien.

Avez vous des idées ?
merci d'avance :)

[Ricky]

Bonjour/Bonsoir *Guilla*

Option 1 : Edition - Remplacer - Point par Virgule
Option 2 Outils - Options - International - Séparateur décimal : indiquer
le point (selon les versions de XL)

--
Ricky [MVP] Visitez les FAQ...
http://www.faqoe.com http://faqword.free.fr
http://www.excelabo.net http://dj.joss.free.fr/faq.htm

[Guilla]

Tout d'abord merci, la solution 1 fonctionne bien

Cependant, je voudrais également essayer la solution 2 mais je n'est pas
d'onglet "International" sur mon XL :(
J'ai besoin d'installé un truc suplémentaire ?
J'utilise XL 2000

Merci d'avance :)

[Ricky]

Bonjour/Bonsoir *Guilla*

Si je ne me trompe, l'option est apparue à la version 2002 (XP)

|| Tout d'abord merci, la solution 1 fonctionne bien
||
|| Cependant, je voudrais également essayer la solution 2 mais je n'est
|| pas d'onglet "International" sur mon XL :(
|| J'ai besoin d'installé un truc suplémentaire ?
|| J'utilise XL 2000
||
|| Merci d'avance :)

[Ame]

Comment faire pour que le point soit toujours remplacé par la virgule, sans
être obligé de le faire à chaque fichier?
Merci

"Ricky" a écrit :

[garnote]

Bonsoir,

Sous Excel 2007 :
1) Clique successivement sur :
Bouton Office / Options Excel / Vérification / Options de correction automatique...
Remplacer : .
Par : ,
2) Clique sur Ajouter et ensuite sur OK.

Serge

[LSteph]

;-)

,,,et quand AMe va vouloir écrire,

,,,

--
lSteph

garnote a écrit :

[LSteph]

Bonjour,

Déjà si ce n'est le cas Mettre la virgule au pavé numérique..
Cf Options régionales de windows.

Et tous tes nouveaux fichiers seront écrits avec la virgule .

Ensuite pour les autres fichiers menus données convertir..

Pour le reste je ne crois pas qu'a posteriori utiliser la cor
rection d'orthographe modifie ce qui est déjà saisi.

Ca va juste remplacer le point par la virgule lorsque tu écris.

Cordialement.

--
lSteph

Ame a écrit :

[garnote]

Pffff.... facile :

Deux macros dans le classeur de macros personnelles
et un bouton ( à bascule ? ) associé à Virgule_Ou_Point.
En réalité, c'est pour rigoler car sur mon écran, le fil
débute par une réponse; ce qui fait que finalement,
je ne sais pas trop de quoi je cause ;-)

Sub Virgule_Ou_Point()
Static i
Application.DisplayStatusBar = True
i = i + 1
If i Mod 2 = 1 Then
Application.AutoCorrect.AddReplacement What:=".", Replacement:=","
Application.StatusBar = Space(100) & " *** TOUS LES.POINTS SERONT REMPLACÉES PAR DES VIRGULES ***"
Else
Application.AutoCorrect.DeleteReplacement What:="."
Application.StatusBar = ""
End If
End Sub

Private Sub Workbook_Open()
Virgule_Ou_Point
End Sub

Serge

"LSteph" <lecoc...@frite.fr> a écrit dans le message de news: %23kN3r60...@TK2MSFTNGP05.phx.gbl...

[gmls...@gmail.com]

Bonjour Serge,

Oui , il n'y aurait pas de difficulté sur ce point mais
le fait de lancer cette macro à chaque ouverture de perso
n'affectera probablement pas l'ouverture consécutive d'autres
classeurs
Il me semble que Rechercher Remplacer
ferait plutôt l'affaire
dans une macro sur évennement de l'application au moyen d'un module de
classe
xlApp .
Toutefois je ne vois pas vraiment comment savoir quand quelqu'un vous
envoie un fichier ou que l'on en ouvre un pour quelles colonnes il est
opportun ou non de voir remplacer le point par la virgule.
.
Sinon pourrait faire quelquechose dans cette idée en proposant des
choix.
Alors finalement demander un rechercher remplacer là où on veut serait
presque aussi rapide.

Il me semble.

@+

--
lSteph

On 10 fév, 10:00, "garnote" <garnote3R...@videotron.ca> wrote:
> Pffff.... facile :
>
> Deux macros dans le classeur de macros personnelles
> et un bouton ( à bascule ? ) associé à Virgule_Ou_Point.
> En réalité, c'est pour rigoler car sur mon écran, le fil
> débute par une réponse; ce qui fait que finalement,
> je ne sais pas trop de quoi je cause ;-)
>
> Sub Virgule_Ou_Point()
>       Static i
>       Application.DisplayStatusBar = True
>       i = i + 1
>       If i Mod 2 = 1 Then
>             Application.AutoCorrect.AddReplacement What:=".", Replacement:=","
>             Application.StatusBar = Space(100) & " *** TOUS LES.POINTS SERONT REMPLACÉES PAR DES VIRGULES ***"
>       Else
>             Application.AutoCorrect.DeleteReplacement What:="."
>             Application.StatusBar = ""
>       End If
> End Sub
>
> Private Sub Workbook_Open()
>       Virgule_Ou_Point
> End Sub
>
> Serge
>

> "LSteph" <lecocost...@frite.fr> a écrit dans le message de news: %23kN3r60iJHA.5...@TK2MSFTNGP05.phx.gbl...

>
>
>
> > ;-)
>
> > ,,,et quand AMe  va vouloir écrire,
>
> > ,,,
>
> > --
> > lSteph
>
> > garnote a écrit :
> >> Bonsoir,
>
> >> Sous Excel 2007 :
> >> 1) Clique successivement sur :
> >>      Bouton Office / Options Excel / Vérification / Options de correction automatique...
> >>      Remplacer :  .
> >>      Par :  ,
> >> 2) Clique sur Ajouter et ensuite sur OK.
>
> >> Serge
>
> >>> Comment faire pour que le point soit toujours remplacé par la virgule, sans
> >>> être obligé de le faire à chaque fichier?

> >>> Merci- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -

[gmls...@gmail.com]

Re, bonjour,

Voici exemple tout fait: http://cjoint.com/?cmoNOE28AJ
Voici comment :
donc selon l'idée évoquée mettre le code dans un un module de classe
que l'on renomme via la fenêtre des propriétés
le remplacement de . par . en VBA permet curieusement(cause english le
vb) d'obtenir la valeur en numérique avec une virgule
si le séparateur des options régionales est celui là.

On utilisera également un module standard et le thisworkbook pour
initialiser la classe à l'ouveture.
Après ouverture du classeur (ici j'ai limité à Feuil1) les classeurs
ouverts se verront affectés par cette substitution.

‘dans module de classe nommé myXlClass

Option Explicit

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
Dim sh As Worksheet, r As Integer
If Wb.Name <> "ClassApp.xls" Then
For Each sh In Wb.Sheets
On Error Resume Next
If sh.Name = "Feuil1" Then
Cells.Replace what:=".", replacement:=".", ReplaceFormat:=True
End If
Next
End If
End Sub

‘dans module1

Option Explicit

Dim XlApp As New myXlClass

Sub InitApp()
Set XlApp.App = Application
End Sub

‘dans Thisworkbook
‘ la classe sera ainsi initialisee à l’ouverture

Option Explicit

Private Sub Workbook_Open()
InitApp
End Sub

'lSteph

> >http://www.excelabo.net http://dj.joss.free.fr/faq.htm- Masquer le texte des messages précédents -