je souhaiterais connaître une fonction pour savoir si une cellule donnée contient oui ou non un certain type de chaîne de caractere.
par exemple, lequel de ces mots (apparaissant dans une celulle)
Cette routine recherche dans la plage A2:J10 les cellules dont le contenu contient le bout de chaine saisi en A1, si le test est 'vrai', le texte de la cellule est coloré en rouge
Sub rech()
chaine = Range('A1').Value
x = Len(chaine)
Range('B1').Value = x
Range('A2:J10').Select
For Each vcel In Selection
test = vcel.Value
vcel.Interior.ColorIndex = 20
If test = '' Then GoTo suit
lon = Len(test)
Range('C1').Value = lon
If lon < x Then GoTo suit
For d = 0 To lon - x
soustest = Right(test, lon - d)
If Left(soustest, x) = chaine Then
vcel.Font.ColorIndex = 3
GoTo suit
End If
Next d
suit:
Next