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

Macros et VBA Excel Discussion :

Remplacer un caractère par un autre


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2012
    Messages
    233
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 233
    Par défaut Remplacer un caractère par un autre
    Bonjour,

    Je me suis inspiré de codes trouvés sur le net pour remplacer mes "." par des "," dans mes cellules mais le code bugge encore!

    Le voici:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Sub RemplacePointParVirgule()
     
    'Variables
    Dim i As Integer
    Dim N As Integer
     
    'Selection de la plage de données
    N = WorksheetFunction.CountA(Columns("f:f"))
     
    For i = 1 To N
        Cells(i, 6).Text = Replace(Cells(i, 6).Text, ".", ",")
    Next
     
    End Sub
    Quelqu'un pourrait m'aider svp?

    Merci d'avance!

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2012
    Messages
    233
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 233
    Par défaut
    Coucou,

    Me revoila avec une amélioration:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub RemplacePointParVirgule()
     
    'Variables
    Dim i As Integer
     
     
    'Boucle sur la plage de données pour remplacer les "." par des ","
    For i = 1 To 40
        Cells(i, 6).Value = Replace(Cells(i, 7).Value, ".", ",", , 1)
    Next
     
    End Sub
    Par contre avec ce code, toutes mes cellules se vident. Donc elles ne rélaisent pas l'objectif initial qui est de remplacer les "." par des "," afin de pouvoir faire un graphe!

    Merci de votre aide!

  3. #3
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    bonjour,

    As tu essayé de remplacer le symbole décimal en mettant un point
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.DecimalSeparator = "."
    A remettre en virgule avant de sortir de l'application

  4. #4
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2012
    Messages
    233
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 233
    Par défaut
    Merci jfontaine! C'était une bonne idée mais cela ne me convient pas car j'ai d'autres données qui sont avec la ","!

    Une autre idée? Ou quelqu'un voit l'erreur dans mon code?

  5. #5
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour à tou(te)s,
    et comme ça ?:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub RemplacePointParVirgule()
     
    'Variables
    Dim i As Integer, plage As Range, cel As Range
    i = Range("F" & Rows.Count).End(xlUp).Row
    Set plage = Range("F1:f" & i)
     
    'Boucle sur la plage de données pour remplacer les "." par des ","
    For Each cel In plage
      If cel <> "" Then cel = Replace(cel, ".", ",")
    Next
     
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

  6. #6
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    à adapter

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil1").Range("F:F").Replace ".", ",", xlPart
    Edit

    Si le séparateur décimal est une virgule
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Feuil1").Range("F:F").Replace ".", ".", xlPart

  7. #7
    Membre éclairé
    Profil pro
    Inscrit en
    Janvier 2012
    Messages
    233
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2012
    Messages : 233
    Par défaut
    Merci tout le monde!

    Vous êtes au top tout comme ce site internet!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Remplacement de caractères par d'autres
    Par auredura dans le forum SAS Base
    Réponses: 6
    Dernier message: 21/04/2009, 18h48
  2. Remplacer un caractère par un autre dans une String
    Par djack44 dans le forum Débuter avec Java
    Réponses: 7
    Dernier message: 12/03/2008, 15h16
  3. Réponses: 5
    Dernier message: 09/11/2007, 09h59
  4. Réponses: 3
    Dernier message: 21/07/2007, 01h48
  5. Remplacer un caractère par un autre
    Par cybkilla dans le forum Sybase
    Réponses: 3
    Dernier message: 08/01/2007, 15h42

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