Autres Comment enlever ces listes de choix

[pygocentus]

Bonsoir,
Actuellement je travail sur un fichier dont j'ai en quelque sorte faiT un extrait (copier/coller pour les colonnes A et C ). Le problème est simple comment pourvoir faire des calculs ou tri à partir des cellules des colonnes A et C sans avoir des résultats aberrants comme en E2 et F2 et dans la colonne G. je pense que le problème vient des données récupérées dans les colonnes A et C qui propose des listes de choix. Le fichier original étant très volumineux je me vois mal retaper toutes les valeurs par cellules sachant qu'elles sont réactualisées quotidiennement. Merci pour vos lumières car moi je suis éteint, j'ai utilisé toutes mes allumettes

 

[Dudu2]

Bonsoir,
1 - Tes nombres n'en sont pas, c'est du texte.
2 - De plus le texte contient le signe "€".
3 - De plus le signe "€" est précédé d'un espace insécable qui ressemble à un espace mais qui n'en est pas un.
Alors c'est au niveau de la récup que quelque chose ne va pas et qu'il faudrait améliorer pour récupérer des valeurs numériques.

Sinon pour corriger ça sur ton fichier, perso je ne sais pas faire sauf à passer par des colonnes intermédiaires utilisant une formule du genre =CNUM(SUBSTITUE(C2;CAR(160)&"€";"")).
Puis:

• Soit copier la colonne intermédiaire en valeur dans la colonne originale, et, s'il n'y est pas déjà, définir le bon format, monétaire s'il faut conserver les "€".
  
  
• Soit faire les calculs directement sur les colonnes intermédiaires pour éviter les recopies.

 

[sylvanu]

Bonjour Pygocentrus, Dudu,
Un peu à labour ...
Dans la même idée que la première idée de Dudu, un essai en PJ avec deux nouvelles colonnes :

Ventes :
=CNUM(SUBSTITUE(SUBSTITUE(A2;",";"");" €";""))/100
Gains :
=CNUM(SUBSTITUE(SUBSTITUE(C2;",";"");" €";""))/100
Ratio :
=SIERREUR(G2/B2;"")

Deux autres idée :
1- Changer l'importation pour être compatible d' XL, si c'est possible.
2- traiter les données en VBA pour faire la conversion juste après l'importation.

 

[sylvanu]

Re,
Le même en macro. Il suffit d'appuyer sur le bouton pour convertir la page. Avec :

Sub Convertir()
    Dim T, i%
    T = [A1].CurrentRegion
    For i = 2 To UBound(T)
        T(i, 1) = Val(Replace(Replace(T(i, 1), ",", ""), " €", "")) / 100
        T(i, 3) = Val(Replace(Replace(T(i, 3), ",", ""), " €", "")) / 100
        If T(i, 2) <> 0 Then T(i, 6) = T(i, 3) / T(i, 2)
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
    [D2] = Application.Sum([A:A]): [E2] = Application.Sum([C:C])
End Sub

 

[job75]

Bonjour,

Sinon pour corriger ça sur ton fichier, perso je ne sais pas faire sauf à passer par des colonnes intermédiaires utilisant une formule du genre =CNUM(SUBSTITUE(C2;CAR(160)&"€";"")).

Simplement exécuter cette macro :

Sub Remplacer()
ActiveSheet.UsedRange.Replace Chr(160), " ", xlPart
End Sub

A+

 

[Dudu2]

Bonjour @job75,

En effet, ça le fait pour les formules Ratios mais pas pour les Sommes qu'il faut alors transformer en formules matricielles: =SOMME(A2:A9) -> {=SOMME(CNUM(A2:A9))}

Et ce xlPart, est-il bien utile ? Je ne vois pas qu'il soit cité dans la doc du Replace.

 

[job75]

Avec la solution précédente les colonnes A et C restent des textes.

Pour y remédier :

Sub Convertir()
Dim ncol%, tablo, i&, j%, v
ncol = 3
With [A1].CurrentRegion.Resize(, ncol)
    tablo = .Resize(, ncol)
    For i = 1 To UBound(tablo)
        For j = 1 To ncol
            v = Replace(tablo(i, j), Chr(160) & "€", "")
            If IsNumeric(v) Then tablo(i, j) = CDbl(v)
    Next j, i
    .Value = tablo
End With
End Sub

 

[Dudu2]

Comme il devra le faire à chaque import, j'ai copié sur vous et lui ai fait un fichier indépendant pour activer la macro par un raccourci sur la feuille concernée.
On ne pourra pas dire que les XLDnautes Nouveaux ne sont pas bien traités par les plus anciens !

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @pygocentus
Juste pour savoir, avec quelle version d'Excel travailles-tu ?

 

[pygocentus]

Bonsoir,
1 - Tes nombres n'en sont pas, c'est du texte.
2 - De plus le texte contient le signe "€".
3 - De plus le signe "€" est précédé d'un espace insécable qui ressemble à un espace mais qui n'en est pas un.
Alors c'est au niveau de la récup que quelque chose ne va pas et qu'il faudrait améliorer pour récupérer des valeurs numériques.

Sinon pour corriger ça sur ton fichier, perso je ne sais pas faire sauf à passer par des colonnes intermédiaires utilisant une formule du genre =CNUM(SUBSTITUE(C2;CAR(160)&"€";"")).
Puis:

• Soit copier la colonne intermédiaire en valeur dans la colonne originale, et, s'il n'y est pas déjà, définir le bon format, monétaire s'il faut conserver les "€".
  
  
• Soit faire les calculs directement sur les colonnes intermédiaires pour éviter les recopies.

Bonjour Pygocentrus, Dudu,
Un peu à labour ...
Dans la même idée que la première idée de Dudu, un essai en PJ avec deux nouvelles colonnes :

Ventes :
=CNUM(SUBSTITUE(SUBSTITUE(A2;",";"");" €";""))/100
Gains :
=CNUM(SUBSTITUE(SUBSTITUE(C2;",";"");" €";""))/100
Ratio :
=SIERREUR(G2/B2;"")

Deux autres idée :
1- Changer l'importation pour être compatible d' XL, si c'est possible.
2- traiter les données en VBA pour faire la conversion juste après l'importation.

 

[pygocentus]

Merci à tous pour votre contribution et au champion dudu il a juste fallu que je remplace les espaces insécables par des espaces normaux avec un rechercher remplacer et t tout fonctionne bien depuis. je pense que je vais faire une macro comme ça je serai tranquille pour la suite. Encore mille fois merci pour votre aide. Juste une petite question au passage comment Dudu a repéré les espaces insécables ?

 

[AtTheOne]

Re bonsoir,
@pygocentus , juste une petite remarque, c'est le post qui t'apporte la solution que tu dois cocher, pas le tien.
Et pour la version d'Excel utilisée, c'est laquelle ?
À bientôt

 

[Dudu2]

@pygocentus,
A ta place je m'intéresserais au fichier du Post #8 qui est un sorte de synthèse des contributions des Excellents du site.
Un fois ouvert, y a rien à faire d'autre que Ctrl + w sur la feuille à corriger. Plus simple ça n'existe pas !