ignorer casse recherche VBA

[torg59]

Bonjour,
ma question risque d'être classique mais je n'arrive pas à appliquer ce que j'ai trouvé à mon cas. Je voudrais que cette recherche ignore la casse:


For i = 2 To Range("d65536").End(xlUp).Row
For j = 8 To 38 Step 3
If Not InStr(1, Cells(i, j).Value, cells(5,11)) = 0 Then
Range(Cells(i, 2), Cells(i, 6)).Copy
...


Merci d'avance!

 

[JYLL]

Re : ignorer casse recherche VBA

Bonjour Torg59 et le Forum,

Je pense qu'en modifiant ta macro de cette façon ça devrait fonctionner.

For i = 2 To Range("d65536").End(xlUp).Row
For j = 8 To 38 Step 3
If Not InStr(1, [COLOR="Red"]Ucase([/COLOR]Cells(i, j).Value), [COLOR="red"]Ucase([/COLOR]cells(5,11)) [COLOR="red"])[/COLOR]= 0 Then
Range(Cells(i, 2), Cells(i, 6)).Copy

Bon test.

 

[Pierrot93]

Re : ignorer casse recherche VBA

Bonjour Tord

Mets en tête de ton module la ligne de code suivante :

Option Compare Text

@+

 

[Pierrot93]

Re : ignorer casse recherche VBA

Aarf Jean Yves, collision, salutations..

 

[torg59]

Re : ignorer casse recherche VBA

Merci à tous les deux!
Ca marche très bien avec la fonction Ucase.
A bientôt