trouver une chaine de caractères

[mowbray]

je voudrais pouvoir effectuer des actions sur des cellules si celles-ci contiennent une chaine de caractéres du type


anticonstitutionnel
Anti-mondialiste

If cells( i , j).[contient "anti] Then ...

et je ne sait pas trop comment faire. Les réponses faites sur le forum à ce sujet dépassaient largement mes compétances en VBA.
Alors si vous avez une réponse simple je vous en serais trés reconnaissant

 

[PhiBou]

Salut Mowbray, le forum

Avec cette macro tu devrais te débrouiller.

Sub Mowbray()
Dim cel As Range
Dim NomATrouver as String
NomATrouver = "Anti"
MaRange = "A1:A10"
For Each cel In Range(MaRange)
Set c = cel.Find(NomATrouver, LookIn:=xlValues)
If Not c Is Nothing Then
' faire ici ton action sur la cellule 'c.Address'
End If
Next cel
End Sub

Tu modifies NomATrouver et MaRange à ta convenance

c.Address te renvois l'adresse de la cellule contenant ta recherche : ex $A$5
et Range(c.Address) le contenu de la cellule.

Bonne fin de journée

PhiBou

 

[- €ric -]

Salut @ tous,

Je n'y connais rien en VBA alors tu trouveras en fichier joint
une proposition de recherche d'une chaîne de caractères
avec mise en évidence par mise en forme conditionnelle.


J'espère que ça pourra t'aider

Bye et @ +



- €ric -​