Selection met police rouge dans feuille - Page 2

Private Sub Cb1_Click()
        Call ComTel_Tb6a8(1)
End Sub
Private Sub Cb2_Click()
        Call ComTel_Tb6a8(2)
End Sub
Private Sub Cb3_Click()
        Call ComTel_Tb6a8(3)
End Sub

Sub ComTel_Tb6a8(NCb)
    With Me.Controls("Cb" & NCb)
        If .Value = True And Me.Controls("tb" & NCb + 5) <> "" Then
            Me.Controls("tb" & NCb + 5).ForeColor = vbRed   'couleur rouge
        Else
            Me.Controls("tb" & NCb + 5).ForeColor = vbBlack   'couleur noir
        End If
    End With
   
'On laisse passer, sera contrôlé au moment de la mises à jour effective
        tb4.SetFocus    'ne marche pas !!!

End Sub