Suppression d'un mot dans une chaine

Question

Bonjour,

Dans ma table, chez un champ qui contient par exemple : Epouse BAJRKLJER

Mon projet effectue une requete sur cette table pour l'exporter dans excel via VB.

Je voudrai seulement supprimer le epouse lors du transfert sur excell

Quelqu'un peut-il m'aider ?

cs_Jack · Answer

Salut bary59 
C'est simple : Si Chaine contient ton texte, et Mot le texte à supprimer :
NewChaine = Replace(Chaine, Mot, "")

Vala
Jack

HFanny · Answer

Salut,

j'aurai bien une solution à te proposer mais qui ne doit pas être la plus "propre", j'ai juste trouvé ça pour te dépanner en attendant que qqun te trouve mieux.

Ce que tu veux enlever, c'est ce que tu veux conserver, c'est simplement ce qu'il y a apres le premier espace, donc tu as la solution de rechercher l'espace dans ta phrase et de ne conserver que le reste, en gros qqchose qui ressemble à ça :

Dim texte As String
Dim nouveauMot As String
Dim taille As Integer
Dim i As Integer
Dim position As Integer

texte = tonChampQueTuRecuperes
taille = Len(texte)

For i = 1 To taille
    If Mid(texte, i, 1) = " " Then
        position = i
        Exit For
    End If
Next i

nouveauMot = Right(texte, taille - position)

Et enfin tu insères ton nouveauMot dans ta feuille Excel.

Bon je sais, ce n'est pas top pas top, mais c'est toujours ça en attendant mieux.

J'espère t'avoir aidé

End Sub

Fanny

cs_bary59 · Answer

Merci 

La solution avec replace fonctionne très bien.

Merci encore

cs_bary59 · Answer

Merci 

La solution avec replace fonctionne très bien.

Merci encore

cs_bary59 · Answer

Merci 

La solution avec replace fonctionne très bien.

Merci encore

Suppression d'un mot dans une chaine

5 réponses

Discussions similaires