[Résolu] VBA impossible de convertir en format monétaire car espaces invisibles

Version imprimable

17/12/2023, 10h45
hyrkanie

1 pièce(s) jointe(s)

[Résolu] VBA impossible de convertir en format monétaire car espaces invisibles

Bonjour

Je n’arrive pas à faire une macro qui me convertit le contenu de la colonne dans laquelle les données semblent monétaires mais que je ne peux additionner.
Je voudrais donc une aide pour les convertir en format monétaire pour faire des additions.
il s’agit d’un fichier qui est généré par l’export au format excel d’une application.
j’ai bien sur demander au service informatique de réparer cet export mais ça prendra du temps on m'a dit c'est en haut de la pile mais pas rapidement....
La seule solution pour le moment que j'ai trouvée c’est de faire un rechercher remplacer tout et de sélectionner deux fois deux suite les espaces invisibles mais c'est assez fastidieux donc si ça pouvait être fait par la macro je préférerai.
et je ne connais pas les codes de ces espaces invisibles j'ai bien essayé d'autres polices que calibra en vain.
Merci pour votre aide.
Bon dimanche

Bonjour,

A tester :

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
38
39
40
 
Option Explicit
 
Sub Test()
 
Dim I As Integer, DerniereColonne As Integer, DerniereLigne As Integer
 
    With Sheets("datas")
         DerniereColonne = .Cells(1, .Columns.Count).End(xlToLeft).Column
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
 
         .Cells(1, DerniereColonne + 1).Formula = "=SUBTOTAL(9," & .Range(.Cells(2, DerniereColonne + 1), .Cells(DerniereLigne, DerniereColonne + 1)).Address & ")"
         .Cells(1, DerniereColonne + 1).NumberFormat = "#,##0.00 $"
 
         For I = 2 To DerniereLigne
             .Cells(I, DerniereColonne + 1) = Conversion(.Cells(I, DerniereColonne))
             .Cells(I, DerniereColonne + 1).NumberFormat = "#,##0.00 $"
         Next I
    End With
 
End Sub
 
 
Function Conversion(ByVal Valeur As String) As Variant
 
Dim I As Integer
 
    Conversion = ""
    For I = 1 To Len(Valeur)
       Select Case Mid(Valeur, I, 1)
               Case Chr(32), Chr(160), "€"
 
               Case 0 To 9, ","
                    Conversion = Conversion & Mid(Valeur, I, 1)
       End Select
    Next I
 
    Conversion = CDbl(Conversion)
 
End Function

Salut, testé et fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ConvertirFormatMonetaire()
 
    Dim ws As Worksheet
    Dim c As Range
    Dim rng As Range
 
    Set ws = Worksheets("datas")
    Set rng = ws.Range("D2:D" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)
 
    For Each c In rng
        If IsNumeric(c.Value) Then
            c.Value = CDbl(c.Value)
            c.NumberFormat = "#,##0.00 €"
        End If
    Next c
 
End Sub

17/12/2023, 14h14
hyrkanie

1 pièce(s) jointe(s)

j'ai testé vos deux propositions

Bonjour
Merci Franc et E KERGRESSE

On m'a dit que le problème viendrait de l'espace juste avant le symbole qui est considéré comme un "no-break space"

Sinon, j'ai testé vos deux propositions :

Celle de Franc ne fonctionne pas : je la lance mais quand je sélectionne les cellules pour voir en bas à droite de la feuille excel si elle fait bien les totaux elle me dit le nombre de sélections mais pas le total ou la moyenne.
Peut-être est le format proposé dans la macro qui n'est pas français car séparateur de milliers virgule et séparateurs de centimes le point même si j'ai essayé en enlevant le point remplacé par la virgule. il y a peut-être quelque chose que j'ai pas bien fait.

celle de E. KERGRESSE fonctionne qui combine avec une fonction me transforme bien le contenu de la colonne D dans la colonne adjacente et fait le total.

Je mets le fichier xlm avec les deux macros: la macro test () fonctionne et celle de Franc ConvertirFormatMonetaire() qui semble ne pas fonctionner.

Pièce jointe 647936

Encore une fois merci énormément
17/12/2023, 14h40
Franc

Comme précisé dans ma première réponse, j'avais testé. J'ai donc retesté sur le dernier classeur que tu as envoyé et de nouveau ça fonctionne. Quand je sélectionne les cellules contenant les valeurs, j'ai bien le total qui s'affiche sur la barre de statut en bas à droite. Quand j'insère la fonction "Somme" en bas de colonne, j'ai bien le total qui s'affiche.
Donc le problème ne vient pas de la macro. La macro travaille sur la feuille "Datas", tu es sûr de ne pas avoir testé "Datas(2)" ?
17/12/2023, 15h54
hyrkanie

Avec mes excuses et remerciements Franc pour avoir regardé à nouveau.

J'avais bien lu que tu avais testé.

Ta macro pour le moment ne marche pas sur mon ordinateur. Ça doit venir d'autres choses comme tu le dis.
Je vais demander à un ami de la tester sur son ordinateur.

Bien à vous deux.
Et encore bon dimanche.