Discussion :

[bececoste]

Bonjour,

Je possède un fichier Word comportant une liste de mots (ou groupe de mots) triée alphabétiquement.

J'aurais désiré (sans doute à l'aide d'une macro) atteindre rapidement (par zone de texte qui se déplacerait en fonction) une 1ère lettre ("m" par exemple) puis atteindre ensuite une 2ème lettre ("z" par exemple) puis une 3ème lettre ("b" par exemple), et ainsi de suite.

Cela est-il possible ?

Je vous remercie d'avance.

[Toulousaing]

Bonjour, pas sûr de comprendre.
Si ta liste est triée, tu scrolles jusqu'à la lettre recherchée, non ?

[bececoste]

Merci de ta réponse.

Justement, je voulais me rendre beaucoup plus rapidement à l'endroit voulu car ma liste comprend plusieurs pages.

[Toulousaing]

Alors tu fas une recherche sur "marque de paragraphe + lettre" via le menu "caractère spéciaux" de la fonction recherche avancée :





Ca pourrait répondre à ta demande ?

[bececoste]

Bonjour et merci.

Mais c'est encore plus long que de faire défiler les pages.

Je désire l'équivalent d'une boîte de dialogue dans laquelle je rentre la lettre et qui m'envoie directement à l'endroit voulu et, qui plus est, se déplace en même temps me permettant ainsi de taper une autre lettre et ainsi de suite.

J'ai l'équivalent pour un fichier Excel mais peut-être que cela n'est pas envisageable avec Word.

Bonne journée.

[Toulousaing]

J'ai dû mal m'expliquer. Ce n'est pas long du tout, tu appelles la fonction Recherche, tu tapes ^pE tu fais Entrée et tu arrives à ta première ligne qui commence par E...
Avec Excel, on peut faire des macros, avec Word aussi mais je n'y connais rien en macros. Désolé.

[bececoste]

"tu appelles la fonction Recherche, tu tapes ^pE tu fais Entrée" :
oui, mais il faut répéter ces 3 manipulations sans arrêt alors qu'avec une zone de texte qui te suit automatiquement, il suffit simplement de saisir la lettre...
Il faudrait effectivement une macro mais... laquelle ?

Merci malgré tout de ta participation.

[Toulousaing]

Avé plaisir.

[mromain]

Bonjour bececoste, Toulousaing, le forum,

Ci-joint un essai avec macro.
Pour tester, il faut :

• Débloquer le fichier si besoin (pour pouvoir ensuite activer les macros) ;
• Activer les macros à l’ouverture du fichier dans Word ;
• lancer la macro ShowSearch (via le menu <Alt> + <F8>).

Au lancement, la macro va charger toutes les entrées du document et afficher le formulaire de recherche.
Le formulaire est très simple. Il contient :

• une zone de texte pour saisir la recherche ;
• une pastille de couleur pour afficher le statut (vert si la correspondance est trouvée, rouge sinon).

Fichier : TestSearch.zip

A+

[bececoste]

Bonjour à tous les deux,

Merci mromain, c'est exactement ce que je désirais.

Je te demanderai une autre manip pour parfaire cela ; j'aimerais que la boîte de dialogue et sa macro apparaisse automatiquement à l'ouverture de mon fichier. Je pense qu'il y a un code à rajouter à "ThisDocument" dans Visual Basic. Pourrais-tu me dépanner à nouveau.

Très bonne journée.

[mromain]

Re-bonjour bececoste,

Effectivement, c’est bien dans "ThisDocument" que ça se passe. Il te faut y ajouter ce bout de code :

Code :

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

1
2
3
Private Sub Document_Open()
    Mod_Main.ShowSearch
End Sub

A+

[bececoste]

Bonjour à tous,

mromain, je te remercie infiniment car tout est parfait et correspond exactement à ce que j'attendais.

Très bonne journée à tous.