VBA ne pas prendre la casse en compte

[deudecos]

Bonjour à toutes et à tous,

En passant par un TextBox, je souhaite lancer une recherche dans ma base de données, mais je voudrais que la recherche ne tienne pas compte du fait que la première lettre soit en majuscule ou en minuscule.

Avec ce bout de code je lance ma recherche, mais je suis obligé de tenir compte de la casse. J'aimerais ne pas m'en soucier.
For i = 6 To L
If Left(Sheets("Compta").Range("S" & i), 1) = Comptes.TextBox6.Value Then
M = Sheets("Compta").Range("Y65000").End(xlUp).Row
Sheets("Compta").Range("Y" & M + 1) = Sheets("Compta").Range("S" & i).Value
End If
Next

Merci d'avance.

Bonne journée

Olivier

 

[fhoest]

Re : VBA ne pas prendre la casse en compte

Bonjour,
a mettre tout en haut du code (module ou autre):
Option compare text
A+

 

[Fred0o]

Re : VBA ne pas prendre la casse en compte

Bonjour deudecos, fhoest,

Autre possibilité :

If UCase(Left(Sheets("Compta").Range("S" & i), 1)) = UCase(Comptes.TextBox6.Value) Then

A+

 

[deudecos]

Re : VBA ne pas prendre la casse en compte

Re tout le monde,

Merci à tous les deux pour votre aide, je ne pensais pas que c'était aussi simple en tout cas!

Bonne soirée.

Olivier