Bonjour à tous,
J'ai le message d'erreur suivant : "Erreur d'exécution 9, l'indice n'appartient pas à la sélection" et ej ne vois pas ou j'ai fais erreur.
Pire... quand je met le code de la check box sur un userform vierge, ça fonctionne correctement et que je me met avec les autres codes de ma page, ça bug...
Si vous savez d'ou ça peut venir, ça m'intéresse =)
Merci d'avance
Private Sub ChkB01_Click()
ActiveSheet.ListObjects ("Selection")
Sheets("Selection").Select
If ChkB01.Value = True Then
Range("C5") = "NC"
Else
Range("C5") = "C"
End If
End Sub
Private Sub UserForm_Initialize()
'AFFICHE LE SERVICE DE LA PERSONNE CONNECTÉE
TxbSer = Sheets("Selection").Range("D2")
TxbNb = Sheets("Selection").Range("E2")
ActiveSheet.ListObjects("TABL").Range.AutoFilter Field:=7, Criteria1:= _
"PÔLE DÉVELOPPEMENT"
Dim j As Integer
Sheets("Base").Select
'Récupère les données de la colonne K.
For j = 8 To Range("K65536").End(xlUp).Row
CobSel = Range("K8" & j)
'Filtre les doublons
If CobSel.ListIndex = -1 Then CobSel.AddItem Range("K" & j)
Next j
CobSel.ListIndex = 0
End Sub
Private Sub CobSel_Change()
Sheets("Base").[D5].Value = ComboBox1.Text
TxbNb = Sheets("Base").Range("E5")
End Sub