Microsoft 365 Problème de données non exploitable

[homernell]

Bonjour à tous,

Dans le fichier joint j'ai une donnée importante et pourtant non exploitable.

Dans la colonne V les résultats extraits à partir d'un logiciel dont je n'ai pas la main, sont normalement en €, mais lorsque je veux les exploiter dans un autre tableau "Impossible"

Seule possibilité trouvé les retaper, mais du coup perte de temps.

Merci d'avance pour vos retours.

 

[cp4]

N(est-ce pas.

Chez moi aussi ça plante.

Pour le format, c'est du monétaire (voir résultat en image)

 

[TooFatBoy]

Pour le format, c'est du monétaire (voir résultat en image)

Je me posais justement la question. Merci d'y avoir répondu.

 

[Dugenou]

Re,
A partir du moment ou tu as parfois des données avec une virgule comme séparateur décimal et parfois une virgule comme séparateur de milliers, je ne vois pas de solution. Il sort d'où ton 171,53 ?
Dans ton exemple il n'y a que des . comme séparateur décimal
Désolé

 

[Usine à gaz]

Chalut toi
Bizarre chez moi, ça marche.

 

[TooFatBoy]

Le pb vient peut-être de FormulaVersion:=xlReplaceFormula2.
Mais même sans cela, ça me retourne une erreur quand il n'y a pas de virgule dans le nombre d'origine.

 

[cp4]

Chalut toi
Bizarre chez moi, ça marche.

Sur ma becane W7 64 bits Excel2010 32 bits voici ce que ça donne

 

[Usine à gaz]

Les colonnes V et W contiennent des cellules fusionnées.
J'ai supprimé les fusions.

 

[Usine à gaz]

Sur ma becane W7 64 bits Excel2010 32 bits voici ce que ça donne
Regarde la pièce jointe 1126205

Bizarre, chez moi ça marche.
J'ai remis un fichier en supprimant les fusions et ça fonctionne aussi

 

[cp4]

Les colonnes V et W contiennent des cellules fusionnées.
J'ai supprimé les fusions.

Mon ami rien n'a changé

 

[TooFatBoy]

Ca fait un peu plus usine à gaz, mais ça plante toujours au même endroit.

 

[Usine à gaz]

Mon ami rien n'a changé
Regarde la pièce jointe 1126207

Bizarre ... bizarre voir fichier joint

 

[TooFatBoy]

Pour info, ça ne plante plus si on met seulement ça :
Selection.Replace What:=",", Replacement:=""

Mais les textes qui ne comportent pas de virgule ne sont pas transformés en nombres, ça reste du texte
Et tu as oublié de lui refusionner ses cellules.

 

[TooFatBoy]

Si on veut passer par VBA, je propose ça :

Sub test()
    For Each c In Range("V16:V60")
        If c.Value <> "" Then
            If InStr(1, c.Value, ".") <> 0 Then c.Value = CDbl(Replace(Replace(c.Value, ",", ""), ".", ","))
            c.NumberFormat = "0.00"
        End If
    Next c
End Sub

 

[cp4]

Je n'avais pris en compte que la colonne V. Or, la colonne X serait aussi en format monétaire.

Sub essai2()
    Dim c As Range, Rng As Range, dl As Long
    With Sheets("sheet1")
        dl = .Range("V" & Rows.Count).End(xlUp).Row
        Set Rng = Application.Union(.Range("V2:V" & dl), .Range("X2:X" & dl))
        For Each c In Rng
            c.Value = Replace(c, ",", "")
            c.NumberFormat = "#,##0.00 $"
        Next c
    End With
End Sub

 

[Usine à gaz]

Pour info, ça ne plante plus si on met seulement ça :
Selection.Replace What:=",", Replacement:=""

Mais les textes qui ne comportent pas de virgule ne sont pas transformés en nombres, ça reste du texte
Et tu as oublié de lui refusionner ses cellules.

Mais si, mais si comme tu peux le voir sur l'animation du poste 26 toutes les cellules sont bien transformées en nombres.
En ce qui concerne la refusion des cellules, attendons le retour du demandeur