Changement couleur

[XC2ONE]

Bonjour le Forum,

Suite à une recherche dans ma base données, je souhaiterais qu'une fois l'élément retrouvé la case change de couleur, voilà le code et je ne comprends pas, il ne marche pas systématiquement :

On Error Resume Next
Dim X As Range
Set X = Cells(2, 3)
If X = '' Then Exit Sub 'si la cellule C2 est vide (fin de la macro)
'Selection de colonnes de recherche
Range('A8:C1500').Select
Selection.Interior.ColorIndex = xlNone
Selection.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Select
With Selection.Interior
.ColorIndex = 34


Autres questions sur le même thème :
Est il possible à la saisie d'une cellule d'avoir un format conditionnel pour une ligne complète en rapport à une seule cellule.

MErci de votre aide si vous avez vu une erreur ou une autre idée.

 

[Philippe]

Salut,

rajoute déjà un tiret bas après 'interior' à la fin de l'avant dernière ligne

2°
après activecell.select:
selection.entirerow.select


Normalement ça devrait marcher

A+
Philippe

 

[XC2ONE]

Bonjour Philippe,

J'ai fait une entrée par erreur qui a coupé la ligne en effet sans '_'.
merci de l'avoir vu

A bientôt Philippe,

 

[Fred]

Salut,

ne t'embetes pas avec les macros et utilises plutot la mise en forme conditionnelle.

'la valeur de la cellule est égale à' ...

Pour ce qui du changement de couleur d'une ligne, par exemple ligne 1, en fonction du contenu de la case A1, c'est aussi possible avec la mise en forme conditionnelle :

'la formule est'
=$A1=...


a+

 

[Philippe]

Exact Fred, c'est plus simple,
mais on était parti dans les macros, alors... :woohoo:

A+
Philippe