le dixieme d'un chiffre n'est pas réellement là

sioum

XLDnaute Occasionnel
Bonjour,

j'ai exporté une base de données chiffrée mais sur certain chiffre le dixieme n'aparait pas par exemple :

17.50 apparait 17.5

j'ai essayé les arrondi; format cellule, formule texte rien n'y fait.

la valeur ne veut pas etre 17,50 au lieu du 17,5

auriez-vous une solution pour moi

merci
 

JNP

XLDnaute Barbatruc
Re : le dixieme d'un chiffre n'est pas réellement là

Re :),
c'est du bidouillage mais ca n'explique pas ou est mon 0
C'est pas du bidouillage, c'est simplement que la recherche Excel est "full text" :rolleyes:... Si tu veux rechercher des valeurs numériques, c'est des formules qu'il faut utiliser, pas l'outil de recherche :)...
Ton 0, il est présent et EfGé dis bien que sous 2003, avec le bon format de cellule (format qui est bien un format "texte" :p), ça fonctionne :rolleyes:...
Donc la seule piste qui vous reste, c'est la hauteur du service pack 2003 pour savoir pourquoi ça marche chez l'un, et pas chez l'autre (à mon avis, SP3 est certainement le meilleur, c'est celui où a été rajouté la gestion des XML).
Bon WE :cool:
 

Efgé

XLDnaute Barbatruc
Re : le dixieme d'un chiffre n'est pas réellement là

Bonjour à tous,
Je pense que JNP :), a trouvé une bonne piste:
Hier quand j'ai fait le test, sous 2003 SP3, j'avais bien le zéro dans la barre de formule et pas uniquement à l'affichage. La recherche fonctionnait parfaitement.
Cordialement
 

JNP

XLDnaute Barbatruc
Re : le dixieme d'un chiffre n'est pas réellement là

Re :),
Je pense que JNP :), a trouvé une bonne piste:
Merci FG ;).
Sinon, et là, oui, c'est du bidouillage :p, en passant par VBA :
Code:
Sub ChercheJNP()
Dim AChercher As String, Valeur As Double, Cellule As Range
AChercher = Application.InputBox("Valeur à chercher", "Recherche", , , , , , 1)
If AChercher = "Faux" Then Exit Sub
Valeur = CDbl(AChercher)
If Len(AChercher) = Len(Valeur) Then
Set Cellule = Cells.Find(AChercher, LookIn:=xlValues, LookAt:=xlWhole)
Else
Set Cellule = Cells.Find(Valeur, LookIn:=xlValues, LookAt:=xlWhole)
End If
If Not Cellule Is Nothing Then Cellule.Select Else MsgBox "Pas de correspondance !", vbCritical + vbOKOnly, "Désolé..."
End Sub
Bon WE :cool:
 

Statistiques des forums

Discussions
312 400
Messages
2 088 085
Membres
103 710
dernier inscrit
amin Saadaoui