Mettre majuscule au nom propre dans USF

[Petronie]

Bonjour tous.

J'ai un petit soucis par rapport à une USF.
J'ai une USF qui recherche des personnes dans une feuille. Pour ma feuille il y a le code;

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = False
Target = Application.Proper(Target)
Application.EnableEvents = True

End Sub

pour mettre les noms propres avec une majuscule. Seulement, quand j'effectue une recherche de personne, si je ne mets pas de majuscule au nom, dans l'USF, il ne me retrouve pas la personne. Par contre, si je mets une majuscule au nom, dans l'USF, pour la recherche; no problemo.
Comment puis-je faire pour que:
ou bien, une majuscule se mette automatiquement dans l'USF,
ou bien, la recherche se fait sans tenir des majuscules, minuscules...

Si quelqu'un pouvait m'aider, ce serait le top.
Merci d'avance.

 

[pierrejean]

bonjour Petronie

dans ta recherche

if ucase(nom)=ucase(usf) then .....

 

[ziopizza]

Bonjour Petronie
Ce code qui n'est pas de moi force la majuscule
dans une textbox.

Private Sub TextBox1_Change()
Dim Initiale As String, Reste As String
If Len(TextBox1) > 1 Then
Initiale = UCase(Left(TextBox1, 1))
Reste = LCase(Right(TextBox1, Len(TextBox1) - 1))
TextBox1 = Initiale & Reste
End If
End Sub
Salut
Yves
Bonjour pierrejean

Message édité par: ziopizza, à: 07/04/2006 17:13

 

[MichelXld]

bonjour Petronie , bonjour Pierre-Jean , bonjour Yves

une autre solution consiste à ajouter l'instruction

Option Compare Text

tout en haut du module



bon week end
MichelXld

 

[Petronie]

Merci à vous tous,
ça marche!
Vous êtes quand m^me super!
Bonne soirée.