Private Sub CommandButton3_Click()
Range("A4:A" & Range("A" & Rows.Count).End(xlUp)).Interior.Color = xlNone
Cells(Rows.Count, 2).End(xlUp)(2).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(, -1).Interior.Color = RGB(255, 0, 0)
End If
End Sub
Private Sub CommandButton3_Click()
Range("A4:A" & Range("A" & Rows.Count).End(xlUp)).Interior.Color = xlNone
Cells(Rows.Count, 2).End(xlUp)(2).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(, -1).Interior.Color = RGB(255, 0, 0)
End If
End Sub
Bonjour Phil, M12 , merci pour vos propositions qui fonctionnent très bien.
Bonjour Phil, M12 , merci pour vos propositions qui fonctionnent très bien.