Changer format cellule de texte en chiffres

[Guillaume]

Bonjour,

je veux automatiser un changement de format de cellules mais VBA ne reproduit pas ce que je fais avec Excel seul.
LEs cellules sont à l'origine exportées de Siebel avec € et en format standard.
Version Excel pure:
1)je sélectionne la colonne
2) je vais dans le menu "remplacer", je choisis " €" par "" et du coup ma cellule prend déjà un format chiffre.

En VBA: la même procédure ne fait que remplacer mes " €" par "" mais les chiffres restent à gauche, donc Excel ne peut plas additionner les cellules.

Merci de votre aider et bonne soirée

 

[Ronan]

Bonsoir à tous,

En VBA, après avoir remplacé le sigle "€" par "" il faut affecter la valeur à une variable préalablement déclaré en nombre CAD "Dim valeur as double" puis remplacer la valeur de la cellule par la nouvelle

Dim Valeur as double
valeur=range("a1").value 'par exemple
ra,ge("a1").value=valeur

@+

Ronan

 

[Ronan]

En + complet

Dim valeur As String
Dim valeur2 As Double
valeur = Range("a1").Value
valeur2 = Application.WorksheetFunction.Substitute(b, " €", "", 1)
Range("b2").Value = valeur2

 

[Ronan]

En + simple

Dim valeur As String
Dim valeur2 As Double
valeur = Range("a1").Value
valeur2 = Replace(valeur, " €", "", 1)
Range("a1").Value=valeur2

@+

Ronan

 

[Guillaume]

Merci Ronan,

ta formule fonctionne sur une cellule mais comemnt puis-je l'appliquer sur une colonne entière.
La fonction replace est bien plus jolie, merci 🙂
Guillaume

 

[Guillaume]

Merci Ronan,

ca ne marchait pas. J'ai trouvé sur un forum allemand la solution suivante que je recopie pour info:

Sub Zahlen_auslesen()
decimalseparation= ","
For i = 1 To 3
valeur = Cells(i, 1).Value 'Exemple A1 à A3
cellvaleur = ""

For k = 1 To Len(wert)
z = Mid(wert, k, 1)
If Not (Asc(z) > 47 And Asc(z) < 58) Then
If z = decimalseparation Then
If Not Asc(Mid(wert, k + 1, 1)) > 47 And Asc(Mid(wert, k + 1, 1)) < 58 Then
z = ""
End If
Else
z = ""
End If
End If
cellvaleur= cellvaleur& z
Next k

Cells(i, 2).Value = CDbl(zellwert) 'valeurs recopiées dans B1 bis B3
Next i

End Sub