Conversion

Gérard DEZAMIS

XLDnaute Accro

• 15 Janvier 2006

• #2

Bonsoir Piep

Selectionner les valeurs
Edition, Remplacer '.' par ','

Serait-ce suffisant ?

@+ GD

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #3

Nan, ca ne veut pas car il n'analyse pas les valeurs mais plutot les formules j'ai l'impression !!!

Merci de votre aide

 

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 15 Janvier 2006

• #4

Moi je fais en passant dans le panneau de configuration de windows, option régionale, personnaliser
Là, on peut modifier le séparateur décimal

En espérant que c'est ce que tu cherches

 

Vote positif 0 Vote négatif

A

alcalzone

XLDnaute Occasionnel

• 15 Janvier 2006

• #5

Moi je fais en passant dans le panneau de configuration de windows, option régionale, personnaliser
Là, on peut modifier le séparateur décimal

En espérant que c'est ce que tu cherches

 

Vote positif 0 Vote négatif

didique

XLDnaute Occasionnel

• 15 Janvier 2006

• #6

Bonsoir,

Pour compléter la réponse de Gérard, tu peux aussi modifier cela en ouvrant panneau de configuration,
options régionales,
personnaliser,
nombres,
symbole décimal et là tu choisis !

Voilà, je me souvenais aussi avoir beaucoup cherché à une époque ... et appris ça ici d'ailleurs !

Tchao !
:silly:

Arf ... désolée ALcazone je ne t'avais pas vu arriver !
Je dois taper bien lentement .... 😉

Message édité par: didique, à: 15/01/2006 19:48

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #7

Nan, j'ai deja changé dans les options du panneau de configuration et dans les options de Excel. C'est pourquoi je me demande si ce n'est pas possible avec une macro ou un trucs dans le style !

Merci a vous tous

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 15 Janvier 2006

• #8

Bonsoir tout le monde,

Sinon, par macro, tu pourrais peut-être essayer avec cette procédure :

Sub Traitement()
Dim Cellule As Range
      For Each Cellule In ActiveSheet.UsedRange.Cells
            Cellule.Value = Val(Cellule.Value)
      Next Cellule
End Sub

Cliquez pour agrandir...

J'ajoute que depuis XL2003, il est possible de modifier le séparateur décimal (point/virgule) directement dans les options d'Excel...

Cordialement,

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #9

ca fonctionne des lors que les valeurs des cellules ne sont issues de formules !!! Sinon ca ne transforme pas en valeurs décimal avec une virgule

Merci

 

Vote positif 0 Vote négatif

didique

XLDnaute Occasionnel

• 15 Janvier 2006

• #10

re bonsoir,

Didier, j'ai la version 2003, mais je ne vois pas où il est possible de faire cela directement ...
Le tuyau m'intéresse donc ! 😉


A+

Bises

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #11

Mi j'ai deja fait la modif mais ca n'apporte rien.

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #12

Il n'y aurait pas moyen de récupérer la valeur de la cellule (pas la formule). De récupérer ensuite la partie a gauche du point puis celle a droite du point puis enfin faire une concaténation avec une virgule entre les deux ? Je suis pas trop doué pour m'embarquer la dedans ? Est ce une idée faisable ??? Merci

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 15 Janvier 2006

• #13

Re le fil,

Désolé piep14, pour ma part, je n'ai pas d'autres solutions à te soumettre que celle que j'ai mise un peu plus haut... et je suppose que si tu pouvais Lien supprimé (épuré des données inutiles ou confidentielles bien-sûr), on y verrait certainement plus clair...

Pour Didique -----> Lien supprimé.

Cordialement,

 

Vote positif 0 Vote négatif

piep14

XLDnaute Occasionnel

• 15 Janvier 2006

• #14

Sans probleme, voici le fichier, les données a modifier se trouve sur l'onglet CONCURRENCE !!

Merci sincèrement de votre aide [file name=concurrence_20060115212403.zip size=45085]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/concurrence_20060115212403.zip[/file]

 

Pièces jointes

• concurrence_20060115212403.zip

  44 KB · Affichages: 10

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 15 Janvier 2006

• #15

Re piep14,

Tu trouveras ci-joint ton classeur modifié avec une tentative de réponse à ton problème.
J'y ai ajouté un module de code 'TraitementConv' contenant une seule et unique procédure qu'il convient de lancer manuellement :

Sub Conversion()
Dim F As Worksheet
Dim Cellule As Range
      For Each F In Worksheets
            For Each Cellule In F.UsedRange.Cells
                  If Not Cellule.HasFormula And Cellule.Value Like '*.*' Then
                        Cellule.Value = Val(Cellule.Value)
                  End If
            Next Cellule
      Next F
End Sub

Cliquez pour agrandir...

En espèrant que ça puisse t'être utile...

Cordialement, [file name=CONCURRENCE.zip size=27411]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CONCURRENCE.zip[/file]

 

Pièces jointes

• CONCURRENCE.zip

  26.8 KB · Affichages: 15
• CONCURRENCE.zip

  26.8 KB · Affichages: 15
• CONCURRENCE.zip

  26.8 KB · Affichages: 18

Vote positif 0 Vote négatif