Bug checkbox en fonction de text box

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:

---

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:

---

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

De grâce, utilisez les balises CODE quand vous postez du code !!! :furieux:
Et évitez de joindre vos fichiers dès le 1er post : une question bien posée vaut un million de fichiers.

Quant à votre problème, je n'ai pas regardé de trop près, mais à vue de nez, si vous ne spécifiez pas correctement votre 3ème plage de données (puisque vous n'entrez pas de 3ème utilisateur) mais que vous essayez d'utiliser cette plage comme si de rien n'était, il ne faut pas vous étonner d'obtenir des erreurs...

Cdt

Bonjour, je partage l'avis de @Ben L.
Regardez la valeur de CL3 si vous en sélectionnez trois et ensuite si vous en sélectionnez deux, vous aurez vite compris. :weird:
Si vous souhaitez par moment en sélectionner plus ou moins que trois il faudra un codage adapté avec If etc ou select case
Enfin moi ce que j'en dit? :)

Cordialement 8-)

Bonjour
perso quand je regarde le code dans le UserForm je me demande bien ce que tu veux faire avec
tu a un tableau structuré tout devrait être plus facile et je suis quasiment certain que tu n'a pas besoins de tout ces codes et évènement alambiqués

si tu nous expliquais en terme clair tes intentions on pourrait y voir un peu plus clair nous aussi

la en l'état je ferme ton fichier et c'est tout

pour en citer un par exemple
que viens faire ce "End If a la fin de cet evenement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub ComboBox1_click() ColRecherche = 7 clé = Me.ComboBox1: n = 0 Dim Tbl() For i = 1 To UBound(TBlBD) If TBlBD(i, ColRecherche) Like clé Then n = n + 1: ReDim Preserve Tbl(1 To UBound(TBlBD, 2), 1 To n) For k = 1 To UBound(TBlBD, 2): Tbl(k, n) = TBlBD(i, k): Next k End If Next i If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear End If End Sub

---

tu semble ignorer les type de codage de cette instruction

condition if lineaire

Code:

---

if blabla then 0=la tete a toto ' pas de "end if " !!!!

---

condition If indenté

Code:

---

1 2 3

if blabla then 0=la tete a toto end if

---

et c'est pas la pire méprise dans ton code