Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

mise en forme d'un résultat de recherche

D

daniel

Guest
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é

XLDnaute Barbatruc
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

XLDnaute Impliqué
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é

XLDnaute Barbatruc
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
 
D

daniel

Guest
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
 

Discussions similaires

Réponses
4
Affichages
202
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…