Bienvenue sur les forums conseil & création · S'enregistrer

Se connecter automatiquement

Forums » Tableurs et logiciels de gestion (Money, Excel, Open Office...) » Conversion en nombre · Envoyer le lien

Par didierguigon, le 07 Fév 2006, 15:54 Revenir en haut de page Répondre en citant

Bonjour,

Je récupère mes dépenses sous le format: - 52,79 EUR, par exemple.
je voudrais convertir une liste de dépenses en nombres que je puisse additioner sous format: -€ 52,79.

Faut il une macro (j'arrive pas à faire une macro qui marche sur plus d'une ligne...)?

Merci
Par Cédric, le 10 Fév 2006, 00:22 Revenir en haut de page Répondre en citant

Bonsoir,

Cette fonction devrait fonctionner (en remplaçant "B" par la bonne colonne) :

Code:
Dim colonne As Object
Set colonne = Worksheets("Feuille1").Columns("B")
colonne.Replace _
    What:=" Eur", Replacement:="", _
    SearchOrder:=xlByColumns, MatchCase:=False
For Each rng In colonne.Cells
  If (IsNumeric(rng.Value) And rng.Value <> "") Then
    rng.Value = CDbl(rng.Value)
  End If
Next

Forums » Tableurs et logiciels de gestion (Money, Excel, Open Office...) » Conversion en nombre · Envoyer le lien