Merci Bernard,

Je voudrais dissiper un malentendu.


L'étude d'un livre doit nécessairement s'accompagner d'un travail personnel.


Je dispose d'un bon livre. J'essaie de l'utiliser pour résoudre, à titre d'exercice, un problème que j'ai résolu, sans grand effort de programmation, sous Excel.


J'ai cherché, dans le livre une macro susceptible de me venir en aide.

J'ai commencé à l'adapter à la recherche des sous chaînes contenues dans un texte. C'est fait.


Ayant détecté les sous chaînes il me semble qu'un replace devrait me permettre de remplacer chaque sous chaîne par un caractère, ce que je ne sais pas faire actuellement. C'est ce que je demande dans ce mèl.


Quand j'aurai franchi cette étape je créerai une macro et une fonction.


Sub RemplacerSouschainesPar Caractères


Chainetocaractère( ''=20'','' '')

Chainetocaractère(''=E8'',''è'')

Chainetocaractère(''=E9'',''é'')

Chainetocaractère(''=EA'',''ê'')


End Sub


Sub ChainetoCaractère( ''Sch'' As String, ''Car'' As string)


ici je placerai en l'adaptant la macro pour laquelle je vous demande de l'aide


End Sub


Je sais par expérience que les contributeurs des listes sont des bénévoles qui répondent avec courtoisie et gentillesse aux questions, même à des questions simples. Je suis moi-même bénévole dans un autre domaine. Je sais également que dans l'intérêt de ceux qui posent des questions il ne s'agit pas de faire le travail à leur place. Celui qui pose une question doit faire l'effort d'appliquer les informations à son problème.


Un dernier mot pour terminer, je ne suis pas un gamin, je suis né le 20 Avril 1927. J'ai la chance d'avoir bon pied bon oeil. J'aide les autres et je n'hésite pas à demander de l'aide.


Cordialement

Bernard



Bernard Marcelly a écrit :
Bonjour Jean Sympa
Message du 2006-12-19 10:12:

La macro suivante, mise au point grâce à votre aide, permet de dénombrer, dans un texte, des sous chaînes situées à l'intérieur d'un texte. Par exemple [=20], [=E9], [=E8] etc..


Je voudrais la modifier pour qu'elle remplace les occurrences de:

=20 par un caractère vierge

=E9 par é

=E8 par è

Que faut-il modifier?


Question complémentaire


Pourrais-je remplacer le titre de la macro

Sub TrouverToutPartout()

par Sub TrouverRemplacerToutPartout()?


Avec mes remerciements


Ah! l'impatience de la jeunesse ;)
Ne le prends pas mal, mais les questions que tu poses montrent que tu n'as aucune notion sur les macros. Tu as acheté un livre, ça se lit; dans ton cas, depuis le début. Quand on n'a pas d'expérience de programmation le chemin est long mais il faut le suivre, en comprenant chaque étape, et en faisant soi-même des variantes sur les macros pour vérifier qu'on a compris. Ce n'est pas en sautant à la page 241 que tu peux comprendre quoi que ce soit.
Et ne compte pas trop sur les autres pour faire tes macros à ta place.

 Bonne journée
   Bernard

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]




---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à