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 :

couper du texte [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 27
    Par défaut couper du texte
    Bonjour un petit souci .
    En exemple :
    Dans ma cellule A1 j'ai "2*8 H.Potter"
    et dans ma cellule A2 : "Interim J.Smith"
    Je voudrais que dans B1 il apparaisse "Potter"
    Et dans B2 "Smith"
    J'arrive pas a prendre juste les caracteres que je veux vu qu'avant le nom j'ai pas toujours la meme taille.
    J'espere que c'est clair lol .
    Merci pour votre aide !!

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 174
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 174
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Si tu montrais la formule que tu as utilisée ce serait bien.
    Au vu de tes deux exemples, je constate que tu as un espace entre le nom et la chaîne qui le précède.
    Donc tu pourrais par exemple placer cette formule en B1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =STXT(A1;CHERCHE(" ";A1)+1;NBCAR(A1))
    NBCAR(A1) pourrait ếtre remplacé par une formule plus complexe mais je pense que cela fera très bien l'affaire.
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Membre Expert Avatar de aalex_38
    Inscrit en
    Septembre 2007
    Messages
    1 631
    Détails du profil
    Informations forums :
    Inscription : Septembre 2007
    Messages : 1 631
    Par défaut
    Bonjour Pachi44, bonjour Corona,

    Si tu as toujours le même nombre de caractères dans le champ nom du peux
    encore simplifié, imaginons que tu as toujours 8 caractères avant, ta formule devient :

    =STXT(A1;8;NBCAR(A1))
    Exemple VBA avec texte en A1 et Résulat en B1 :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Dim Nom As String
    Nom = Range("A1").Value
    Nom = Mid(Nom, 8, Len(Nom))
    Range("B1").Value = nom

  4. #4
    Membre averti
    Inscrit en
    Juin 2010
    Messages
    27
    Détails du profil
    Informations forums :
    Inscription : Juin 2010
    Messages : 27
    Par défaut
    Super merci pour votre aide!!
    J'apprecie

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 31/07/2008, 16h11
  2. Couper un texte trop long
    Par cirano dans le forum Contribuez / Téléchargez Sources et Outils
    Réponses: 1
    Dernier message: 10/01/2008, 13h06
  3. Couper du texte dans un TEdit ou un TMemo
    Par AT dans le forum Débuter
    Réponses: 11
    Dernier message: 05/12/2007, 08h12
  4. [Tableaux] Couper un texte tous les xx mots
    Par sonno dans le forum Langage
    Réponses: 8
    Dernier message: 15/07/2007, 22h46

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