contient les caractères...

[nath]

Merci à la personne qui pourra me donner des infos sur la possibilité de tester une cellule contenant certains caractères. A savoir, on souhaite faire ressortir les cellules contenant des caractères spéciaux : & * etc...

 

[Gael]

Bonjour Nath,

Utilise la fonction Cherche ou Trouve. Cherche accepte les caractères génériques, pour spécifier un caractère comme '?' ou '*', il faut mettre un '~' devant pour qu'il ne les interprète pas comme génériques.

Pour Trouve, ce n'est pas nécessaire tu peux mettre '?' pour chercher un '?'.

Trouve tient compte des majuscules/minuscules.

@+

Gael

 

[Hervé]

Bonjour tout le monde

Cette macro, illustrée en pièce jointe, colore en jaune les cellules contenant les caractères indiqués dans le tableau (caractere)

Sub Bouton1_QuandClic()
Dim c As Range
Dim caractere As Variant
Dim i, j As Byte

caractere = Array('&', '*') '<==== à adapter

For Each c In Range('a1:d5') '<==== à adapter
&nbsp; &nbsp; c.Interior.ColorIndex = -4142
&nbsp; &nbsp; For i = 1 To Len(c)
&nbsp; &nbsp; &nbsp; &nbsp; For j = 0 To UBound(caractere)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Mid(c, i, 1) = caractere(j) Then
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; c.Interior.ColorIndex = 6
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; Next j
&nbsp; &nbsp; Next i
Next c
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
End Sub

Salut
[file name=Classeur1_20050618080159.zip size=7539]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050618080159.zip[/file]

 

[andré]

Sakut Nath, Gael, Hervé et les autres,

J'avais songé à une MeFC qui 'colore en jaune les cellules contenant les caractères' (pour reprendre le texte d'Hervé).

Ândré.

 

[andré]

Oups ! J'ai oublié de mettre une des formules possible pour la MeFC :

=NBCAR(A1)<>NBCAR(SUBSTITUE(SUBSTITUE(A1;'*';'');'&';''))

Le type et le nombre de caractères peut être adapté.

Ândré.