Recherche automatique d’un groupe de mots dans une cellule

[axel197]

Bonjour,

J’aimerai savoir si quelqu’un peux m’aider.

J’ai un fichier sous Excel 2010 compose de plus 100.000 lignes sur plus 10 colonnes.
J’aimerais trouver une solution (autre que d’utiliser le mode « recherche » d’Excel) pour le problème suivant :
En sélectionnant une colonne précise, il faudrait que toutes les cellules, de cette colonne, ou apparaisse 1 ou plusieurs mots soit automatiquement transformée de fond blanc avec police noir en fond noir avec police blanche.

J’espère avoir été claire dans ma demande
Par avance merci
axel

[Fabrice69]

Bonjour à tous, Forum,

Il me semble qu'une Mise en Forme Conditionnelle devrait répondre à ton besoin. Il nous faudrait, en retour, un bout de fichier avec la colonne concernée et nous dire sur quels mots il faut le changement de couleur...

A te relire.

[axel197]

Re-

Vous trouverez ci-joint 2 fichiers (exemple-1 et exemple-2)
- exemple-1 est la structure de la base Excel
- exemple-2 est un exemple des mots a chercher dans la collone (N intitulé "Annonces") d'un tableau excel (exemple-1)

Les cellules de la collone (N intitulé "Annonces") de l'exemple-1 comportant les mots de l'exemple-2 doivent apparaitre (fond noir sur police blanche)

Pour info je suis sous office 2010
Merci de votre interet a mon probleme
Axel

-- 30 Juin 2010, 11:40 --

Re-

J'ai oublier de signaler que la liste de mot a recherhcer et assez longue environ 100 mots differents

merci
desole pour cet oblie qui est de taille
Axel

-- 30 Juin 2010, 15:02 --

pourriez-vous m'aider

amicalement

[Amadéus]

Bonjour

Je ne sais pas faire une seconde boucle intégrée. un pro VBA te feras surement cela
En attendant, une solution (un peu fastidieuse) qui fonctionne.

Cordialement

[cousinhub]

Bonjour,

Regarde le fichier joint...

Les codes :

Code: Tout sélectionner

Sub colorie()
Dim Cel As Range
Dim Fd As Worksheet, Fc As Worksheet
Dim FirstAddress As String
Dim C As Range

Set Fd = Sheets("Feuil1")
Set Fc = Sheets("Feuil2")
Application.ScreenUpdating = False
For Each Cel In Fc.Range("A1:A" & Fc.[A65000].End(xlUp).Row)
    With Fd.Columns(14)
        Set C = .Find(Cel, LookIn:=xlValues, LookAt:=xlPart)
        If Not C Is Nothing Then
            FirstAddress = C.Address
            Do
                With C
                    .Interior.ColorIndex = 1
                    .Font.ColorIndex = 2
                End With
                Set C = .FindNext(C)
            Loop While Not C Is Nothing And C.Address <> FirstAddress
        End If
    End With
Next Cel
End Sub

Sub normal()
With Columns(14)
    .Interior.ColorIndex = xlNone
    .Font.ColorIndex = 0
End With
End Sub
 

Bonne journée

colorie.zip

(16.47 Kio) Téléchargé 21 fois

[Amadéus]

Bonjour cousinhub

Nul doute qu'au frais sous les bougainvillées du pacifique, on travaille mieux que chez nous avec 32°.

Cordialement

[Nad]

Bonjour

Sur le code d'Amadéus, ma petite boucle à moi ...

Copie de exemple-v02.xls

(144.5 Kio) Téléchargé 37 fois

Amicalement
Nad