Autres Comment enlever ces listes de choix

pygocentus · 9 Juin 2023

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 · 10 Juin 2023

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 !

Dudu2 · 9 Juin 2023

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 · 10 Juin 2023

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 :

VB:

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 · 10 Juin 2023

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

VB:

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 · 10 Juin 2023

Bonjour,

Dudu2 à dit:
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 :

VB:

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

A+

Dudu2 · 10 Juin 2023

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 · 10 Juin 2023

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

Pour y remédier :

VB:

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 · 10 Juin 2023

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 · 10 Juin 2023

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

pygocentus · 10 Juin 2023

Dudu2 à dit:
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 à dit:
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 :

VB:

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 · 10 Juin 2023

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 · 10 Juin 2023

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 · 10 Juin 2023

@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 !

Autres Comment enlever ces listes de choix

pygocentus

XLDnaute Nouveau

Pièces jointes

Dudu2

Dudu2

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Dudu2

XLDnaute Barbatruc

Pièces jointes

AtTheOne

XLDnaute Accro

pygocentus

XLDnaute Nouveau

pygocentus

XLDnaute Nouveau

AtTheOne

XLDnaute Accro

Dudu2

XLDnaute Barbatruc

Discussions similaires