Discussion :

[ghazi.hlioui]

j'ai essayé ces deux formules : 2 en 1 pour supprimer l'espace , convertir le format text en nombre.
je voudrais savoir si on peut faire une macro pour ces deux fonctions ?

=CNUM(SUBSTITUE(A1;CAR(160);" "))
=CNUM(SUBSTITUE(A1;CAR(160);CAR(32)))

merci d'avance de votre réponse

[Philippe Tulliez]

Bonjour,
Avec Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CNUM(SUBSTITUE(SUBSTITUE(A1;CAR(32);"");CAR(160);""))

Avec VBA en fonction personnalisée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function Remplace(Valeur)
  Remplace = Val(Replace(Replace(Valeur, Chr(160), ""), Chr(32), ""))
End Function

Reste à savoir s'il faut ajouter des arguments.