Bonjour à tous,
Voici mon code :
Private Sub ChkB01_Click()
'CONCERNÉ/NON-CONCERNÉ 01
Sheets("Base").Select
Dim CL As Range
Dim Dlig As Integer
Dlig = Cells(Rows.Count, "A").End(xlUp).Row
Set CL = Range("A2:A" & Dlig).Find(What:=Me.TBoxM1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If ChkB01.Value = True Then
Sheets("Base").Range("DH" & CL.Row) = "NC"
Else
Sheets("Base").Range("DH" & CL.Row).ClearContents
End If
Set CL = Range("A2:A" & Dlig).Find(What:=Me.TBoxM2.Value, LookIn:=xlValues, LookAt:=xlWhole)
If ChkB01.Value = True Then
Sheets("Base").Range("DH" & CL.Row) = "NC"
Else
Sheets("Base").Range("DH" & CL.Row).ClearContents
End If
Set CL = Range("A2:A" & Dlig).Find(What:=Me.TBoxM3.Value, LookIn:=xlValues, LookAt:=xlWhole)
If ChkB01.Value = True Then
Sheets("Base").Range("DH" & CL.Row) = "NC"
Else
Sheets("Base").Range("DH" & CL.Row).ClearContents
End If
End Sub
Etant donné qu'i y a la redondance de if/then/else, il y a un moyen de simplifier opur le même effet ?
Ce code permet, e n cliquant dans une checkbox, de mettre VRAI ou FAUX dans une liste de cases.
Merci par avance =)