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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Fonction remplacement ne fonctionne pas !

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Fonction remplacement ne fonctionne pas !

n°1402013
jagwar
Posté le 06-07-2006 à 15:01:34  profilanswer
 

:hello:  
J'essaye de créer une macro qui me permet d'ouvrir un fichier et de remplacer les . par des , pour que les valeurs soit reconnues numériquement, mais elle ne fonctionne pas sur toutes mes valeurs, voici mon code :
 
Je voudrais que dans chaque cellule : 2.76781 devienne : 2,76781 mais ma macro me revoie (une fois sur 10) : 276 781
J'ai remarqué que c'est le cas dès qu'il y a plus de 2 chiffres après le point !!!!???
 
 
Sub ouverture_fic_et_remplacement()
'
' ouverture_fic_et_remplacement Macro
' Macro enregistrée le 06/07/2006 par JAGWAR
'
 
'
    Workbooks.OpenText Filename:= _
        "C:\sed1501.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:= _
        False, Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array( _
        1, 1), Array(2, 1))
    Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False
End Sub


Message édité par jagwar le 06-07-2006 à 15:03:57
mood
Publicité
Posté le 06-07-2006 à 15:01:34  profilanswer
 

n°1402019
JihemAir
Je sais pas
Posté le 06-07-2006 à 15:10:28  profilanswer
 

Tu peux tout faire d'un coup, sans macro, en changeant le type de séparateur dans les options de ton fichier.


---------------
J'ai un message.."Cliquez OK pour continuer."...Qu'est ce que je fais ?
n°1402020
jpcheck
Pioupiou
Posté le 06-07-2006 à 15:10:56  profilanswer
 

sujet déjà traité plusieurs fois...
http://forum.hardware.fr/hardwaref [...] 3332-1.htm

n°1402023
jagwar
Posté le 06-07-2006 à 15:18:27  profilanswer
 

OK merci beaucoup (j'avais fait une recherche mais celà n'avait rien donné ???)
c'est quel onglet pour les options ?


Message édité par jagwar le 06-07-2006 à 15:29:30

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

  Fonction remplacement ne fonctionne pas !

 

Sujets relatifs
fonction dans un lien phpFonction qui retourne une collection d'objets
[SGDB] PL/SQL : Fonction qui retourne un curseurEnvoi données formulaire vers BDD ne fonctionne pas...
onChange fonctionne sous Firefox mais pas IE...Passer des parametres dans une fonction JS
Problème Passage de Paramètres à une fonction Javascript[MySQL] Fonction recherche complexe
phpmyannuaire. Le compteur de clics de fonctionne plus[matlab] fonction imwrite
Plus de sujets relatifs à : Fonction remplacement ne fonctionne pas !


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