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é
Ca devrait être fonctionnel mais j'ai l'impression qu'il y a plus simple.
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
Vous en pensez quoi ? Quelqu'un a une autre idée ?
Partager