Mise en forme conditionnelle sur ligne code VBA

[barth66]

Bonjour à tous,

voici mon petit souci , je n'arrive pas à mettre la ligne entiére de la colonne A à J en Jaune avec la mise en forme conditionnelle , seule les cellules de la colonne A se colorient.

Voici mon code :

Columns("A:A").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=CHERCHE(""total"";$A1)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveWindow.SmallScroll Down:=-15

Je pense qu'il faut définir la notion de entire.row mais je ne sais ou la placer,

Pourriez vous m'aider svp ,

Merci à tous par avance pour votre aide,

 

[Dranreb]

Bonjour.
Essayez en mettant Cells.Select au début.

 

[barth66]

Parfait cela fonctionne MERCI mais du coup il me colorie toute la ligne , peut on faire en sorte d’arrêter la coloration de la ligne à la colonne J ?
Merci

 

[Dranreb]

Ben [A:J].Select

 

[barth66]

Excellent ! Bonne journée