supprimer les points dans une cellule

supprimer les points dans une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 27-06-2006 à 10:16:33    

Salut,
 
Voilà mon problème!!
 
Je souhait comparer deux données différentes dans des feuilles excel différentes. Or dans une feuille, les données sont de la forme suivante: ex: 4.568.568,23 et dans l'autre feuille de la forme suivante: 4568568,23
 
Le problème c'est que mon code n'arrive pas à considérer que c'est deux valeurs sont les memes. J'ai essayé la commande format, mais ca ne marche pas.
 
Quelqu'un a t-il une idée, pour comparer ces deux valeurs????
 
Merci??

Reply

Marsh Posté le 27-06-2006 à 10:16:33   

Reply

Marsh Posté le 27-06-2006 à 10:19:33    

passe par une variable temp qui te recupère ton nombre avec les .
sur cette variable tu appliques une fonction qui supprime les . (sujet déjà traité) et tu compares après les valeurs.
C'est un peu plus long, mais ca marche.

Reply

Marsh Posté le 27-06-2006 à 10:49:26    

Merci JP de ta réponse
 
Mais est ce que tu pourrais me dire où se trouve cette fonction car aprés pas mal de recherches, je suis bredouille.
 
Merci

Reply

Marsh Posté le 27-06-2006 à 11:00:14    

http://www.vbfrance.com/codes/CHAN [...] E_295.aspx
ton code donnera alors
cells(1,1).value=sChangeCaractere(cells(iaveclespoint,javeclespoints).value,"." ,"" )
tu me dis si ca marche ?

Reply

Marsh Posté le 27-06-2006 à 15:49:07    

Tu peux faire avec cette fonction :
Function RemplacerTxt(Expression As String, AncChaine As String, NouvChaine As String) As String
    Dim TabRes As Variant
    Dim NouvExpression As String
     
    TabRes = Split(Expression, AncChaine)
     
    NouvExpression = ""
    For i = 0 To UBound(TabRes) - 1
        NouvExpression = NouvExpression & TabRes(i) & NouvChaine
    Next
    RemplacerTxt = NouvExpression & TabRes(UBound(TabRes))
End Function

Reply

Marsh Posté le 28-06-2006 à 12:11:55    

Merci Jpcheck!!!
 
Ta fonction elle marche trop bien, puis elle gére trop bien tous les cas
 
Bravo!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed