Conversion texte en nombre plus format

Version imprimable

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:

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 ?

09/05/2018, 16h37
Jean-Philippe André

Salut,

tu peux passer par 2 arrays dans lesquelles tu stockes les textes à dégager et dans l'autre le format équivalent.

Tu peux ensuite faire une boucle For sur le contenu de ton Array :)

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'En tout début de Module
Option Explicit
'Oblige à déclarer l'ensemble des variables utilisées dans le code
 
'Déclarer ses variables
Dim Cel As Range
Dim CellExt As Range
Dim StrTrois As String
 
'Autant que possible il vaut mieux éviter les activesheet, activeworkbook...
'c'est source de problème en cas de changement involontaire de feuille active par exemple au cours de l’exécution du code
For Each Cel In Feuil1.UsedRange
    'On récupère les trois dernières caractères
    StrTrois = Right(Cel, 3)
 
    'On contrôle que ces trois caractères représentent une extension connue (petit tableau contenant les extensions possible)
    With Feuil2
        For Each CellExt In .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
            If CellExt.Value = StrTrois Then
                'OK c'est une des extensions à remplacer, on garde juste la partie numérique
                'Pour les paramètre, on utilise la forme "MatchCase:" uniquement si les paramètre ne se suivent pas
                'Par contre attention du moment qu'on écrit un paramètre "MatchCase:", les suivant devront tous être écrit de la même façon
                'Sinon on écrit au plus simple pour alléger le code
                Cel.Replace StrTrois, "", xlPart, MatchCase:=False
                'On peut aussi faire
                'Cel.Value = Val(Cel.Value)
                'Dans les deux cas attention au séparateur décimal qui est souvent source de problèmes (. ou ,)
                'On va chercher le format que l'on souhaite mettre à la place dans le tableau Feuil2
                cell.NumberFormat = CellExt.Offset(, 1).Value
                'On passe à la cellule suivante
                Exit For
            End If
        Next
    End With
Next

Tout les commentaires sont dans le code ;)
Bonne lecture :)

++
Qwaz

Salut

En enregistrant le fichier, je vient de voir que j'avais fait une boulette, j'ai oublié de mettre les ouvrant et fermant de la Sub...
Vu que je n'avais pas de données à tester, je n'ai pas lancé la macro, dit moi si tu rencontres un problème avec

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
'En tout début de Module
Option Explicit
'Oblige à déclarer l'ensemble des variables utilisées dans le code
 
Sub teste()
 
'Déclarer ses variables
Dim Cel As Range
Dim CellExt As Range
Dim StrTrois As String
'Autant que possible il vaut mieux éviter les activesheet, activeworkbook...
'c'est source de problème en cas de changement involontaire de feuille active par exemple
For Each Cel In Feuil1.UsedRange
    'On récupère les trois dernières caractères
    StrTrois = Right(Cel, 3)
 
    'On controle que ces trois caractères représentent une extension connue (petit tableau contenant les extension possible)
    With Feuil2
        For Each CellExt In .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
            If CellExt.Value = StrTrois Then
                'OK c'est une des extensions à remplacer, on garde juste la partie numerique
                'Pour les paramètre, on utilise la forme "MatchCase:" uniquement si les paramètre ne se suivent pas
                'Par contre attention du moment qu'on écrit un paramètre "MatchCase:", les suivant devront tous être ecrit de la même façon
                'Sinon on écrit au plus simple pour aléger le code
                Cel.Replace StrTrois, "", xlPart, MatchCase:=False
                'On peut aussi faire
                Cel.Value = Val(Cel.Value)
                'Dans les deux cas attetion au séparateur décimal qui est souvent source de problèmes (. ou ,)
                'On va chercher le format que l'on souhaite mettre à la place dans le tableau Feuil2
                cell.NumberFormat = CellExt.Offset(, 1).Value
                'On passe à la cellule suivante
                Exit For
            End If
        Next
    End With
Next
End Sub

++
Qwaz

10/05/2018, 07h51
halaster08

Merci pour les réponses, là je profite des ponts pour me reposer un peu, dès que je rentre je teste tout ça.