Discussion :

[ericdev67]

Bonjour,

Je galère depuis hier :

J'ai le code (merci à la "contribution")

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
Option Explicit
 
 
Sub Macro222()
Call HighlightWord(Range("F1"), Range("A1:A30"))
End Sub
 
Sub HighlightWord(ByVal str As String, r As Range)
 
    Dim res As Range
    Dim firstAddress As String, pos As Long
 
    ' on fait une recherche sur la plage
    With r.Cells
        Set res = .Find(What:=str, After:=r.Cells(1, 1), LookIn:=xlFormulas _
            , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
 
        If Not res Is Nothing Then
            firstAddress = res.Address
            Do
                pos = InStr(res.Value, str)
                Do While pos > 0
                    With res.Characters(pos, Len(str))
                        'ici on mettra en gras rouge
                        .Font.Color = vbRed
                        .Font.Bold = True
                    End With
                    pos = InStr(pos + 1, res.Value, str)
                Loop
                Set res = .Find(What:=str, After:=res, LookIn:=xlFormulas _
                        , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                        MatchCase:=False, SearchFormat:=False)
            Loop While Not res Is Nothing And res.Address <> firstAddress
        End If
    End With
 
    Set res = Nothing
 
End Sub

Qui marche super bien, par contre il ne tient pas compte des majuscules et minuscules...J'essaye donc de l'améliorer en utilisant l'instruction Ucase : j'ai donc mis :

Code :

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

1
2
3
4
5
6
7
  If Not res Is Nothing Then
            firstAddress = res.Address
           Ucase(res.value) like "*" & ucase (str) & "*" then               
              Do
                pos = InStr(res.Value, str)
                Do While pos > 0
                    With res.Characters(pos, Len(str))

Et ça ne fonctionne pas....j'ai essayé plusieurs formules et ça ne donne rien, je ne comprends pas....

Merci,
A+

[ucfoutu]

Bonjour,

UCase n'est pas une instruction, mais une fonction !

Une fonction retourne une valeur ...

Ucase("toto") retourne TOTO

en conséquence (exemple) :

Code :

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

If Ucase(une_chaine) = Ucase(autre_chaine) then ...

ton str me laisse par contre perplexe ...
Evite d'utiliser les mots réservés comme noms de variables ...

[SilkyRoad]

bonjour


Une autre solution consiste à ajouter l'instruction Compare Text en tête de module:

Code :

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

1
2
3
4
5
6
Option Explicit
Option Compare Text
 
'
'...
'

bonne journée
michel

[ericdev67]

Merci à tous les deux,

La solution de SilkyRoad fonctionne à merveille.

Merci à ucfoutu pour les explications techniques, je comprends mieux pourquoi ça déconnait....

Merci
A la prochaine....