Travail sur chaîne de caractères en VBA

Version imprimable

25/03/2010, 13h08
curt

Travail sur chaîne de caractères en VBA

Bonjour à tous,

Dans la cellule A1, j'ai un texte qui peux être variable mais qui contient TOUJOURS la chaînes Commentaire :

Grâce à la formule suivante :

Code:

=DROITE(A1;(NBCAR(A1)-NBCAR(GAUCHE(A1;TROUVE("Commentaire :";A1)+13))))

j'arrive à extraire tout ce qui suit Commentaire : et ce, quel que soit la longueur de la chaîne avant ce mot. :ccool:

Et voilà le problème :cry:
Je n'arrive pas à mettre cette formule en VBA. Le but étant de supprimer tout ce qui précède Commentaire : et y compris ce mot.

J'ai vu que Gauche et Droite sont à remplacer par Right et Left, que LEN remplace NBCAR et que FIND remplace TROUVE... mais ça ne fonctionne pas.

Merci d'avance pour une aide toujours aussi précieuse. :ccool:

Bonne journée.
Curt

Tu peux trouver ton bonheur ici :
http://silkyroad.developpez.com/VBA/...nesCaracteres/

Code:

=DROITE(A1;(NBCAR(A1)-NBCAR(GAUCHE(A1;TROUVE("Commentaire :";A1)+13))))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub Extraction()
 
Dim MyString, MyOccur As String
Dim MyStringLength, MyoccurLength, MyStringOccur As Double
 
MyString = "abcdefgh. Commentaire :description." 'Définition de ta chaîne de caractères
MyOccur = "Commentaire :" 'Définition de l'occurence à rechercher
 
MyStringLength = Len(MyString) 'retourne la longueur de ta chaîne de caractères
MyoccurLength = Len(MyOccur) 'retourne la longueur de l'occurence
 
MyStringOccur = InStr(MyString, "Commentaire :") - 1 'Renvoie la position de la première occurrence de la chaîne "Commentaire :" dans la variable MyString
 
MyString = Right(MyString, MyStringLength - MyStringOccur - MyoccurLength)
MsgBox (MyString)
 
End Sub

25/03/2010, 13h28
curt

Bonjour Tenanio,

je seuis sur cet excellent tuto depuis 2 jours....:cry: et je ne parviens pas à trouver la formule qui va bien...

Mais merci tout de même.

Curt

Bonjour,

une piste brouillon à adapter ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub soluce()
 
toto = "Cet exemple se passe de tout commentaires et fonctionne"
 
long1 = Len(toto)
long2 = Len("commentaires")
long3 = InStr(toto, "commentaires")
 
Result = Mid(toto, long2 + long3)
 
End Sub

cordialement,

Didier

25/03/2010, 13h37
Tenanio

Regarde ci-dessus. J'ai modifié mon post au moment où tu postais...

Slt, le forum,
pour poursuivre l'exemple d'ormonth qui fonctionne bien :

Code:

1
2
3
4
5
6
Sub test()
Dim val As String, i As Integer
i = InStr([A1].Value, "Commentaire :") + 13
val = Mid([A1].Value, i)
MsgBox val
End Sub

@+

EDIT: ou bien directement :

Code:

1
2
3
Dim val As String
val = Mid([A1], InStr([A1], "Commentaire :") + Len("Commentaire :"))
MsgBox val

;)

25/03/2010, 15h58
curt

Bonjour à vous tous :coucou:

et merci pour vos multiples réponses qui fonctionnent.

J'ai retenu celle de Ormonth pour sa simplicité. J'ai juste adapté pour éviter les variables et ça donne ça dans mon module :

Code:

.Fields("Commentaire") = Mid(Array1(x, 12), Len("Commentaire : ") + InStr(Array1(x, 12), "Commentaire : "))

Merci à tous pour l'aide toujours aussi précieuse ! :lahola:
25/03/2010, 18h52
Tenanio

Pas de problème ;)
J'ai peu être un peu trop forcé avec les variables...