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

Temjeh

XLDnaute Accro

• 5 Février 2009

• #2

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 5 Février 2009

• #3

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é

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 5 Février 2009

• #4

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

Code:

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

 

Dernière édition: 5 Février 2009

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 6 Février 2009

• #5

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

 

Dernière édition: 7 Février 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 6 Février 2009

• #6

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

Bsr à tous


A voir

Code:

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

A+

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 6 Février 2009

• #7

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

Code:

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

Merci

 

Dernière édition: 6 Février 2009

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 6 Février 2009

• #8

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

 

Vote positif 0 Vote négatif

R

roidurif

XLDnaute Occasionnel

• 25 Mars 2009

• #9

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

Code:

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

 

Vote positif 0 Vote négatif