Discussion :

[Jinkas99]

Bonjour,

Je voudrais créer une fonction VBA qui va me supprimer dans une chaîne de caractères tout ce qui vient après un mot clé donné.

Exemple :

ma_chaine_intitiale = "Toto : 123456789 Tata : 12345679"

mon_mot_clé = "Tata"

Je voudrais donc supprimer tout ce qui vient après Tata ainsi que le mot Tata.

Cela devra me donner ce résultat = "Toto : 123456789" au lieu de "Toto : 123456789 Tata : 12345679".

Merci,

[MarcelG]

Bonjour,

Tu peux utiliser la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Instr

La valeur de la cellule sera à gauche de celle-ci d'après cette position.

Je te laisse traduire.
Tu reviens si nécessaire.

[BENNASR]

bonjour
à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
    Dim Tableau
    Dim i As Integer
    Dim j As Integer
    Dim L As Long
    With Sheets("Feuil1")
    L = .Range("A" & Rows.Count).End(xlUp).Row
 
    For j = 2 To L
    Tableau = Split(.Cells(j, 1), "Tata")
    For i = 0 To UBound(Tableau)
        .Cells(j, 2) = Tableau(0)
    Next i
    Next j
    End With
 
End Sub

[MarcelG]

Bonjour Bennasr,

Oui pour cette astuce.
Mais pourquoi cette boucle sur "Tableau"?

D'autre part, si une boucle est effectuée sur une variable d'un certain type, il faut que les occurrences sur cette même variable soit du même type.
Dans le cas contraire, le risque d'erreur est vite élevé.

[BENNASR]

Bonjour MARCEL
t'as raison , désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim Tableau
    Dim j As Integer
    Dim L As Long
    With Sheets("Feuil1")
    L = .Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To L
    Tableau = Split(.Cells(j, 1), "Tata")
        .Cells(j, 2) = Tableau(0)
    Next j
    End With
End Sub

[MarcelG]

Pas de problème.

Regarde le complément que j'ai apporté à mon post.

[patricktoulon]

Bonjour,

Je voudrais créer une fonction VBA qui va me supprimer dans une chaîne de caractères tout ce qui vient après un mot clé donné.

Exemple :

ma_chaine_intitiale = "Toto : 123456789 Tata : 12345679"

mon_mot_clé = "Tata"

Je voudrais donc supprimer tout ce qui vient après Tata ainsi que le mot Tata.

Cela devra me donner ce résultat = "Toto : 123456789" au lieu de "Toto : 123456789 Tata : 12345679".

Merci,

heu.. une boucle pourquoi faire ?????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ma_chaine_intitiale = "Toto : 123456789  Tata : 12345679" 
ma_chaine_pas_intitiale = split(ma_chaine_intitiale ,"Tata:")(0)

et rien de plus rien de moins

[MarcelG]

Bonjour Patrick,

Certes, la variable Tableau serait redondante.
Au demeurant, en ce qui concerne la boucle, c'est bien ce qui a été notifié, non?

[BENNASR]

Je me cache derrière le statut de débutant et poser une question peut être bête !!

heu.. une boucle pourquoi faire ?????

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ma_chaine_intitiale = "Toto : 123456789  Tata : 12345679" 
ma_chaine_pas_intitiale = split(ma_chaine_intitiale ,"Tata:")(0)

et rien de plus rien de moins

s'il s'agit d'une seule chaine en A1 est ce que le demandeur cherche à faire ça avec VBA !!! je doute
donc il s'agit d'une liste d'ou la nécessité d'une boucle non ??!! en faite je suis débutant et je peux oser

[patricktoulon]

re
je répète donc

en citant l'auteur

Bonjour,

Je voudrais créer une fonction VBA qui va me supprimer dans une chaîne de caractères tout ce qui vient après un mot clé donné.

Exemple :

ma_chaine_intitiale = "Toto : 123456789 Tata : 12345679"

mon_mot_clé = "Tata"

Je voudrais donc supprimer tout ce qui vient après Tata ainsi que le mot Tata.

Cela devra me donner ce résultat = "Toto : 123456789" au lieu de "Toto : 123456789 Tata : 12345679".

Merci,

ou avez vous vus le besoins de boucler sur des cells ou même un tableau dans sa demande ?

et combien même !!!
ne croyez vous pas qu'il serait plus judicieux de séparer le code du split de la boucle ??


du genre
la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function spliter(cel as string, str as String )
    spliter = Split(cel, str)(0)
End Function

et pour une utilisation vba bouclant sur une variable tableau
le tableau peut être issu d'un range (je le dis au cas ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for i= 1 to ubound(tableau)
tableau(i)=spliter(tableau(i),"Tata")(0)
next

et en prime cadeau
vous pouvez utiliser la fonction en formule ce qui rendrait entre parenthese la chose absolument dynamique puisque déclenché par le change en colonne"A"
exemple en B2

=spliter(A1;"Tata")

je n'ai pas besoins d'expliquer comment étendre une formule dans une colonne non ? ce qui donnerait le même résultat qu'avec une boucle


aller on pousse plus loin
imaginez que le string du split soit diffèrent pour chaque cells

on dira la chaine complète en colonneA , le string en colonneB et le résultat en C

ben en C vous mettez la formule

=spliter(A1;B1)

et on étend la formule

ca vous coute quoi de séparer le split de la boucle dans la sub et d'en faire une tout chtite fonction qui sera largement plus modulable qu'un code compact

peu être me suis je mieux fait comprendre maintenant

[Pierre Fauconnier]

Salut

Par rapport à la question de base, le code suivant suffit amplement à la chose, me semble-t-il.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  s = "Toto : 123456789 Tata : 12345679"
  Debug.Print Left(s, InStr(s, " Tata :") - 1)

[MarcelG]

Salut Pierre,

C'était bien l'objet de mon premier post.
Pas de réponse.

[Pierre Fauconnier]

Tout à fait, Marcel

C'est pourquoi j'ai mis un exemple , et je ne comprends pas ce délire de split (non testé et foireux, en plus) et de boucle par la suite


Le code suivant ne saurait pas donner la solution, la chaine de départ et le séparateur du split n'étant pas orthographiés correctement => Merci de tester la solution avant de poster pour ne pas induire le demandeur en erreur

[...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ma_chaine_intitiale = "Toto : 123456789  Tata : 12345679" 
ma_chaine_pas_intitiale = split(ma_chaine_intitiale ,"Tata:")(0)

et rien de plus rien de moins

[patricktoulon]

re

Par rapport à la question de base, le code suivant suffit amplement à la chose, me semble-t-il.

ben en fait tout dépend du résultat souhaité en cas de non occurrence
instr donnera 0
le split(index(0)) rendra la chaine complète

[patricktoulon]

re
tiens pierre dis moi encore que j'ai tord

voila ce qui se passe en cas de non occurrence
qui puis est avec -1 sur un instr 0 en plus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
    ma_chaine_intitiale = "Toto : 123456789  Tata : 12345679"
    ma_chaine_pas_intitiale = Split(ma_chaine_intitiale, "titi :")(0)
    MsgBox ma_chaine_pas_intitiale
     ma_chaine_pas_intitiale = Left(ma_chaine_intitiale, InStr(ma_chaine_intitiale, " titi :") - 1)
    MsgBox ma_chaine_pas_intitiale
End Sub

de plus je le redis tout dépend du résultat souhaité en cas de non occurrence

[Pierre Fauconnier]

[...]en cas de non occurrence
instr donnera 0
le split(index(0)) rendra la chaine complète

Si risque d'absence de sous-chaine, on peut tester le retour de instr car:

• Il n'est pas dit dans l'énoncé que la sous-chaine n'existe pas;
• Il n'est pas dit qu'il faut retourner la chaine entière dans ce cas.

Quoi qu'il en soit, le split que tu as proposé:

• n'aboutira pas car Tata: <> Tata :
• même avec Tata :, laisserait un espace derrière Toto : 123456789 alors que l'exemple donné par le demandeur montre clairement qu'il ne faut pas d'espace en fin de chaine