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

[Ben_L]

De grâce, utilisez les balises CODE quand vous postez du code !!!
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

[Transitoire]

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

[patricktoulon]

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 :

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

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 :

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

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

condition If indenté

Code :

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

1
2
3
if blabla then
0=la tete a toto
end if

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