Surligner des mot via macro

Bonjour,

J'ai besoin de votre aide pour modifier la macro du fichier ci-joint... Tout d'abord j'aimerai effacer les colonnes de A -> N et réorganiser la macro apres la suppression de ces colonne en fonction que la premiere colonne soit la A .

Le soucis est que il se peux que dans la feuille 1 - colonne ingrédients j'ai le même mot mais avec une autre manière de l'écrire je m'explique: il se peut que j'ai par exemple le mot soja comme ça, mais aussi Soja ou SOJA..(exemple colonne Q9 avant suppression de colonnes A->N) j'aimerai que la macro ne tienne pas compte de la manière de comment c'est écris mais uniquement le mot en lui même..

Est-ce possible?

MErci d'avance pour votre aide

Bonjour,

voici un exemple,

Sub colore()
Dim keywords As String, firstAddress As String, c As Range, i As Long
For i = 2 To Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
    keywords = Sheets("Liste").Cells(i, 1)  'mot rechercher
      With ActiveSheet.Range("Q:Q")  'plage de recherche
        Set c = .Find(keywords, LookIn:=xlValues, LookAt:=xlPart)
        If Not c Is Nothing Then
            firstAddress = c.Address

            Do
                For j = 1 To Len(c)
                  If LCase(Mid(c, j, Len(keywords))) = LCase(keywords) Then  'compare en minuscule
                    With c.Characters(j, Len(keywords)).Font
                    .ColorIndex = 3
                    .Bold = True
                    .Underline = True
                    End With
                  End If
                Next

                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress

        End If
     End With
Next i
End Sub

Bonjour,

Merci cela fonctionne,...

Est ce que c'est possible: au lieu de mettre en rouge les mots trouvés c'est qu'ils soient surligner en fluo jaune par exemple car il se peut que dans mes textes originaux j'ai déjà des mots en rouges.

MErci d'avance

AstraMen a écrit :

Bonjour,

Merci cela fonctionne,...

Est ce que c'est possible: au lieu de mettre en rouge les mots trouvés c'est qu'ils soient surligner en fluo jaune par exemple car il se peut que dans mes textes originaux j'ai déjà des mots en rouges.

MErci d'avance

re,

je ne crois pas que ce soit possible, en tout cas pas sur xl2010

Re bonjour

Je n'ai pas le xl 2010 nous avons le xl 365 mai bureau. Est ce possible?

Autre question est ce que si des mots ont des accents et le même mot sans les accents cela fonctionne aussi.?

Merci d'avance pour ton retour.