OVH Cloud OVH Cloud

Recherche.

2 réponses
Avatar
Syl
Bonjour,

J'ai un petit probl=E8me simple.
Je cherche, =E0 travers une macro qui existe dej=E0, =E0=20
effectuer une recherche dans les cellules suvant une=20
chaine de caract=E8re specifique qui peut apparaitre=20
al=E9atoirement dans la cellule.
Ex:
Rechercher "123"
Dans des cellules 489123,1235899747, ze123r89...

J'ai bien essayer avec des *, des +, des &... Sans succ=E8s.
XXX=3D Quoi??

Merci.
Syl

2 réponses

Avatar
Ellimac
Bonjour,

La procédure suivante met en rouge les cellules de la
sélection contenant la chaîne "123" :

Sub Toto()
For Each c In Selection
Set r = c.Find("*123*")
If Not r Is Nothing Then
c.Interior.ColorIndex = 3
End If
Next
End Sub


Camille

-----Message d'origine-----
Bonjour,

J'ai un petit problème simple.
Je cherche, à travers une macro qui existe dejà, à
effectuer une recherche dans les cellules suvant une
chaine de caractère specifique qui peut apparaitre
aléatoirement dans la cellule.
Ex:
Rechercher "123"
Dans des cellules 489123,1235899747, ze123r89...

J'ai bien essayer avec des *, des +, des &... Sans succès.
XXX= Quoi??

Merci.
Syl
.



Avatar
Syl
Un grand merci, Camille.

Syl
-----Message d'origine-----
Bonjour,

La procédure suivante met en rouge les cellules de la
sélection contenant la chaîne "123" :

Sub Toto()
For Each c In Selection
Set r = c.Find("*123*")
If Not r Is Nothing Then
c.Interior.ColorIndex = 3
End If
Next
End Sub


Camille

-----Message d'origine-----
Bonjour,

J'ai un petit problème simple.
Je cherche, à travers une macro qui existe dejà, à
effectuer une recherche dans les cellules suvant une
chaine de caractère specifique qui peut apparaitre
aléatoirement dans la cellule.
Ex:
Rechercher "123"
Dans des cellules 489123,1235899747, ze123r89...

J'ai bien essayer avec des *, des +, des &... Sans
succès.


XXX= Quoi??

Merci.
Syl
.

.