Discussion :

[LordHorus]

Bonsoir, je n'ai pas trouvé de fonction qui permette d'extraire une sous-chaîne précédant un caractère ou bien supprimer une sous-chaîne à partir d'un caractère.

Par exemple, pour cette chaîne de caractères : "exemple (inutile)", je ne veux récupérer que "exemple" et donc c'est le caractère "(" qui doit déclencher le traitement. PS : Il faut que l'espace avant "(" disparaisse aussi.

Merci d'avance pour votre aide !

[kiki29]

Salut, de la lecture : Manipuler les chaînes de caractères en VB6 et VBA Excel, du côté de Scinder une chaîne avec Split ?

[Theze]

Bonjour,

Une petite fonction toute simple qui est bien sûr à adapter !
Si tu veux supprimer l'espace tu le concatène avec le caractère de référence, pour l'argument "Caractere", tu passe les deux caractères (espace et parenthèse):

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
19
20
21
22
23
24
25
26
 
Sub Test()
 
    MsgBox Extraire("exemple (inutile)", " (", 0)
 
End Sub
 
Function Extraire(Chaine As String, Caractere As String, Optional Position As Integer = 0) As String
 
    On Error GoTo Fin
    Extraire = Split(Chaine, Caractere)(Position)
 
    Exit Function
 
Fin:
    If UBound(Split(Chaine, Caractere)) < Position Then
 
        Extraire = "Valeur de 'Position' en dehords de la plage !"
 
    Else
 
        Extraire = "ERREUR" 'ou n'importe quoi d'autre pour indiquer le type d'erreur
 
    End If
 
End Function

[unparia]

Bonjour
pour mémoire :

je ne veux récupérer que "exemple" et donc c'est le caractère "(" qui doit déclencher le traitement. PS : Il faut que l'espace avant "(" disparaisse aussi.

il faut faire là l'économie de la fonction split, en faveur de la fonction Instr, associée à la fonction Left, qui fait l'affaire, est simple et est beaucoup moins gourmande

[LordHorus]

Ça a l'air assez compliqué quand même :/ Moi j'avais fait ceci mais j'espérais qu'avec une fonction il n'y ait pas besoin de créer une variable :

Code :

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

1
2
3
4
5
6
Dim position_parenthese As Integer
 
position_parenthese = InStr(TNomPrenom(tailleT), "(") 'Le nom et prénom étant déjà dans le tableau TNomPrenom
If position_parenthese <> 0 Then
    TNomPrenom(tailleT) = Left(TNomPrenom(tailleT), position_parenthese - 2)
End If

[RyuAutodidacte]

Bonjour,

es tu sur qu'il y a bien partout un espace devant la "(", car si ce n'est pas le cas sur certains tu peux alors avoir le résultat tronqué d'une lettre (avec le -2) et donc un résultat faux
dans ce cas fait plutôt -1 au lieu de -2 et utilise la fonction Trim permettant soit de supprimer les espaces à gauche (LTrim) ou à droite (RTrim) ou bien les 2 (Trim) : ex :

Code :

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

 TNomPrenom(tailleT) = RTrim(Left(TNomPrenom(tailleT), position_parenthese - 1))

ou

Code :

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

 TNomPrenom(tailleT) = Trim(Left(TNomPrenom(tailleT), position_parenthese - 1))

[patricktoulon]

Bonjour
des méthodes il y en a à foison
en voici quelques unes
'on prend l'espace et la parenthèse en paramètre

Code :

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

1
2
3
4
Sub exemple1()
 chaine = "exemple (inutile)"
MsgBox Split(chaine, " (")(0) 
End Sub

'
'on prend la parenthèse en paramètre et on fait un trim pour virer les espaces éventuels devant ou après

Code :

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

1
2
3
4
Sub exemple2()
 chaine = "exemple (inutile)"
MsgBox Trim(Split(chaine, "(")(0)) 
End Sub

'
on utilise mid(1, et la position de la première parenthèse avec instr(1,chaine,caractere) et on trim pour les espaces éventuels'

Code :

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

1
2
3
4
Sub exemple3()
chaine = "exemple (inutile)"
MsgBox Trim(Mid(chaine, 1, InStr(1, chaine, "(") - 1)) 
End Sub

'on utilise left et la position de la parenthèse avec instr(1,chaine,caractere) -1 pour l'espace

Code :

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

1
2
3
4
Sub exemple4()
chaine = "exemple (inutile)"
MsgBox Left(chaine, InStr(1, chaine, "(") - 1)
End Sub

et juste pour dresser les cheveux sur la tète de jacques un truc encore plus tordu

Code :

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

1
2
3
4
Sub exemple5()
chaine = "exemple (inutile)"
MsgBox Replace(chaine, Mid(chaine, InStr(1, chaine, "(") - 1, Len(chaine)), "")
End Sub

[RyuAutodidacte]

hi patrick

ici pas besoin de mettre Len(chaine), juste faire :

Code :

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

1
2
3
4
Sub exemple5()
chaine = "exemple (inutile)"
MsgBox Replace(chaine, Mid(chaine, InStr(1, chaine, "(") - 1), "")
End Sub

Edit : mais il est vrai que pour montrer les méthodes, les détails sont importants pour ceux qui abordent ces notions de code et façons de programmer …

[patricktoulon]

re
to edit a repondu a ma place

même moi qui ne suis pas débutant je considère que "mid" a un début et une fin (même si celle ci est gérable d'une drôle de façon sans doute l'auto complétion )

exemple troublant

Code :

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

1
2
chaine="toto" 
msgbox mid(chaine,3,1000)

te donne "to"

l'erreur n'est pas relevée par le débogage!!!!!

je considère donc ::que mieux vaut rester prudent et faire les choses conforme au cas ou la firme Redmond jugerait utile de corriger cela dans ses DLLS

[unparia]

Bonjour Patrick
Qu'est qui te "trouble" tant dans ce comportement tout-à-fait normal (et voulu) ?
Il correspond très exactement à ce qu'expose l'aide VBA interne en ce qui concerne l'argument (au demeurant facultatif) length ...

[RyuAutodidacte]

Re,

Patrick tu ne voulais pas dire plutôt pour MID, Début et Longueur (et non fin) :

Code :

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

1
2
3
4
5
6
chaine = "tototo"
MsgBox Mid(chaine, 3, 1)
MsgBox Mid(chaine, 3, 2)
MsgBox Mid(chaine, 3, 3)
MsgBox Mid(chaine, 3, 4) & " est là"
MsgBox Mid(chaine, 3) & " et le revoilà"