Bonjour,

Je récupère un fichier Excel contenant plusieurs indicateur, certains indicateurs sont écrits au format texte (exemple 16,5 J. ou 1,89 M €)
Je cherche a faire une macro qui va récupérer la valeur dans la cellule et mettre l'unité dans le format.
Pour l'instant j'ai dans l'idée de parcourir chaque cellule d'y vérifier le contenu et suivant le cas remplacer l'unité par rien (ce qui passe la cellule au format numérique), puis de modifier le format afin de faire réapparaitre l'unité

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
for each cel in activesheet.usedrange
 select case right(cel,3)
  case "M €"
   Cel.Replace What:=" M €", Replacement:="", LookAt:=xlPart, _
   SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   ReplaceFormat:=False
   Cel.NumberFormat = "0.00,"" M €""" 
  case ...
 end select
next cel
Ca devrait être fonctionnel mais j'ai l'impression qu'il y a plus simple.
Vous en pensez quoi ? Quelqu'un a une autre idée ?