Texte MotsEntre2Symboles

Magic_Doctor

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

VB:
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

XLDnaute Barbatruc
re
Bonjour
on fait quoi quand on veut la 2d tranche
exemple
msgbox MotsEntre2Symboles("[toto titi]riri et fifi [loulou truc] tatata",'[","]")
:rolleyes:
il faudra m'expliquer aussi le besoins de replacer par "µ" au lieu de splitter par les arguments eux mêmes
 

Magic_Doctor

XLDnaute Barbatruc
re
Bonjour
on fait quoi quand on veut la 2d tranche
exemple
msgbox MotsEntre2Symboles("[toto titi]riri et fifi [loulou truc] tatata",'[","]")
:rolleyes:
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.
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
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
 
Dernière édition:

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG