analyse d'une ligne de code vba

Bonjour à tous

Quelqu'un peut-il m'aider ? Dans le cadre d'une base, qui a pour objet de documenter une base access (liste des objets, des champs, de leurs propriétés,...) et d'analyse du code, j'ai besoin de séparer une ligne en plusieurs parties, c'est-à-dire :
1- séparer une ligne en 2 s'il existe ":" en milieu de ligne (ce n'est pas très lisible mais ...)
2- identifier le commentaire de fin de ligne
3- identifier le message et le titre d'une 'MsgBox'

Je rencontre des difficultés du fait que l'on peut rajouter des virgules ou des point entre guillemets.

Voici un exemple :

Code:

---

MsgBox "Bonsoir" & " , " & "Au revoir", vbYesNo + vbDefaultButton1, "Titre : " & "Ma base : une base Access 2007": Exit Sub ' Exemple

---

Quelqu'un porrait-il m'aider ou me donner une piste (je galère même avec les fonctions 'Instr' et 'Split')

Merci
Nourson

Bonsoir,
le : ou les , à considérer sont toujours après un nombre paire de "
une fonction pourrait faire l'affaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function PosCar(texte As String, depart As Long, car As String) As Long If (depart < 1) Or (depart > Len(texte)) Then Exit Function Dim i As Long, j As Long PosCar = 0 For i = depart To Len(texte) c = Mid$(texte, i, 1) Select Case c Case """" j = j + 1 Case car If (j Mod 2) = 0 Then PosCar = i: Exit For End Select Next i End Function

---

en paramètre la chaine de caractère, la position où commence la recherche et enfin le caractère à chercher
pour l'exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() s = "MsgBox ""Bonsoir"" & "" , "" & ""Au revoir"", vbYesNo + vbDefaultButton1, ""Titre : "" & ""Ma base : une base Access 2007"": Exit Sub ' Exemple" n = PosCar(s, 1, ":") Debug.Print "position de : " & n n = PosCar(s, 1, ",") Debug.Print "position de , " & n n = PosCar(s, n + 1, ",") Debug.Print "position de , " & n End Sub

---

dans s les " doivent être doubler

Bonjour,
tu peux également utiliser les expressions régulières. Il y a un tuto sur le sujet.

Cordialement,

Merci à tous les deux.
Avec vos réponses, je peux poursuivre.
Nourson