Possible de simplifier ce code ?

[arnaudbu]

Bonjour,

Est il possible de simplifier ces lignes ? si oui comment ?

Merci

ActiveCell.Offset(0, 3).FormatConditions.Delete
ActiveCell.Offset(0, 7).FormatConditions.Delete
ActiveCell.Offset(0, 13).FormatConditions.Delete

ActiveCell.Interior.Color = 255255
ActiveCell.Offset(0, 1).Interior.Color = 255255
ActiveCell.Offset(0, 2).Interior.Color = 255255
ActiveCell.Offset(0, 3).Interior.Color = 255255
ActiveCell.Offset(0, 4).Interior.Color = 255255
ActiveCell.Offset(0, 5).Interior.Color = 255255
ActiveCell.Offset(0, 6).Interior.Color = 255255
ActiveCell.Offset(0, 7).Interior.Color = 255255
ActiveCell.Offset(0, 8).Interior.Color = 255255
ActiveCell.Offset(0, 9).Interior.Color = 255255
ActiveCell.Offset(0, 10).Interior.Color = 255255
ActiveCell.Offset(0, 11).Interior.Color = 255255
ActiveCell.Offset(0, 12).Interior.Color = 255255
ActiveCell.Offset(0, 13).Interior.Color = 255255

ActiveCell.Offset(0, 10) = "FINI"

 

[Robert]

Re : Possible de simplifier ce code ?

Bonjour Arnaud, bonjour le forum,

tu peux remplacer :

ActiveCell.Interior.Color = 255255
ActiveCell.Offset(0, 1).Interior.Color = 255255
ActiveCell.Offset(0, 2).Interior.Color = 255255
ActiveCell.Offset(0, 3).Interior.Color = 255255
ActiveCell.Offset(0, 4).Interior.Color = 255255
ActiveCell.Offset(0, 5).Interior.Color = 255255
ActiveCell.Offset(0, 6).Interior.Color = 255255
ActiveCell.Offset(0, 7).Interior.Color = 255255
ActiveCell.Offset(0, 8).Interior.Color = 255255
ActiveCell.Offset(0, 9).Interior.Color = 255255
ActiveCell.Offset(0, 10).Interior.Color = 255255
ActiveCell.Offset(0, 11).Interior.Color = 255255
ActiveCell.Offset(0, 12).Interior.Color = 255255
ActiveCell.Offset(0, 13).Interior.Color = 255255

par :

Range(ActiveCell, ActiveCell.Offset(0, 13)).Interior.Color = 255255

 

[arnaudbu]

Re : Possible de simplifier ce code ?

Merci cela fonctionne. C'est que j'avais essayé mais il y avait une erreur. @+

 

[ROGER2327]

Re : Possible de simplifier ce code ?

Bonjour à tous

Essayez ceci :

[COLOR="DarkSlateGray"]   With ActiveCell
      Union(.Offset(0, 3), .Offset(0, 7), .Offset(0, 13)).FormatConditions.Delete
      .Resize(1, 14).Interior.Color = 255255
      .Offset(0, 10) = "FINI"
   End With[/COLOR]

ROGER2327
#1879

 

[arnaudbu]

Re : Possible de simplifier ce code ?

Impeccable merci. Je penserais au WITH dorénavant.

Très bien avec toutes ces lignes en moins. @+