Ne pas traiter les "r" dans les mots

[isa44]

Bonjour à tous le forum ,

J'ai trouvé un code que je voudrais appliquer à un fichier , or il transforme tous les "r" en couleur rouge , même ceux dans les mots.

Je voudrais qu'il s'applique seulement aux "r" seul

Sub essai()
Dim Lg%, j%, i%, Ctr%

    For j = 2 To 12 'colonnes concernées (B:L)
       If j <> 5 Then   'colonnes exclues
           Lg = Cells(65000, j).End(xlUp).Row
            For i = 1 To Lg
                For Ctr = 1 To Len(Cells(i, j))
                   If Mid(UCase(Cells(i, j)), Ctr, 1) = "r" Or Mid(UCase(Cells(i, j)), Ctr, 1) = "R" Then
                     
                        Cells(i, j).Characters(Start:=Ctr, Length:=1).Font.ColorIndex = 3
                        
                    End If
                Next Ctr
            Next i
        End If
    Next j
End Sub

merci pour votre aide

 

[Pierrot93]

Re : Ne pas traiter les "r" dans les mots

Bonjour Isa

peut être comme ceci :

Dim Lg%, j%, i%, Ctr%
    For j = 2 To 12 'colonnes concernées (B:L)
       If j <> 5 Then   'colonnes exclues
           Lg = Cells(65000, j).End(xlUp).Row
            For i = 1 To Lg
                If LCase(Cells(i, j).Value) = "r" Then Cells(i, j).Font.ColorIndex = 3
            Next i
        End If
    Next j

bonne journée
@+

 

[pierrejean]

Re : Ne pas traiter les "r" dans les mots

Bonjour isa44

A tester

Sub essai()
Dim Lg%, j%, i%, Ctr%

    For j = 2 To 12 'colonnes concernées (B:L)
       If j <> 5 Then   'colonnes exclues
           Lg = Cells(65000, j).End(xlUp).Row
            For i = 1 To Lg
                  If UCase(Cells(i, j) = "R" Then                     
                        Cells(i, j).Font.ColorIndex = 3                        
                    End If
             Next i
        End If
    Next j
End Sub

 

[Robert]

Re : Ne pas traiter les "r" dans les mots

Bonjour le fil, bonjour le forum,

Pierrot est plutôt minuscule tandis que PierreJean lui semble plus majuscule... mais tous deux sont GÉANTS !

 

[pierrejean]

Re : Ne pas traiter les "r" dans les mots

Re

Un MERCI Majucule pour Robert
qui nous régale de l'inimitable humour issu de son unique neurone (lequel en vaut bien quelques milliards d'autres)

 

[isa44]

Re : Ne pas traiter les "r" dans les mots

Merci à vous encore une fois , problème résolu

 

[Pierrot93]

Re : Ne pas traiter les "r" dans les mots

Re, bonjour PierreJean, Robert

et un UCase(merci), à Robert....