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 :

Enlever les espaces en VB


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Avril 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Avril 2011
    Messages : 3
    Par défaut Enlever les espaces en VB
    Bonjour,

    Je copie des valeurs dans un tableau, est des fois, lors du collage, excel2010 me rajoute un espace devant ma valeur. exemple
    valeur d'origine: "1-1"
    Valeur copier: " 1-1"

    Ce qui provoque des erreur dans l’exécution de mes macros, car en vb "1-1" n'est pas égale a " 1-1"

    La fonction Trim ne corrige pas le probléme.
    Et le code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    mavaleur = Cells(i,j).value
    mavaleur = replace(mavaleur, " ","")
    Cells(i,j).value = mavaleur
    ne marche pas non plus.
    Si vous avez une solution, ou une astuce ????

    Merci d'avance.

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonsoir.

    Chez moi Replace et Trim$ marchent très bien. Mais comme tu as écrit, si la bonne feuille n'est pas active, tu te trompes peut-être de cellules.

    Ceci dit, je pense que le pb est ailleurs : tu remarqueras qu'on ne peut pas écrire la valeur "1-1" dans une cellule sans que ce soit interprété comme une date. Je ne vois que 2 façons de l'éviter :
    • Ecrire "'1-1". La valeur est différente mais la propriété .Text renvoie bien "1-1"
    • Passer les cellules en question au format Text avant d'y inscrire des valeurs.

    Cordialement,

    PGZ

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Technicien Help Desk
    Inscrit en
    Avril 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Technicien Help Desk
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Avril 2011
    Messages : 3
    Par défaut
    Merci pour ta réponse, mais j'ai bien tout mit en forme texte, sur toutes les cellules de mon tableau.
    Et ma macro fonctionne correctement si je supprime les espaces a la main,
    donc je suis bien dans la bonne cellule du bon tableau.

    Mais dans un souci d'optimisation, je souhaité automatiser sa.

    Merci encore pour ta réponse.

    cordialement.

Discussions similaires

  1. Réponses: 3
    Dernier message: 28/10/2005, 14h38
  2. Enlever les espaces redondants....
    Par BFH dans le forum C
    Réponses: 3
    Dernier message: 24/10/2005, 18h00
  3. enlever les espaces
    Par moimoi_1 dans le forum Langage
    Réponses: 3
    Dernier message: 09/08/2005, 09h57
  4. Enlever les espaces inutiles d'un AnsiString
    Par jamesb dans le forum C++Builder
    Réponses: 2
    Dernier message: 27/01/2005, 12h40
  5. Enlever les espaces
    Par Claythest dans le forum Langage
    Réponses: 6
    Dernier message: 03/06/2003, 14h43

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