Microsoft 365 Insensible à la casse

David

XLDnaute Occasionnel
Bonjour à tous,

Je n'arrive pas à rendre ce bout de code insensible à la casse :
VB:
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 :
Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
313 211
Messages
2 096 248
Membres
106 543
dernier inscrit
piegmp