IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

remplacer une sous-chaine


Sujet :

VBA Access

  1. #1
    Futur Membre du Club
    Inscrit en
    Février 2008
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 10
    Points : 7
    Points
    7
    Par défaut remplacer une sous-chaine
    Bonjour,
    j'ai besoin de remplacer les points de mes données en virgule. J'ai vu que la fonction remplacer permettait de faire ce genre de travail mais elle me demande une chaine précise à remplacer alors que moi, je veux le faire pour tous mes champs où il y a un point. Que faire?
    Je ne maîtrise pas bien le langage SQL alors si vous avez la solution ce serait bien de me la rédiger entièrement

    PS: j'ai Access 2007

    Merci d'avance

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Inscrit en
    Juillet 2007
    Messages
    14 637
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Architecte Power Platform, ex-Développeur VBA/C#/VB.Net
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 637
    Points : 34 342
    Points
    34 342
    Par défaut
    salut,
    si tu veux modifier toutes les tables, tu peux passer par du VBA :
    (idée)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Dim TbTable as TableDef
    Dim FldField as Field
    For each TbTable in CurrentDb.TableDefs
    For each FldField in TbTable.Fields
    CurrentDb.Execute "UPDATE [" & TbTable.Name & "]" SET [" & FldField.Name & "] = Replace([" & FldField.Name & "],'.',',')"
    Next
    Next

  3. #3
    Futur Membre du Club
    Inscrit en
    Février 2008
    Messages
    10
    Détails du profil
    Informations forums :
    Inscription : Février 2008
    Messages : 10
    Points : 7
    Points
    7
    Par défaut merci quand même
    merci beaucoup pour cette réponse rapide mais en fait j'ai fais ça à la barbare en passant pas excel en utilisant la fonction substitute et en réimportant les données dans Access ensuite

  4. #4
    Expert confirmé
    Avatar de vodiem
    Homme Profil pro
    Vivre
    Inscrit en
    Avril 2006
    Messages
    2 895
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Vivre
    Secteur : Conseil

    Informations forums :
    Inscription : Avril 2006
    Messages : 2 895
    Points : 4 325
    Points
    4 325
    Par défaut
    salut jpcheck et bienvenu noreille,

    noreille> visiblement tu n'as pas bien compris la réponse généraliste de jpcheck et la facon de l'employer.

    jpcheck, il faut pas oublier que replace() ne fonctionne que pour les champs textes et il n'y a pas que du texte dans les champs d'une table...

    si la discution n'est pas clos (tag: résolu)
    je te dirais, si c'est occasionnel:
    • ouvre la table
    • selectionne tous les enregistrements
    • dans le menu rechercher: remplacer (CTRL+H)


Discussions similaires

  1. [RegEx] Remplacer une sous-chaine par une expression incrémentée
    Par krunch dans le forum Langage
    Réponses: 5
    Dernier message: 18/02/2013, 10h23
  2. [Toutes versions] remplacer une sous-chaine dans une expression regulière
    Par issoram dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 29/05/2011, 15h12
  3. [VB] lire lignes d'un fichier et remplacer une sous chaine
    Par horzy dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 04/06/2007, 20h58
  4. Réponses: 3
    Dernier message: 13/01/2007, 14h05
  5. Réponses: 3
    Dernier message: 05/01/2007, 15h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo