Texte MotsEntre2Symboles

[Magic_Doctor]

Compte le nombre de mots entre 2 symboles ((), []...) dans une chaîne.

Function MotsEntre2Symboles(x$, symbole1$, symbole2$) As Long
'*************************************************************************
'Compte le nombre de mots entre 2 symboles ((), []...) dans une chaîne
'mapomme
'*************************************************************************
'- x : une chaîne

Dim s, n&, c

   x = Replace(x, symbole1, "µ" & symbole1): x = Replace(x, symbole2, symbole2 & "µ")
   s = Split(Application.Trim(x), "µ")
   For Each c In s: n = n + IIf(Left(c, 1) = symbole1, UBound(Split(c)) + 1, 0): Next
   MotsEntre2Symboles = n
  
End Function

 

[patricktoulon]

re
Bonjour
on fait quoi quand on veut la 2d tranche
exemple
msgbox MotsEntre2Symboles("[toto titi]riri et fifi [loulou truc] tatata",'[","]")

il faudra m'expliquer aussi le besoins de replacer par "µ" au lieu de splitter par les arguments eux mêmes

 

[soan]

@patricktoulon

tut tut tut ! ne dérange pas le génie en plein travail !

(tu risques de le déconcentrer !)

soan

 

[patricktoulon]

hoh! pardon
enfin c'est pas la pire

 

[Magic_Doctor]

re
Bonjour
on fait quoi quand on veut la 2d tranche
exemple
msgbox MotsEntre2Symboles("[toto titi]riri et fifi [loulou truc] tatata",'[","]")

il faudra m'expliquer aussi le besoins de replacer par "µ" au lieu de splitter par les arguments eux mêmes

Fais preuve d'imagination et pose la question à son concepteur, gros malin.
Mais comme, on dirait ici, tu es un "sobresaliente", à toi de résoudre comme un grand le problème que tu poses. Après tout, c'est le but de ce forum : soumettre une fonction pour que les autres la perfectionnent, sans pour autant émettre des commentaires superfétatoires à 2 balles.

 

[patricktoulon]

Après tout, c'est le but de ce forum

ben non justement ce forum est dédié aux propositions mûrement pensées car elle feront l’objet d'une collection de fonctions dans un complément(certainement)
et même si les propositions font l'objet de modifs ou contre propositions
les échanges de participants sérieux seront certainement un peu plus riche( en terme de VBA) que ce que tu propose à (la moindre remarque largement justifiée)

c'est bien dommage

 

[Magic_Doctor]

Si pt l'a dit...