Bonjour,
J'ai userform qui a des textbox et j'ai quand je clic sur les nom des salariés dans une listbox, je peux définir par petit groupe (de 3personnes) si le groupe de salariés en question est concerné ou pas par les compétences ou non.
Jusque là tout va bien.
Sauf que si je ne le sélectionne que 2 salariés, ça ne fonctionne plus, il me détecte un bug et sur ligne en jaune la ligne suivante :
Sheets("Base").Range("DH" & CL3.Row) = "NC"
Voici le code entier de la chekbox : (qui fonctionne quand j'ai sélectionné 3 salariés et qui ne fonctionne pas avec moins.)
Private Sub ChkB01_Click()
'CONCERNÉ/NON-CONCERNÉ 01
Dim CL1 As Range
Dim CL2 As Range
Dim CL3 As Range
Dim Dlig As Integer
Sheets("Base").Select
Dlig = Cells(Rows.Count, "A").End(xlUp).Row
Set CL1 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM1.Value, LookIn:=xlValues, LookAt:=xlWhole)
Set CL2 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM2.Value, LookIn:=xlValues, LookAt:=xlWhole)
Set CL3 = Range("A2:A" & Dlig).Find(What:=Me.TBoxM3.Value, LookIn:=xlValues, LookAt:=xlWhole)
If ChkB01.Value = True Then
Sheets("Base").Range("DH" & CL1.Row) = "NC"
Sheets("Base").Range("DH" & CL2.Row) = "NC"
Sheets("Base").Range("DH" & CL3.Row) = "NC"
Else
Sheets("Base").Range("DH" & CL1.Row).ClearContents
Sheets("Base").Range("DH" & CL2.Row).ClearContents
Sheets("Base").Range("DH" & CL3.Row).ClearContents
End If
End Sub
Merci par avance =)