code recherche

[chinel]

Salut tout le monde !

j'ai ceci comme code qui fonctionne bien
mais qand je fais ma recherche je dois absolument mettre une majuscule (pourquoi?) je voudrais qu'on puisse mettre soit des majuscules ou des minuscules et aussi que si mes donnnées sont en gras ou la police en couleur cela ne fonctionne pas !

en résumé : faire une recherche peu importe minuscule ou majuscule
faire une recherche peu importe police en gras ou pas
faire une recherche peu importe police de couleur ou pas



Private Sub CheckBox5_Click()
Sheets("Calendrier").Unprotect
If CheckBox5.Value = True Then
Set f = Sheets("Calendrier")
Dim C As Range
mot = InputBox("pour qui veux-tu imprimer le planning ? n'oublie pas la majuscule !") & "*"
Set rng = f.Range("A8:N11"): Set rng1 = f.Range("A15:N18")
Set rng2 = f.Range("A22:N25"): Set rng3 = f.Range("A29:n32")
Set rng4 = f.Range("A36:h39"): Set rng5 = f.Range("A43:N47"): Set rngP = Application.Union(rng, rng1, rng2, rng3, rng4, rng5)

Application.ScreenUpdating = False
For Each C In rngP
If Not IsEmpty(C) And Not C Like mot Then C.Font.ColorIndex = 2
If Not IsEmpty(C) And Not C Like mot Then C.Interior.ColorIndex = 2
Next
Application.ScreenUpdating = True
Sheets("Calendrier").Activate
Sheets("Calendrier").Visible = True
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Calendrier").Range("a2:n47").PrintPreview
Sheets("Calendrier").Visible = False
Application.ScreenUpdating = False
For Each C In rngP
C.Font.ColorIndex = 0
Next
Application.ScreenUpdating = True
CheckBox5.Value = False
If CheckBox5.Value = False Then
End If

End If
End Sub

merci de votre aide !

 

[Compte Supprimé 979]

Re : code recherche

Salut Chinel,

Essaye de mettre "Option Compare Text" au début de ton module
C'est peut-être dû à ça, voir l'utilité ci-dessous !

La méthode Option Compare Text compare des chaînes sans prise en compte de la casse, en fonction d'un ordre de tri textuel défini par les paramètres régionaux de votre système. Avec la méthode Option Compare Text, les caractères de l'exemple précédent sont triés de la manière suivante :
(A=a) < (À=à) < (B=b) < (E=e) < (Ê=ê) < (Z=z) < (Ø=ø)

A+

 

[chinel]

Re : code recherche

merci mais je voudrais encore de l'aide car je suis perdu , merci !!!

 

[Compte Supprimé 979]

Re : code recherche

Salut Chinel,

Dans le module ou se trouve le code que tu as donné, tout au début, tu inscrits

[B]Option Compare Text[/B]

Et puis tu fais un test 😉

 

[chinel]

Re : code recherche

Salut BrunoM45 j'ai testé mais un débogage car cela ne fonctionne pas
j'ai mis "Option Compare Text" au dessus de mon code peux-tu me dire si tu sais à quel niveau je mettre cela


merci de ton aide !