Discussion :

[billynux]

Bonjour à tous,
Je dois régulièrement dans des longs documents mettre certains mots ou expressions en évidences.
J'ai fais une macro très simple (mais qui fonctionne) pour mettre l'expression que je rentre dans un InputBox en couleur.
Je voudrais faire la même chose mais avec la couleur de fond: pouvoir mettre certain mot en "surbrillance rouge, verte, bleue, ...) et la je cale

Voici mon code pour le changement de couleur

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub TexteCouleur()
'mets le texte entré dans le inputbox dans une des 8 couleurs proposées
 
 
montexte = InputBox("Saisissez le texte à colorier" & Chr(13) & _
                    "(laissez vide pour continuer sans colorier de texte" & Chr(13) & _
                    "                                           ou appuyez sur    ---->)", "Saisie du texte")
If montexte <> "" Then
    macouleur = -1
    While macouleur < 0 Or macouleur > 9
        macouleur = InputBox("Saisissez le code couleur:" & Chr(13) & _
                             "     1. ROUGE" & Chr(13) & _
                             "     2. VERT" & Chr(13) & _
                             "     3. BLEU" & Chr(13) & _
                             "     4. JAUNE" & Chr(13) & _
                             "     5. CYAN" & Chr(13) & _
                             "     6. MAGENTA" & Chr(13) & _
                             "     7. ORANGE" & Chr(13) & _
                             "     8. GRIS", "Choix de la couleur")
    Wend
 
 
    Select Case macouleur
        Case 1: couleur = RGB(255, 0, 0) 'rouge
        Case 2: couleur = RGB(0, 255, 0) 'vert
        Case 3: couleur = RGB(0, 0, 255) 'bleu
        Case 4: couleur = RGB(255, 255, 0) 'jaune
        Case 5: couleur = RGB(O, 255, 255) 'cyan
        Case 6: couleur = RGB(255, 0, 255) 'magenta
        Case 7: couleur = RGB(255, 128, 0) 'orange
        Case 8: couleur = RGB(128, 128, 128) 'gris
    End Select
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Bold = True
        .Color = couleur
    End With
    With Selection.Find
         .Text = montexte
         .Replacement.Text = montexte
         .Forward = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End If
End Sub

Merci d'avance !!!

[Souriane]

Bonjour,

Voici la macro adaptée :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub TexteCouleur()
'mets le texte entré dans le inputbox dans une des 8 couleurs proposées
 
 
MonTexte = InputBox("Saisissez le texte à colorier" & Chr(13) & _
                    "(laissez vide pour continuer sans colorier de texte" & Chr(13) & _
                    "                                           ou appuyez sur    ---->)", "Saisie du texte")
If MonTexte <> "" Then
    Macouleur = -1
    While Macouleur < 0 Or Macouleur > 9
        Macouleur = InputBox("Saisissez le code couleur:" & Chr(13) & _
                             "     1. ROUGE" & Chr(13) & _
                             "     2. VERT" & Chr(13) & _
                             "     3. BLEU" & Chr(13) & _
                             "     4. JAUNE" & Chr(13) & _
                             "     5. CYAN" & Chr(13) & _
                             "     6. MAGENTA" & Chr(13) & _
                             "     7. ROUGE FONCÉ" & Chr(13) & _
                             "     8. GRIS", "Choix de la couleur")
    Wend
 
 
    Select Case Macouleur
        Case 1: couleur = wdRed 'rouge
        Case 2: couleur = wdGreen 'vert
        Case 3: couleur = wdBlue 'bleu
        Case 4: couleur = wdYellow 'jaune
        Case 5: couleur = wdTurquoise 'cyan
        Case 6: couleur = wdPink 'magenta
        Case 7: couleur = wdDarkRed 'il n'y a pas d'orange, j'ai mis rouge foncé
        Case 8: couleur = wdGray25 'gris
 
    End Select
    selection.Find.ClearFormatting
    selection.Find.Replacement.ClearFormatting
    Options.DefaultHighlightColorIndex = couleur
    With selection.Find.Replacement.Font
        .Bold = True
        .Color = couleur
    End With
 
    selection.Find.Replacement.Highlight = True
    With selection.Find
         .Text = MonTexte
         .Replacement.Text = MonTexte
         .Forward = True
    End With
    selection.Find.Execute Replace:=wdReplaceAll
  End If
 
  Options.DefaultHighlightColorIndex = wdYellow 'Remet la couleur par défaut = jaune
End Sub

Bonne chance!

Souriane

[billynux]

Super !!!
Un tout grand merci, c'est exactement ce que je cherchais.
Et pour l'orange, à défaut d'en mettre en fond, j'en mangerai