Microsoft 365 Problème de données non exploitable

cp4

XLDnaute Barbatruc

• 1 Janvier 2022

• #16

Marcel32 à dit:

N(est-ce pas. 😉

Cliquez pour agrandir...

Chez moi aussi ça plante.

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Janvier 2022

• #17

cp4 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dugenou

XLDnaute Barbatruc

• 1 Janvier 2022

• #18

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é

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Janvier 2022

• #19

Chalut toi 🙂
Bizarre chez moi, ça marche.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Janvier 2022

• #20

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.

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Janvier 2022

• #21

Usine à gaz à dit:

Chalut toi 🙂
Bizarre chez moi, ça marche.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Janvier 2022

• #22

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

 

Pièces jointes

• données extraits.xls

  57.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Janvier 2022

• #23

cp4 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Janvier 2022

• #24

Usine à gaz à dit:

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

Cliquez pour agrandir...

Mon ami rien n'a changé

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Janvier 2022

• #25

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Janvier 2022

• #26

cp4 à dit:

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

Cliquez pour agrandir...

Bizarre ... bizarre voir fichier joint

 

Dernière édition: 1 Janvier 2022

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Janvier 2022

• #27

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. 😉

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 1 Janvier 2022

• #28

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

VB:

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 1 Janvier 2022

• #29

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 1 Janvier 2022

• #30

Marcel32 à dit:

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. 😉

Cliquez pour agrandir...

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 🙂

 

Vote positif 0 Vote négatif