URGENT VBA ?

dg62

XLDnaute Barbatruc

• 8 Juillet 2005

• #2

Bonjour Flo, le forum



sub supprespace()
dim cel as range

for each cel in selection
cel.value=replace(cel.value,' ','')
next

end sub


non testé, mais ca devrait fonctionner.


Cordialement

 

Vote positif 0 Vote négatif

F

Flo

Guest

• 8 Juillet 2005

• #3

Merci didier je vais tester ça de suite !!

Croisons les doigts !

Bonne journée

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Juillet 2005

• #4

Re: VBA Convertir Valeur Texte en Numérique

Bonjour Flo, Didier, le Forum

Et si tu as besoin de quelque chose encore plus radical :

Sub Urgence()
Dim Cell As Range

For Each Cell In ActiveSheet.UsedRange
If IsNumeric(Left(Trim(Cell), 1)) Then
    Cell = Application.WorksheetFunction.Substitute(Cell.Text, Chr(32), '')
    Cell = CDbl(Val(Cell) * 1)
    Cell.NumberFormat = '0.00'
End If
Next

End Sub

Cliquez pour agrandir...

Testé à l'instant.

Bonne Journée
@+Thierry

PS Attention à l'avenir à ton Sujet qui n'est pas très 'XLD Compliant' (Voir Charte)

 

Vote positif 0 Vote négatif

F

Flo

Guest

• 8 Juillet 2005

• #5

Snif ça fonctionne pas !!

Quand j'exécute la macro il me dit qu'il y a une erreur de compilation : sub ou fonction non définie !!

C'est au niveau de 'Replace'... Aurais tu une solution ?

 

Vote positif 0 Vote négatif

F

Flo

Guest

• 8 Juillet 2005

• #6

Merci Thierry c'est super,

Je te souhaite une bonne journée et surtout un bon week end !

A bientot sur le forum

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 8 Juillet 2005

• #7

Re Flo,

Ne serais-tu pas sous Mac ? Car si je ne m'abuse, Mac ne supporte pas la Fonction Replace, mais dans ce cas 'WorksheetFunction.Substitute' devrait passer...

Bonne Journée
@+Thierry

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 8 Juillet 2005

• #8

Salut Thierry


de l'élégance dans le code et universel !

bien mieux qu'un replace qui ne sait même pas fonctionner sur un Mac !

Snif, comme dirait Flo.




Cordialement

 

Vote positif 0 Vote négatif