Enlever le texte d'une cellule (urgent)

[stephane]

bonjour à tous,

j'ai des céllules qui contiennent des données de la formes :1.007am
Et je ne voudrais garder que 1.007 !(les formules gauche et droite ne sont pas ,dans mon cas utilisable!)

comment puis-je faire?

C'est tres urgent alors si vous pouvez m'aider ça serais super sympa!!

Merci d'avance

 

[Marmotte3]

Essaye de faire une macro du genre :

Public Sub SansTexte()
Count = Len(range("TaCellule")
Name = Left(Range("TaCellule", Count - 2)
Range("Tacellule").Select
ActiveCell.FormulaR1C1 = Name
end sub

Je ne l'ai pas tester mais regarde !

 

[STéphane]

menu édition puis remplacer am par rien du tout.