Où placer les Ucase

[cibleo]

Bonjour le forum,

La macro ci-dessous colore une occurence figurant dans une plage.
Celle-ci est désignée par la variable Lemot.

Cette macro tient compte de la casse.

Sub MotEnCouleur([COLOR=red]LeMot [/COLOR]As String, Plage As Range, Coul As Long, Effet As String)
'myDearFriend!  -  [URL="http://www.mdf-xlpages.com/"][COLOR=#0066cc]www.mdf-xlpages.com[/COLOR][/URL]
Dim cel As Range
Dim AdrDeb As String, T As String
Dim Pos As Integer
    With Plage
        Set cel = .Find(LeMot, LookAt:=xlPart)
        If Not cel Is Nothing Then
            AdrDeb = cel.Address
            Do
                T = cel.Text
                Do
                    Pos = InStr(Pos + 1, T, LeMot)
                    If Pos > 0 Then
                        With cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
                            .FontStyle = Effet
                            .ColorIndex = Coul
                        End With
                    End If
                Loop Until Pos = 0
                Set cel = .FindNext(cel)
            Loop While Not cel Is Nothing And AdrDeb <> cel.Address
        End If
    End With
End Sub

Or j'aimerais ne pas en tenir compte, où dois-je alors placer les Ucase ?

Merci de votre aide

Cibleo

 

[Pierrot93]

Re : Où placer les Ucase

Bonsoir,

pas sûr que ce soit ce que tu veux, mais essaye peut être en modifiant le "find" ainsi :

Set cel = .Find(LeMot, LookAt:=xlPart, MatchCase:=False)

ou en mettant au début de ton module :

Option Compare Text

bonne soirée
@+

 

[cibleo]

Re : Où placer les Ucase

Bonsoir Pierrot,

La modification du Find ne fonctionne pas, par contre c'est tout bon en rajoutant :

Option Compare Text

Merci Cibleo

 

[Fred0o]

Re : Où placer les Ucase

Bonsoir, une autre siolution simple est de modifier la ligne

Pos = InStr(Pos + 1, T, LeMot)

comme ceci :

Pos = InStr(Pos + 1, UCase(T), UCase(LeMot))

 

[cibleo]

Re : Où placer les Ucase

Bonsoir à tous,
Bonsoir Fred0o

Merci à toi, c'est exactement cela.

Bonne soirée Cibleo