Discussion :

[bibi 8002]

Bonjour à tous,

voici mon problème :

j'ai une bibliographie classée par thèmes.
dans chaque thème, les références sont classées par ordre alphabétique. Je sélectionne donc le groupe (hors titre) et je fais "trier" par ordre croissant.
Généralement, ça marche bien, de A à Z.

Sauf que, certaines références commencent avec des " " (guillemets, sauf qu'il s'agit des guillemets d'imprimerie, mais peu importe).
Et là, problème, j'en arrive à une double classification un peu comme ça (copié collé résumé) :

- « Always there »,
- « Dinner Conversation »,
- « Today's Military
- « Two Things »
- « A1C Jennifer Smith »,
- « Airport »
- « Armée de terre

Comme vous pouvez le voir, les références sont toutes entre guillemets. Pourtant, dans cette partie d'une cinquantaines d'entrées, on a A, B, C jusqu'à Z, puis à nouveau A, B, C...

J'ai essayé de le réordonner à plusieurs reprises, rien à faire. Il maintient deux classifications alphabétique qui n'ont d'ailleurs rien de logique.

Au fait, chaque entrée est précédée d'une puce. Et j'utilise la version 2003 d'Office (de mémoire).

Merci pour votre aide.

[Heureux-oli]

Salut,

Pourrais-tu mettre un extrait du document sur le forum ?

[bibi 8002]

oui, bien sûr.
voilà un fichier avec quelques éléments regroupés.

Comme vous pourrez le voir, le tri alphabétique ne marche qu'à moitié.

Merci.

[Heureux-oli]

Voilà avec le document, c'est tellement plus facile.

La différence vient de l'espace situé entre les guillemets ouvrantes et le mot.
Dans le premier cas, c'est un espace simple, alors que dans le second, c'est un espace insécable.

Si tu affiches les caractères non imprimables de ton document, tu verras la différence.
Pour afficher les caractères insécables, il faut cliquer sur le symbole représentant un P retourné dans la barre d'outils ou dans l'onglet Accueil du ruban.

[bibi 8002]

j'ai compris.
merci beaucoup.

il faut donc que pour chacun, il y ait un espace simple pour séparer du tiret ou derrière les guillemets.
il faut le faire manuellement ou je peux le faire automatiquement ?


Merci en tout cas !

[Heureux-oli]

Tu peux le faire en automatique
Ctrl + H

Dans les cases, tu fais un copier coller de tes caractères.

[bibi 8002]

j'en avais plus de 15 000 dis donc

c'est parfait... ou presque. J'explique :
pour une raison conventionnelle, certaines références commencent avec des guillemets (suivies d'un espace) et d'autres n'en ont pas.
Or, dans un des groupes, j'ai des lignes avec guillemets et d'autres sans. Le problème étant que ceux avec " ddddd " se classent finalement à part de CCCCC (sans espace).
Que faire pour qu'ils soient ensemble ?


Merci en tout cas !

[Heureux-oli]

Je ne sais pas combien de ligne tu as, la solution que j'entrevois c'est de mettre les « devant le texte, mais de les cacher. Dans l choix de la police, on peut rendre le texte caché, il apparaît à l'écran, mais pas lors de l'impression ni si on demande de maquer les caractères non imprimables.

[bibi 8002]

ah, j'ai quand même 8 ou 10 pages, je crois...
je n'ai pas bien compris le truc "caché"... parce qu'au final, ils ne seront pas imprimés, si ?
Enfin, en quoi ça va permettre un classement total ?

[Heureux-oli]

non, attends, tu va voir.

[bibi 8002]

ok, j'attends.

merci beaucoup, en tout cas.

[Heureux-oli]

Il est en ligne !

[bibi 8002]

ah, c'était le fichier "caché.zip"
désolé
je l'ai ouvert, mais j'avoue n'avoir pas compris.

Surtout que j'ai essayé de trier, et le AAAA" est arrivé au bout et non pas à la suite du "AAAA"

désolé de t'embêter avec ça !

[Heureux-oli]

J'ai pas fait le tri dans le doc, je vais quand même pas tout faire lol

[bibi 8002]

non bien sûr
c'est juste que je n'ai pas compris ce qu'il fallait faire.
Enlever les guillemets, classer et les ajouter manuellement ?
Ce serait un travail de titan !
ou alors... En fait, je n'ai pas compris.
je suis vraiment désolé d'être une tâche sur ce coup-là

[Heureux-oli]

Salut,

Je n'ai pas expliqué comment faire parce que dans ton premier post, tu demandais pourquoi !

Je vais me pencher sur ton cas !

[Heureux-oli]

Essaie ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub remplacerguill()
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
 
    If Len(para.Range.Text) > 2 Then
    Debug.Print Asc(Left(para.Range.Text, 1)); Asc(Mid(para.Range.Text, 2, 1))
        If Asc(para.Range.Characters(2)) = 32 Then para.Range.Characters(2) = Chr(160)
    End If
    If Asc(para.Range.Characters(1)) = 32 Then para.Range.Characters(1).Delete
    If Asc(para.Range.Characters(1)) <> 171 Then
        para.Range.InsertBefore Chr(171) & Chr(160)
        para.Range.Characters(1).Font.Hidden = True
        para.Range.Characters(2).Font.Hidden = True
 
    End If
Next para
 
End Sub

[Sepia]

Salut,

Non pas un travail de titan. Mais un simple remplacement. Tu sélectionnes ton "index" et le paragraphe qui le précède et tu effectues un remplacement global (sur la sélection) de "«^w" par "«^s" et tu tries. Le "^w" dans la recherche de Word prend tous les caractères blancs (espaces, tabulations, espaces insécables...) que tu remplaces par un seul espace insécable (ce qui est la norme en français lorsque tu utilises des guillemets littéraires)

A+