mise en forme d'un résultat de recherche

[daniel]

Bonjour le forum,

Voilà mon souci...

La procédure suivante me permet de n'afficher que les lignes de ma plage nommée ('liste') dont la cellule B (indiquée via un 'offset') contient une chaîne de caractères donnée (contenue dans la variable 'recherche').


Dim c as range
[liste].EntireRow.Hidden = True
For Each c In [liste]
If c.Offset(0, 1).Value Like '*' & recherche & '*' Then
c.Rows.Hidden = False
End If


J'aimerais, en outre, que la chaîne de caractères puisse s'afficher en gras, dans la cellule, à l'issue de la recherche (un peu comme quand on fait une recherche sur le forum, quoi )

Suis-je trop gourmand ou pensez vous que cela soit possible ?

Merci pour votre aide


Daniel

 

[Hervé]

Bonsoir daniel

Pas sur d'avoir compris, mais tu peux peut etre essayer comme ceci :

[liste].EntireRow.Hidden = True
For Each c In [liste]
If c.Offset(0, 1).Value Like '*' & recherche & '*' Then
c.Rows.Hidden = False
c.Offset(0, 1).Characters(InStr(1, c.Offset(0, 1), recherche), Len(recherche)).Font.Bold = True
End If

salut

 

[john]

Salut,

Voici ta macro modifiée pour pouvoir faire ce que tu aimerai.

Sub cherche()
Dim c As Range
recherche = 'a'
[liste].EntireRow.Hidden = True
For Each c In [liste]
If c.Offset(0, 0).Value Like '*' & recherche & '*' Then
c.Rows.Hidden = False
c.Font.Bold = True
End If
Next c
End Sub

Bonne soirée.

John

Ps : mais la macro de Hervé fonctionne très bien aussi et fait pareil que la mienne :whistle:

Message édité par: john, à: 22/12/2005 20:24

 

[Hervé]

re daniel, salut john

mais daniel précisait ' que la chaîne de caractères puisse s'afficher en gras'.

soit juste la chaine et non la cellule complète, d'ou mon utilisation de characters.

salut à vous deux

 

[daniel]

Bonjour le Forum,

Un grand merci, Hervé, pour ton code qui marche à merveille

je te souhaite, ainsi qu'à tous les Excelien(ne)s de bonnes fêtes de fin d'année !

Daniel