Erreur d'exécution 9, l'indice n'appartient pas à la sélection

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

Bonjour,

Au lieu de CobSel = Range("K8" & j)

Ne serait-ce pas CobSel = Range("K" & j) ???

ric

AAAAAAAAAAAAAh ! Bien vu ! Merci 1000 fois =)

Rechercher des sujets similaires à "erreur execution indice appartient pas selection"