Rehercher et remplacer

Le
Tatanka
Bonjour,

Une amie me demande s'il existe un moyen de mettre en
surbrillance les cellules trouvées par la boîte de dialogue
« Rechercher ». En tous cas, un truc permettant de répérer
plus facilement la cellule trouvée.
Moi je ne connais pas. Et vous ?

Serge
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21962731
Bonjour,

Si tu utilises la commande graphique de la feuille de calcul,
c'est impossible, car c'est Excel qui gère cette commande et
il n'y a pas un moyen SIMPLE de "modifier" son exécution.

Mais en VBA, tout est possible. Tu as un exemple dans l'aide d'Excel
sur Find... FindNext

'-----------------------------------
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'Pour chaque cellule trouvée, un fond de cellule rouge
'Tu remplaces ceci par ce que tu désires
c.Interior.ColorIndex = 3
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
'-----------------------------------

De même, on peut formater seulement le mot de la cellule recherchée.
Cela dépend de la donnée du problème et du résultat attendu.




"Tatanka" #$
Bonjour,

Une amie me demande s'il existe un moyen de mettre en
surbrillance les cellules trouvées par la boîte de dialogue
« Rechercher ». En tous cas, un truc permettant de répérer
plus facilement la cellule trouvée.
Moi je ne connais pas. Et vous ?

Serge
michdenis
Le #21977061
Pour moduler cette réponse,

En utilisant la fenêtre de la commande "Remplacer / Rechercher"
en affichant les options, il est possible de modifier le format
de la cellule où il y a eu un remplacement d'effectuer.
En utilisant le bouton "Format" au bout de la ligne "Remplacer"
de la fenêtre "Rechercher / Remplacer", on peut employer toutes
les options disponibles pour ce faire...

Par programmation, on peut-être plus pointu dans le type de format
à appliquer !

J'espère que cela dissipe toute confusion qu'aurait pu susciter ma
réponse.



"michdenis" #
Bonjour,

Si tu utilises la commande graphique de la feuille de calcul,
c'est impossible, car c'est Excel qui gère cette commande et
il n'y a pas un moyen SIMPLE de "modifier" son exécution.

Mais en VBA, tout est possible. Tu as un exemple dans l'aide d'Excel
sur Find... FindNext

'-----------------------------------
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'Pour chaque cellule trouvée, un fond de cellule rouge
'Tu remplaces ceci par ce que tu désires
c.Interior.ColorIndex = 3
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
'-----------------------------------

De même, on peut formater seulement le mot de la cellule recherchée.
Cela dépend de la donnée du problème et du résultat attendu.




"Tatanka" #$
Bonjour,

Une amie me demande s'il existe un moyen de mettre en
surbrillance les cellules trouvées par la boîte de dialogue
« Rechercher ». En tous cas, un truc permettant de répérer
plus facilement la cellule trouvée.
Moi je ne connais pas. Et vous ?

Serge
Tatanka
Le #21981921
Aucune confusion dans ta réponse et quand je saurai précisément
les besoins de mon amie, je choisirai la solution qui s'impose.

Bonne fin de semaine


"michdenis"
Pour moduler cette réponse,

En utilisant la fenêtre de la commande "Remplacer / Rechercher"
en affichant les options, il est possible de modifier le format
de la cellule où il y a eu un remplacement d'effectuer.
En utilisant le bouton "Format" au bout de la ligne "Remplacer"
de la fenêtre "Rechercher / Remplacer", on peut employer toutes
les options disponibles pour ce faire...

Par programmation, on peut-être plus pointu dans le type de format
à appliquer !

J'espère que cela dissipe toute confusion qu'aurait pu susciter ma
réponse.



"michdenis" #
Bonjour,

Si tu utilises la commande graphique de la feuille de calcul,
c'est impossible, car c'est Excel qui gère cette commande et
il n'y a pas un moyen SIMPLE de "modifier" son exécution.

Mais en VBA, tout est possible. Tu as un exemple dans l'aide d'Excel
sur Find... FindNext

'-----------------------------------
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'Pour chaque cellule trouvée, un fond de cellule rouge
'Tu remplaces ceci par ce que tu désires
c.Interior.ColorIndex = 3
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
'-----------------------------------

De même, on peut formater seulement le mot de la cellule recherchée.
Cela dépend de la donnée du problème et du résultat attendu.




"Tatanka" #$
Bonjour,

Une amie me demande s'il existe un moyen de mettre en
surbrillance les cellules trouvées par la boîte de dialogue
« Rechercher ». En tous cas, un truc permettant de répérer
plus facilement la cellule trouvée.
Moi je ne connais pas. Et vous ?

Serge



Philippe.R
Le #22041811
Bonsoir,
Fort intéressant !
Je n'avais encore jamais regardé de ce côté
Merci
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"michdenis" news:
Pour moduler cette réponse,

En utilisant la fenêtre de la commande "Remplacer / Rechercher"
en affichant les options, il est possible de modifier le format
de la cellule où il y a eu un remplacement d'effectuer.
En utilisant le bouton "Format" au bout de la ligne "Remplacer"
de la fenêtre "Rechercher / Remplacer", on peut employer toutes
les options disponibles pour ce faire...

Par programmation, on peut-être plus pointu dans le type de format
à appliquer !

J'espère que cela dissipe toute confusion qu'aurait pu susciter ma
réponse.



"michdenis" discussion :
#
Bonjour,

Si tu utilises la commande graphique de la feuille de calcul,
c'est impossible, car c'est Excel qui gère cette commande et
il n'y a pas un moyen SIMPLE de "modifier" son exécution.

Mais en VBA, tout est possible. Tu as un exemple dans l'aide d'Excel
sur Find... FindNext

'-----------------------------------
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'Pour chaque cellule trouvée, un fond de cellule rouge
'Tu remplaces ceci par ce que tu désires
c.Interior.ColorIndex = 3
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
'-----------------------------------

De même, on peut formater seulement le mot de la cellule recherchée.
Cela dépend de la donnée du problème et du résultat attendu.




"Tatanka" de discussion :
#$
Bonjour,

Une amie me demande s'il existe un moyen de mettre en
surbrillance les cellules trouvées par la boîte de dialogue
« Rechercher ». En tous cas, un truc permettant de répérer
plus facilement la cellule trouvée.
Moi je ne connais pas. Et vous ?

Serge



Publicité
Poster une réponse
Anonyme