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 :

VBA supprimer les espaces devant et après un "="


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2017
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Avril 2017
    Messages : 39
    Par défaut VBA supprimer les espaces devant et après un "="
    Bonjour, je cherche un code VBA qui me permettra de supprimer les espace avant et après un "="
    j'ai dans ma cellule a+b" "" "=" "c
    ou a+b" "=" "
    je voudrais avoir a+b=c

    Merci d'avance

  2. #2
    Membre Expert Avatar de antonysansh
    Homme Profil pro
    Chargé d'études RH
    Inscrit en
    Mai 2014
    Messages
    1 115
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Chargé d'études RH
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2014
    Messages : 1 115
    Par défaut
    Bonjour Vins75,

    test ça : replace("a+b = c"," = ","=")
    et regarde l'aide VB pour comprendre la ligne de code

  3. #3
    Membre Expert Avatar de jerome.vaussenat
    Homme Profil pro
    Formateur Bureautique
    Inscrit en
    Janvier 2011
    Messages
    1 629
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 56
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Formateur Bureautique
    Secteur : Enseignement

    Informations forums :
    Inscription : Janvier 2011
    Messages : 1 629
    Par défaut
    Salut,

    Je te propose plusieurs solutions sans VBA (On va déjà commencer pas çà)
    Solution 1
    Si ton texte est dans la cellule A1, tu peux mettre cette formule et la recopier ensuite
    =SUBSTITUE(A2;" ";"")

    Solution 3
    Utiliser la fonction de remplacement.
    Pour que le remplacement ne se fasse que sur une partie du tableau, sélectionne cette partie
    CTRL + H
    Dans la zone "Rechercher" tu mets un espace
    Tu laisse vide la zone "Remplacer par" et tu lance le replacement.

    Et si tu veux du VBA et bien tu n'as qu'a utiliser la solution 2 avec l'enregistreur de macro ...

    En espérant que ceva va t'aider ...

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par Vins75 Voir le message
    Bonjour, je cherche un code VBA qui me permettra de supprimer les espace avant et après un "="
    Deux solutions :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim cc As Range
    For Each cc in UsedRange
       cc.Value = replace(cc.Value," = ","=")
    Next cc
    Encore plus rapide :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveWorksheet.UsedRange.Replace What:=" = ", Replacement:="=", LookAt:=xlPart
    Cela dit, je ne vois pas l'intérêt de faire en VBA ce qui peut se faire à la main en 3 clics et 5 touches.

  5. #5
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Avril 2017
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : Avril 2017
    Messages : 39
    Par défaut
    Merci de Vos réponse
    En fait je travaille sur un grand fichier excel et je voulais automatiser tout sa c'est pour sa je passe par VBA

  6. #6
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Même avec un grand fichier, cette modification peut se faire en trois clics et 5 touches sans VBA.

    Ruban Accueil > Icone Rechercher et Sélectionner (1 clic) > Remplacer (1 clic)
    champ Rechercher = = (3 touches)
    Tab pour changer de champ (1 touche)
    Champ Remplacer par = = (1 touche)
    Bouton Remplacer Tout (1 clic)

    A vue de nez, 5 à 10 secondes.
    Tu vas avoir du mal à justifier la rentabilité de ta macro.

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

Discussions similaires

  1. Supprimer les espaces avant et après un caractère
    Par KaliMero973 dans le forum Langage SQL
    Réponses: 3
    Dernier message: 05/04/2013, 10h20
  2. [XL-2003] [VBA] supprimer les espaces
    Par zellinho dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 25/03/2011, 11h54
  3. Réponses: 4
    Dernier message: 29/08/2008, 11h53
  4. Réponses: 9
    Dernier message: 06/11/2007, 12h36
  5. Supprimer les espaces des noms de fichier
    Par Cathy dans le forum Linux
    Réponses: 20
    Dernier message: 04/08/2005, 17h13

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