URGENT VBA ?

[Flo]

Bonjour le forum,

J'ai un petit problème à résoudre rapidement.

A la suite d'une conversion d'un fichier PDF sous excel, le logiciel utilisé à recopier les chiffres du PDF vers excel mais ces derniers ne sont exploitables...

Pour pouvoir les exploiter je suis obliger de cliquer dans chaque cellule et de supprimer l'espace qu'il y a entre les miliers et les centaines...

Le format de cellule n'a pas fonctionné, je pense qu'il existe un programme VBA qui permet de faire ce travail...

Merci à qui trouvera bonne journée !

PS: je suis en attente du message retour

 

[dg62]

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

 

[Flo]

Merci didier je vais tester ça de suite !!

Croisons les doigts !

Bonne journée

 

[_Thierry]

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

Testé à l'instant.

Bonne Journée
@+Thierry

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

 

[Flo]

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 ?

 

[Flo]

Merci Thierry c'est super,

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

A bientot sur le forum

 

[_Thierry]

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

 

[dg62]

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