Discussion :

[Souriane]

Bonjour,

J'ai environ 20 bouts de phrase (ListeA) que je veux remplacer par les 20 bouts de phrase correspondant de la ListeB.

Je sais qu'il existe cette méthode mais je trouve ça très peu élégant et très difficile à relire. Je veux pouvoir la modifier à l'occasion. (Ceci n'est qu'exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ListeA = Array("un"; "deux"; "trois"; "quatre"; "cinq"; "six"; "sept"; "huit"; "neuf"; "dix"; "onze"; "douze"; "treize"; "quatorze"; "quinze"; "seize"; "dix-sept"; "dix-huit"; "dix-neuf"; "vingt")
ListeB Array ("1"; "2"; "3"; "4"; "5"; "6"; "7"; "8"; "9"; "10"; "11"; "12"; "13"; "14"; "15"; "16"; "17"; "18"; "19"; "20")

Je ne souhaite pas fonctionner avec un tableau dans un fichier à part comme décrit dans le tutoriel de Heureux Oli. (3-A-1. La procédure de recherche et remplacement.). Je souhaite que la solution soit "portable" .

Je souhaiterais quelque chose du type Array comme Sepia en a présenté un ici. Cependant, cet exemple est plutôt pour appliquer une mise en forme et non remplacer le mot.

J'ai chercher comme j'ai pu et je ne trouve pas de piste.

Quelqu'un peut me donner une piste?

Souriane

[clementmarcotte]

Bonjour,

Petite précision. Est-ce pour remplacer des mots dans un document existant ?

[Heureux-oli]

Salut,

Que souhaites-tu de plus que dans l'exemple que je donne ?

Qu'entends-tu par portable ?

[Souriane]

Bonjour,

Merci de répondre.

@Clément : c'est une macro que les utilisateurs du département utilisent pour passer à travers leurs documents de tous les jours. Par exemple, le nom d'un directeur revient souvent dans les documents et il s'écrit par exemple "St-Thomas". la macro s'assure qu'il y a un trait d'union insécable dans le nom.

@Olivier : je souhaite ne pas avoir de document à ouvrir où se trouve les mots à rechercher/remplacer. Que la macro soit "portable". Donc si je la partage avec quelqu'un de l'extérieur, la personne n'a besoin que du code, pas d'autres fichiers.

merci!

Souriane

[Heureux-oli]

Salut,

Je trouvais l'idée d'un fichier en plus beaucoup plus conviviale, surtout pour l'ajout de mot supplémentaires.

Dans le code, je pense que ce serait plus facile d'utiliser un tableau à deux dimensions.

Avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim myString(19,2) As String

Pour la boucle de recherche, on peut utiliser une variable Interger (j'espère que tu n'as pas plus de 32000 mots à rechercher) et l'index pour la correspondance.

Mais ce ne sera plus facile à relire, la seule chose qui serait intéressante, c'est une petite fonction pour exporter sous forme de table le contenu.

[clementmarcotte]

Bonjour,

Salut,

Je trouvais l'idée d'un fichier en plus beaucoup plus conviviale, surtout pour l'ajout de mot supplémentaires.

Surtout aussi que cela éviterait de devoir "mettre en dur" dans la macro les mots à remplacer. Par exemple, au lieu de refaire la macro à tout bout de champ, il suffirait de mettre à jour, un simple document Word ou même un simple fichier texte. Pour éviter de distribuer 2 fichiers, tu pourrais mettre ta liste sur un serveur avec des droits en lecture pour (presque) tous, et en lecture/écriture pour les quelques personnes qui seraient responsables de la mise à jour.