Objet text box qui ne differencie pas les majuscules des min

Hello,

petit probleme sur un userform avec un text box : j ai une liste de clients en colonne F lorsque je lance ma macro mon userform se lance et me demade le nom du client , je le tape et click sur un bouton de commande nommer 'ok' placer sur mon userform qui execute l'action suivante : si le nom du client taper dans le textbox1 est present dans la colonne F alors la valeur correspondante en colonne J vaut 0.

Mon code est le suivant :

For Each C1 In CLIENT1

For i = 1 To 350

If TextBox1 <> "" And C1.Value Like TextBox1 & "*" Then

C1.Offset(0, 3).Value = 0

C1.Offset(0, 7).Value = 0

End If

Next i

Next C1

Mon code fonctionne tres bien a condition de respecter l'ortographe exacte du client (majuscules et minuscule)

Ainsi je souheterais que cela fonctionne peu importe la typographie ecrite dans le text box, exemple :

Que je tape 'Carrefour' ou 'CARREFOUR' je veux que si le client s appellee ou commence par carefour sa valeur vaut 0 en J

je ne sais pas si j ai etais clair , pouvez vous m'aider svp?

Merci d'avance

hugo

Bonjour Hugo,

essaye ceci :

If TextBox1 <> "" And LCase$(C1.Value) Like LCase$(TextBox1) & "*" Then

les deux données sont converties en minuscules!

En majuscules, ce serait UCase$.

A+

Bonjour,

Salut Curulis !

Ou tu peux modifier l'option de comparaison de texte qui par défaut est Option Compare Binary en tapant en tête du module :

Option Compare Text

Cordialement.

Bonjour MFerrand!

Au taquet, aux manettes, au four et au moulin, je vois!

Bonne journée!

Super

l option Option Compare Text marche

merci bcp