VBA rechercher un mot quelque soit son écriture

Question

Quelle est la formule à utiliser pour rechercher un mot dans un une cellule quelque soit son écriture, c'est à dire si il y a ou pas au début une majuscule ou tout en majuscule, ou tout en minuscule, etc... Agrimaman...

Raja · Answer

Rechercher en le transformant tout en majuscule ou minuscule dans la recherche...

Pedro22 · Answer

Bonjour, salut Raja !

Un exemple très générique :

Function AdresseRech(Plage As Range, Mot As String) As String

Dim Cel As Range, Res As String

For Each Cel In Plage 'Boucle sur les cellules
    If UCase(Cel.Value) Like "*" & UCase(Mot) & "*" Then 'Recherche partielle
        If Len(Res) > 1 Then Res = Res & "," & Cel.Address Else Res = Cel.Address 'Ajout de l'adresse aux résultats
    End If
Next Cel
AdresseRech = Res

End If

=AdresseRech(A1:A100;"Toto")

Jean-Eric · Answer

Et que fait on pour les éventuels caractères accentués ? Cdlt...