Macro Convertir les nombres stockés en tant que texte en nombres

[roidurif]

Convertir les nombres stockés en tant que texte en nombres

Il peut arriver que des nombres soient mis en forme et stockés dans des cellules sous forme de texte, ce qui risque d’entraîner des problèmes de calcul ou de tri des données. Cela se produit, par exemple, lorsque vous entrez un nombre dans une cellule mise en forme en tant que texte ou lorsque les données sont importées ou copiées d’une source de données externe en tant que texte.

Les nombres mis en forme en tant que texte sont alignés à gauche et non à droite dans la cellule.

Je souhaite avoir une macro qui fait Convertir les nombres stockés en tant que texte en nombres pour une colonne par exemple.

Merci bcp

 

[Temjeh]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bonjour

Ptêtre:

Select colonne...
Donnée...
Convertir...
Terminer

Pour colA:

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

A+

Temjeh

 

[PascalXLD]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bonjour

tu veux à tout prix une macro ?

car sinon tu peux faire tout simplement

taper 1 dans une cellule
la copier
selectionner toute ta colonne
faire collage spéciale et cocher multiplication
et le tour est joué

 

[roidurif]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Oui une macro merci

J'ai essayer ta macro et j'ai l impression que sa rame

s'il y a d'autre solution je suis preneur

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

 

[Temjeh]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bonsoir

Ca rame?

Ce code sert a mettre les Nombres/Textes en nombres!

Ptêtre que tu n'a pas la même version (moi excell 2003)

Fait l'opération que je t'ai donné:

Select colonne...
Donnée...
Convertir...
Terminer

Voir Image ici
A+

Temjeh

 

[vbacrumble]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bsr à tous


A voir

Sub macro()
ActiveSheet.UsedRange.Cells.NumberFormat = general
End Sub

A+

 

[roidurif]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bjr,

Comment faire appliquer cette macro sur la colonne AH uniquement de l'onglet "feuille2" par exemple

Sub macro()
ActiveSheet.UsedRange.Cells.NumberFormat = general
End Sub

Merci

 

[Temjeh]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bonjour

J,ai pas testé car je ne sais pas faire l'inverse pour le test alors je n'ai pas de texte/nombre pour le test

Ptêtre ceci:

ActiveSheet.Range("A1:H" & Range("H65536").End(xlUp).Row).NumberFormat = general

A+

Temjeh

 

[roidurif]

Re : Macro Convertir les nombres stockés en tant que texte en nombres

Bonjour,

J'ai fait cette macro, lorsque qu'il y'a plusieurs données dans une meme colonne, c'est tres long !!!!

Y'a t-il une solution pour que ce soit plus rapide?? SVP

Je vous en serait tres reconnaissant si vous pouvez m'aidez

Sub test()
For Each c In Range("AH2:AH").End(xlDown).Row.Select
c.NumberFormat = "0.00"
c.Value = Replace(c.Text, ",", ".")
Next c
End Sub

Merci d'avance