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 :

Supprimer le 4eme caractère dans une chaine


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 27
    Par défaut Supprimer le 4eme caractère dans une chaine
    Bonjour,

    Je cherche à supprimer le 4eme caractère d'une chaine mais je ne trouve pas comment faire. Je sais identifier le 4eme caractère avec mid mais pour le supprimer je ne sais pas vraiment comment faire. j'avais pensé à un Replace mais il va me remplacer les autres chiffres de même valeur que ma var généré avec mid.

    Auriez vous une solution à mon problème ?

    Merci par avance.

  2. #2
    Membre Expert Avatar de rvtoulon
    Homme Profil pro
    Agent Technique
    Inscrit en
    Mars 2009
    Messages
    1 042
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 49
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Agent Technique
    Secteur : Santé

    Informations forums :
    Inscription : Mars 2009
    Messages : 1 042
    Par défaut
    Bonjour,
    tu peux récuperer les trois premiers caractère dans une variable, et le reste des caractères à partir du 5ème dans une autre variable.
    Tu regroupes le tout et voilà. Pour l'exemple, un exte dans la cellule D3:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    sub test()
    ncar = Len(Range("D3"))
    vcel = Range("D3").value
     
    vcel1 = Left(vcel,3)
    vcel2 = Mid(vcel, 5, ncar)
     
    Range("D3").value = vcel1 & vcel2
     
    End Sub
    Essaye de l'adapter à tes besoins.

    EDIT:
    Ou plus directement:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    sub test()
    ncar = Len(Range("D3"))
    vcel = Range("D3").value
     
    Range("D3").value = Left(vcel,3) & Mid(vcel, 5, ncar)
     
    End Sub

  3. #3
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Une petite fonction :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Public Function SupCaract(IntCaract As Integer, strChaine As String) As String
        SupCaract = Left(strChaine, IntCaract - 1) & Right(strChaine, Len(strChaine) - IntCaract)
    End Function
    Exemple : supcaract(4,"Developpez") donne Devloppez

    Philippe

Discussions similaires

  1. supprimer certains caractères dans une chaine
    Par rene10 dans le forum Langage SQL
    Réponses: 1
    Dernier message: 31/12/2009, 11h26
  2. supprimer un caractère dans une chaine
    Par agilec dans le forum Débuter
    Réponses: 2
    Dernier message: 29/09/2009, 20h13
  3. Supprimer des caractères dans une chaine
    Par bahamut100 dans le forum Langage
    Réponses: 3
    Dernier message: 12/02/2009, 10h25
  4. Supprimer caractère dans une chaine
    Par willy2 dans le forum Langage SQL
    Réponses: 9
    Dernier message: 26/12/2008, 21h57
  5. [Tableaux] Supprimer des caractères dans une chaine
    Par ddubois dans le forum Langage
    Réponses: 10
    Dernier message: 16/12/2006, 13h53

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