XL 2010 Calcul avec une valeur TEXTE

[Philippe Château]

Bonjour à toutes et tous,

J'ai un petit sujet concernant un calcul qui contient une valeur TEXTE, je tourne en rond, grrr

Si quelqu'un ou une peut m'aider, d'avance merci.

 

[phlaurent55]

Re,

Oups, petit dernier bémol pour les valeurs inférieures ou égales à 1 024 ko, je suis en #VALEUR, donc je suis en train de chercher pour un autre SUBSTITUE

Hello à tous, voilà trouvé (après m'être arraché les cheveux, pour un dégarni c'est compliqué)

=GAUCHE(SUBSTITUE(A2;",";".");NBCAR(A2)-2)*1*SI(DROITE(A2;2)="Ko";1;SI(DROITE(A2;2)="Mo";1024;SI(DROITE(A2;2)="Go";1048576)))

et cela fonctionne

Encore à vous tous et au FORUM

Je constate que ta formule ne fonctionne que pour les nombres entiers en colonne A
As-tu testé ma réponse au post #10 ?

à+
Philippe

 

[Philippe Château]

en fait dernier point il faut que je fasse deux SUBSTITUE car il y a des valeurs inférieures ou égales à 1 024 Ko, et dans ce dernier il y a un caractère insécable ou ALT 255 ( ) non visible mais bien présent

 

[Chris24]

Bonjour Philippe, phlaurent55, le forum

Je ne comprends pas très bien l'utilisation de Substitue dans ta formule ni ta façon de l'utiliser, elle renvoie une valeur d'erreur!

tu as plusieurs solutions à ta disposition et une de plus😀

=GAUCHE(A2;NBCAR(A2)-3)*1*(INDEX({1;1024;1048576};EQUIV(DROITE(A2;2);{"Ko";"Mo";"Go"};0)))

 

[Philippe Château]

Re Hello Chris24, en copie le fichier avec la valeur 1 024 Ko qui pose un dernier souci

 

[phlaurent55]

Re,

l'erreur vient du fait qu'il ne faut pas mettre un espace

1024 Ko et pas 1 024 Ko

à+
Philippe

 

[Philippe Château]

ben je sais, mais c'est une donnée récupérée et je suis obligé de la prendre telle que ! je sais cela me fais bien suer aussi, donc je dois trouver une alternative de contournement, grrr
a+
Philippe

 

[Chris24]

RE

Aller une petite dernière

=GAUCHE(SUBSTITUE(A10;CAR(160);"");NBCAR(A10)-3)*1*(INDEX({1;1024;1048576};EQUIV(DROITE(A10;2);{"Ko";"Mo";"Go"};0)))

ou une petite fonction

Option Explicit

Public Function Nettoyage(sTexte As Variant)
Dim sTmp As Variant
    If IsMissing(sTexte) Then Exit Function
    '   Suppression Espaces encadrants
    sTmp = Trim(sTexte)
    '   Suppression caractères non imprimables
    sTmp = Application.WorksheetFunction.Clean(sTmp)
    '   Suppresion espace insécable
    sTmp = Application.WorksheetFunction.Substitute(sTmp, Chr(160), "")
    Nettoyage = sTmp
End Function

Bonne journée

 

[Philippe Château]

Super, voilà tout fonctionne
=GAUCHE(SUBSTITUE(SUBSTITUE(F5;CAR(160);"");",";"");NBCAR(F5)-3)*1*(INDEX({1;1024;1048576};EQUIV(DROITE(F5;2);{"Ko";"Mb";"Go"};0)))

 

[Chris24]

RE

de deux choses l'une ou tu ne nous as pas tout dit ou tu te complique la vie.

"GAUCHE(SUBSTITUE(SUBSTITUE(F5;CAR(160);"");",";"")" ?????????

 

[Philippe Château]

En fait comme dit dans un précédent message, j'avais le souci #VALEUR sur le champs où il y avait une virgule (exemple : 2,5 Mb) n'est pas bien interprétée par mon EXCEL (hors d'âge (2010) comme dit par quelqu'un au dessus) et donc j'ai été obligé de rajouter la substitution, et qui fonctionne, encore MERCI pour toute l'aide apportée par tous et toutes

 

[Chris24]

RE

Avec mon excel 2010 je n'ai pas de problème avec les virgules.

as-tu essayé de faire un nouveau classeur avec tes données?

 

[Philippe Château]

Hello,
Pour répondre à ta question, OUI j'ai essayé et j'ai même demandé à mes collègues du bureau, et rien à faire je crains que ce soit la version qui a été installée sur nos postes qui n'est pas probante...
A+ et merci