Recherche de caractères rouges

[Eric Dé]

Bonjour le Forum,

Je souhaiterais rechercher sur une feuille Excel, les cellules qui comprennent des caractères rouges. (dans le même esprit que 'édition rechercher')

Est-ce possible ?

Merci pour vos tuyaux.

Eric

 

[Hervé]

Bonjour

Une première approche, en VBA :

Public Sub rechercherouge()
Dim c As Range
Dim i As byte
dim le texte as string

For Each c In Range('a1:d9')
For i = 1 To Len(c)
If c.Characters(i, 1).Font.ColorIndex = 3 Then
letexte = letexte & c.Address(0, 0) & vbNewLine
Exit For
End If
Next i
Next c
MsgBox letexte, , 'Adresses des cellules rouges :'
End Sub

ce code te donne les adresses des cellules dont ua moins un caractère est rouge, ceci dans la plage A1:a9

Tiens nous au courant

aplus

Message édité par: Hervé, à: 30/03/2005 17:36

 

[Eric C]

Bonjour le forum
Bonjour Eric Dé, bonjour Hervé

Hervé, toujours aussi rapide. Bravo. Heureux de t'avoir croisé.

Tu ne viens plus sur le Chat ?

@micalement

 

[Eric Dé]

OK, merci pour la formule.
C'est un excellent point de départ pour mon programme.

Bonne soirée,
Eric

 

[Hervé]

re

salut Eric,

Merci pour ton message.

pour le tchat on se rate régulièrement, on n'a pas les mêmes fuseaux horaires

Au plaisir de te lire

a plus