Format de cellule

Pierrot93

XLDnaute Barbatruc

• 28 Février 2008

• #2

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
@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Février 2008

• #3

Re : Format de cellule

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

Code:

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2008

• #4

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2008

• #5

Re : Format de cellule

@bHbh

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

Chapeau bas🙂

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 28 Février 2008

• #6

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 :

Code:

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

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 28 Février 2008

• #7

Re : Format de cellule

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

je tente..

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 28 Février 2008

• #8

Re : Format de cellule

Bon aucune des solutions ne fonctionne.

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

 

Pièces jointes

• probpoint.zip

  19.4 KB · Affichages: 36

Vote positif 0 Vote négatif

G

Guest

Guest

• 28 Février 2008

• #9

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

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 28 Février 2008

• #10

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..

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Février 2008

• #11

Re : Format de cellule

RE-,

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

Cliquez pour agrandir...

😕😕

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

Code:

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 😕

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Février 2008

• #12

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 :

Code:

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 😉

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 28 Février 2008

• #13

Re : Format de cellule

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


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

 

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 29 Février 2008

• #14

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 ?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Février 2008

• #15

Re : Format de cellule

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

 

Vote positif 0 Vote négatif