Simplification de code

Bonjour à tous

Je n'arrive pas à simplifier ce bout de code, avez vous une idée ?

Merci de votre aide

If TB_Fc.Text = "" Then
  TB_Fc.BackColor = vbRed
  Else
   TB_Fc.BackColor = &HC0FFFF
 End If
If TB_Objectif.Text = "" Then
  TB_Objectif.BackColor = vbRed
  Else
   TB_Objectif.BackColor = &HC0FFFF
 End If
If ComboBox_prat.Text = "" Then
  ComboBox_prat.BackColor = vbRed
  Else
   ComboBox_prat.BackColor = &HC0FFFF
 End If

Bonjour Jack, bonjour le forum,

Essaie comme ça (à mettre dans le bon contexte) :

TB_Fc.BackColor = IIf(TB_Fc.Text = "", vbRed, &HC0FFFF)
TB_Objectif.BackColor = IIf(TB_Objectif.Text = "", vbRed, &HC0FFFF)
ComboBox_prat.BackColor = IIf(ComboBox_prat.Text = "", vbRed, &HC0FFFF)

Merci ThauThème

nickel ça marche