Optimiser code VBA

Salut à tous,

Petite question, comment concaténer le code :

Sheets("DEBIT M.").Range("D4:D5").Interior.Color.Tab.Color = Sheets("Pense bete").Range("C5").Interior.Color
Sheets("DEBIT M.").Tab.Color = Sheets("DEBIT M.").Range("C5").Interior.Color

Sachant qu'on récupère toujours la couleur de la case C5 de la feuille "Pense bete".

Cordialement

Bonsoir Fred,

le titre de ton sujet est : « Concaténer instruction » ; je pense que tu as voulu dire : « Optimiser code VBA ».

aussi je te propose d'essayer ceci :

Sub Essai()
  Dim cx&: cx = ['Pense bete'!C5].Interior.Color
  With Worksheets("DEBIT M.")
    .[D4:D5].Interior.Color = cx: .Tab.Color = cx
  End With
End Sub

dhany

Salut, en effet je change ça, c'est un bonne suggestion !

Je test ça demain, et je redit.

Merci par avance.

EDIT :

Finalement j'ai pu tester ça, et c'est top !

Merci.

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation !

dhany