Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1217 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  supprimer les points dans une cellule

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

supprimer les points dans une cellule

n°1395503
fab034
Posté le 27-06-2006 à 10:16:33  profilanswer
 

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??

mood
Publicité
Posté le 27-06-2006 à 10:16:33  profilanswer
 

n°1395504
jpcheck
Pioupiou
Posté le 27-06-2006 à 10:19:33  profilanswer
 

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.

n°1395534
fab034
Posté le 27-06-2006 à 10:49:26  profilanswer
 

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

n°1395543
jpcheck
Pioupiou
Posté le 27-06-2006 à 11:00:14  profilanswer
 

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 ?

n°1395804
Paul Hood
Posté le 27-06-2006 à 15:49:07  profilanswer
 

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

n°1396444
fab034
Posté le 28-06-2006 à 12:11:55  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  supprimer les points dans une cellule

 

Sujets relatifs
VBA /SQL => BASE ACCESS Comment supprimer des données ?[C] [urgent] supprimer la derniere cellule d une file ?
modifier le contenu d'une cellule [résolu][VBA-Excel] [Resolu] Insérer et supprimer des feuilles
Arrière plan de cellule de tableauSupprimer une ligne d'un fichier txt
Supprimer un dossier antérieur a 2 jourscellule cliquable
Supprimer tous repertoires "$NtUninstallKBxxxxxx" dans un Batch 
Plus de sujets relatifs à : supprimer les points dans une cellule


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR