Discussion :

[bungler]

Bonjour,

Je voudrais que de la recherche d'un mot dans un feuillet ne prenne pas en compte les majuscules et minuscules.
Voici le code pour la recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Sub Bouton1_QuandClic()
 
Worksheets("Feuil1").Activate
 
    Dim cellule As Range
    Dim j As Range
    Dim i As Integer
    Dim mot As String
 
 
    mot = InputBox("VEUILLEZ SAISIR L'ELEMENT A RECHERCHER")
 
    If mot = "" Then Exit Sub
 
       i = 3
        For Each cellule In Worksheets("Feuil1").Range("A1:D10000")
           If cellule.Value Like "*" & mot & "*" Then
                cellule.EntireRow.Copy Worksheets("Feuil2").Range("A" & i)
                i = i + 1
                Set j = cellule
            End If
        Next
 
 
 
    If j Is Nothing Then
            MsgBox ("ELEMENT INTROUVABLE !")
            Exit Sub
    End If
 
MsgBox ("LES ELEMENTS ONT ETE COPIES DANS LE FEUILLET N°2")
Worksheets("Feuil2").Select
 
End Sub

Merci

Lilian

[Swiper]

Il suffit de rajouter devant ta variable la méthode UCASE[Variable], il me semble que c'est ca.

[zazaraignée]

Il suffit de rajouter devant ta variable la méthode UCASE[Variable], il me semble que c'est ca.

Tout à fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If UCase(cellule.Value) Like "*" & UCase(mot) & "*" Then

UCase retourne la chaîne envoyée en paramètre la même chaîne mais en majuscule. LCase fait le même travail mais en minuscule (upper case and lower case).

[durdesfois]

Ouais alors,

La solution de Swiper est ce qu'il te faut.

Tu peux aussi réduire tout en minuscules:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Montexte=Lcase(Montexte)

Ou alors (je le fais souvent):

Tu gardes la Première lettre en majuscule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Montexte=ucase(left$(Montexte,1) & right$(Montexte,len(Montexte)-1))

Y' a plein de variations à ça.


A+

[Guidhy]

Effectivement, moi j'utilise ça et ca marche :
(Recherche dans la colonne F, le nom que je mets dans mon champ de saisie)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    If UCase(Range("F" & i)) Like "*" & UCase(FicheContact.SaisieContact.Value) & "*" Then

Voili voilo. J'espere que cela répond à ta question !

[zazaraignée]

Quelle cacophonie! On a tous répondu en même temps! Et on a tous plus ou moins la même solution.

[tirex28]

Bonsoir,

Une autre possibilité, en tête du module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Option Compare Text

Cordialement,

Tirex28/

[bungler]

Merci pour toutes vos réponses, cela fonctionne parfaitement.
Rapide et efficace comme d'habitude !