Discussion :

[monsieurmarcadet]

Bonjour !

Voici mon souci :

J'ai créé une macro j'ai trouvé sur le net une macro qui me permet d'ouvrir une pop-up, de saisir un code hexadécimal afin de modifier d'un clic la couleur de tous les mots en bleu dans mon texte. Sauf que ceci n'est valable qu'une fois car la macro se base sur la couleur à modifier au début, à savoir le bleu (Selection.Find.Font.Color = RGB(65, 124, 255) ). Or j'aimerais pouvoir utiliser la pop up à l'infini. Faudrait donc que le code hexa saisie soit enregistré quelque part et que ça soit celui-ci qui soit modifié à la prochaine saisie. M'voyez ?

Voici mon code VBA pour le moment. J'ai pas eu le temps "d'anonymiser" mon fichier de travail, mais y a besoin je le ferais bien sûr.

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
Sub test()
Dim strCouleur As Long
 
' Si une sélection est faite, ne fonctionne que sur celle-ci !
 
'positionne le curseur en haut
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
 
strCouleur = hexa_color(InputBox("Code hexa de la couleur (ex : #FF0000)", "Nouvelle couleur"))     ' !!! la saisie utilisateur n'est pas vérifiée !
 
Selection.Find.ClearFormatting
 
Selection.Find.Font.Color = RGB(65, 124, 255)     'bleu docaposte
 
Selection.Find.Replacement.ClearFormatting
 
Selection.Find.Replacement.Font.Color = strCouleur
 
Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub

Merci beaucoup !!!

[hyperion13]

Salut
Il y aurait une solution
- dans un module standard (Module1) de votre document passez :
Public Const LAST_COULEUR As Long = 16743489,
- dans le module ThisDocument passez

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
Sub test()
' http://www.cpearson.com/excel/vbe.aspx
' reference : Microsoft Visual Basic for Applications Extensibility 5.3
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Dim wdDoc As Document
Dim i As Long
 
' bleu docaposte = RGB(65, 124, 255), en HEXA = #417CFF, en Long = 16743489
Selection.GoTo What:=wdGoToHeading, Which:=wdGoToAbsolute, Count:=1
 
NEW_COULEUR = hexa_color(InputBox("Code hexa de la couleur (ex : #417CFF)", "Nouvelle couleur", "#C92CB2"))
 
Selection.Find.ClearFormatting
Selection.Find.Font.Color = LAST_COULEUR
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Color = NEW_COULEUR
Selection.Find.Execute Replace:=wdReplaceAll
 
a = "Public Const LAST_COULEUR As Long = " & LAST_COULEUR
b = "Public Const LAST_COULEUR As Long = " & NEW_COULEUR
 
With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With
 
Set VBProj = ActiveDocument.VBProject
Set VBComp = VBProj.VBComponents("Module1") ' !!! attention au nom du module standard !!!
Set CodeMod = VBComp.CodeModule
 
Set wdDoc = ActiveDocument
 
With CodeMod                                ' dans le module
    For i = 1 To .CountOfLines              ' on cherche de la 1ère à la dernière ligne
        If .Lines(i, 1) = "" & a & "" Then  ' ceci : Public Const LAST_COULEUR As Long = 16743489
            .ReplaceLine i, "" & b & ""     ' pour le remplacer par ceci : Public Const LAST_COULEUR As Long = 11676873
        End If
    Next i
End With
End Sub

[monsieurmarcadet]

Merci pour ta réponse !!

Cependant, j'ai toujours un peu de mal avec les placement des codes... Voici ce que je vois :



A moins que ça soit dans la fenêtre de droite ?

Bref... C'est déjà pas clair dans Excel, mais j'ai l'impression que c'est pire sur Word

Merci en tout cas !

[hyperion13]

re
réponse en img