Microsoft 365 Insensible à la casse

[David]

Bonjour à tous,

Je n'arrive pas à rendre ce bout de code insensible à la casse :

i = 1

     For counter = 1 To Rng.Rows.Count
    
'Recherche des libéllés contenant le mot SALAIRE ou Extourne et suppression de la ligne
            If Rng.Cells(i) Like "*Extourne*" Or Rng.Cells(i) Like "*SALAIRE*" Or Rng.Cells(i) Like "Congés Payés*" Then
                Rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
     Next

J'ai testé ça :

i = 1

     For counter = 1 To Rng.Rows.Count
    
'Recherche des libéllés contenant le mot SALAIRE ou Extourne et suppression de la ligne
            If LCase(Rng.Cells(i)) Like "*extourne*" Or Rng.Cells(i) Like "*salaire*" Or Rng.Cells(i) Like "congés payés*" Then
                Rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
     Next

Mais ça ne fait plus le tri du tout, une idée?
Merci

 

[Phil69970]

Bonjour @David

Il suffit de mettre tout au début de la macro

Option Compare Text

Option Compare Text

Sub macro()
' **** blablabla....
End Sub

Et la casse sera ignorée..... 😉

Merci de ton retour

 

[David]

C'est parfait!!!!
Merci beaucoup.