Supprimer des points

[john_h]

Bonjour,

Avec une formule comment faire pour supprimer tous les points de ces chiffres mais en gardant le dernier point

la donnée

125.555.445.4.55.56.44
45.445.662.1.447.56.4
55.54.144.55.21.1

ce que j'aimerais obtenir

12555544545556.44
45445662144756.4
55541445521.1

J'ai fais plusieurs tentatives sans succès...
Est ce que quelqu'un a une solution pour moi je n'y arrive pas
Merci beaucoup

 

[Raja]

Re : Supprimer des points

Bonjour et bienvenu,

Les données commençant dans la cellule A1, met la formule suivante en B1 et à recopie-la vers le bas.

=SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;".";",";NBCAR(A1)-NBCAR(SUBSTITUE(A1;".";"")));".";"");",";".")

 

[john_h]

Re : Supprimer des points

Merci beaucoup !!!!!!!

 

[john_h]

Re : Supprimer des points

J'ai un autre souci car je dois utiliser cette formule avec une condition SI

séparément les 2 formules fonctionne mais imbriquée non seul 1 des 2 fonctionne et pour l'autre valeur qu'il ne me donne pas il me sort la mention #VALEUR!.

la condition est que si il trouve dans la cellule A1 le mot "nombre" alors changer tout les points par "" sinon changer tout les points sauf le dernier

Colonne A
Pièce A en nombre
Pièce A en valeur
Pièce B en nombre
Pièces B en valeur

=SI(TROUVE("nombre";A1)
;SUBSTITUE(B1;".";"")
;SUBSTITUE(SUBSTITUE(SUBSTITUE(B1;".";",";NBCAR(B1)-
NBCAR(SUBSTITUE(B1;".";"")));".";"");",";"."))

Merci de votre aide

 

[hoerwind]

Re : Supprimer des points

Bonjour,

Essaie :
=SI(ESTNUM(TROUVE(....

 

[piga25]

Re : Supprimer des points

Bonjour,
J'ai déjà vu une solution fournie par PIERRE JEAN, il me semble, ou il avait créé une fonction.

Function otepoint(cellule As Range)
' si le nombre de termes contenus dans la cellule est > 3
If Len(cellule) > 3 Then
'on recupere les 3 derniers termes (si 2 decimales au plus
'ils contiennent 'eventuellement' le point decimal)
fin = Right(cellule, 3)
'on examine le reste
otepoint = Left(cellule, Len(cellule) - 3)
'x est la position du point
x = InStr(otepoint, ".")
'tant que x <>0 (cas de plusieurs points)
While x <> 0
'on prend ce qu'il y a avant le point et on ajoute ce qu'il y a apres
otepoint = Left(otepoint, x - 1) & Right(otepoint, Len(otepoint) - x)
'on verifie s'il reste un point
x = InStr(otepoint, ".")
Wend
'on rajoute les 3 derniers termes (mis en resrve)
' et on transforme en nombre (fonction val)
otepoint = Val(otepoint & fin)
Else
' 3 termes ou moins le point est lepoint decimal et on se
' contente de transformer en nombre
otepoint = Val(cellule)
End If
End Function

Il faut copier ce code dans un module de la feuille, et la fonction est accessible.
Comme cela je pense qu'il est fort possible de l'associer avec d'autres fonctions.

 

[john_h]

Re : Supprimer des points

Merci a tous pour votre aide

avec le ESTNUM cela a fonctionné !