Format de cellule

[Ken Hutchinson]

Hello,


Besoin d'aide pour un truc que je ne maîtrise pas.

Dans un rappatriement de donnée j'ai des nombres avec des décimales. Ces décimales sont signifiées par des points (88.3) au lieu de virgules. Facile je fais une macro qui remplace les "." par des ",". Tout se passe bien MAIS les nombres restent à droite dans la colonne et je ne peux pas faire de calcul avec.

Lorsque je double-clique dans une cellule : miracle le nombre passe a droite et peut être mis dans un calcul...

Comment faire pour convertir ces données ? merci de votre aide...

Range("c9").Select

Set MaPlage = ActiveCell.CurrentRegion
nblignes = MaPlage.Rows.Count
For i = 2 To nblignes
     Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    
ActiveCell.Offset(1, 0).Select
Next i

 

[Pierrot93]

Re : Format de cellule

Bonjour Ken

as tu essayé de convertir la colonne, barre de menu => données => convertir => largeur fixe => suivant => suivant => terminé, souvent cela suffit....

A voir si cela fonctionne avec ton fichier...

bonne fin d'après midi
@+

 

[Cousinhub]

Re : Format de cellule

Bonjour,
salut pierrot
sur la même base :
en supposant plage de F1 à F10

Sub convertir()
    Range("F1:F10").TextToColumns Destination:=Range("F1"), DecimalSeparator:="."
End Sub

 

[Guest]

Re : Format de cellule

bonjour,

Dim c As Range
For Each c In Selection.Cells
If InStr(c, ".") > 0 Then c.Value = Val(c)
Next c


transformera toute les valeurs de la sélection en numérique si un point est trouvé dans la valeurs

 

[Guest]

Re : Format de cellule

@bHbh

Range("F1:F10").TextToColumns Destination:=Range("F1"), DecimalSeparator:="."

Chapeau bas🙂

 

[Ken Hutchinson]

Re : Format de cellule

Merci pour l'info !!

En manuel ça fonctionne mais dès que je le commande par macro ça ne fait rien..

j'ai mis ce bout de code :

    Columns("AB:AB").Select
    Selection.TextToColumns Destination:=Range("AB1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 1)

 

[Ken Hutchinson]

Re : Format de cellule

oups j'avais pas vu toutes les réponses...

je tente..

 

[Ken Hutchinson]

Re : Format de cellule

Bon aucune des solutions ne fonctionne.

je vous mets une copie de la colonne ce sera plus simple.

 

[Guest]

Re : Format de cellule

Chez moi la procédure suivante fonctionne très bien

Sub convertir()
Selection.TextToColumns Destination:=Selection.Range("A1"), DecimalSeparator:="."
End Sub

et celle-ci aussi (quoique plus longue)

Sub TransformeVersNumerique()
Dim c As Range
For Each c In Selection.Cells
If InStr(c, ".") > 0 Then c.Value = Val(c)
Next c
End Sub



Je travaille sous XP

 

[Ken Hutchinson]

Re : Format de cellule

cela convertit effectivement mais la cellule n'est pas incorporable à un calcul...

il faut double cliquer dans la cellule pour que le nombre passe a droite..

 

[Cousinhub]

Re : Format de cellule

RE-,

cela convertit effectivement mais la cellule n'est pas incorporable à un calcul...

😕😕

Chez moi, après ceci (de ton fichier)

Sub convertir()
Range("E9:E" & [E65000].End(xlUp).Row).TextToColumns Destination:=Range("E9"), DecimalSeparator:="."
End Sub

si je fais =E9+E10, j'ai bien 176 😕

 

[Cousinhub]

Re : Format de cellule

Re,
pourrais-tu élaguer ton fichier original, supprimer les noms, mais surtout préserver tes "chiffres" avec les points, et nous le poster?
Je subodore des valeurs issues d'une importation, et qui ne sont pas reconnues par Excel
Bien souvent, un :

Range("E9:E" & [E65000].End(xlUp).Row).Value = Range("E9:E" & [E65000].End(xlUp).Row).Value

suffit pour ce type de "chiffres"
avec ou sans le code ".....TextToColumns....", à toi d'essayer 😉

 

[Ken Hutchinson]

Re : Format de cellule

La honte m'envahit.... ça marche !!!


Merci beaucoup a tous !!! j'ai pris la dernière solution.

 

[Ken Hutchinson]

Re : Format de cellule

Bonjour,

Après vérification certaines données sont remises dans le bon format mais d'autres restent non numériques... bizarre ?

 

[Cousinhub]

Re : Format de cellule

Bonjour,
as-tu également essayé avec le code de mon dernier post?
......Value = ....Value