Discussion :

[Micka_Plays]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      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.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 =)