XL 2013 [Résolu] Erreur: l'indice n'appartient pas à la sélection avec tableau

[Lone-wolf]

Bonjour le Forum 🙂

J'ai un souci avec cette macro à la ligne Redim Preserve

Private Sub Lister()

    With ActiveSheet
        Bd = .Range("a2:h" & .Range("h" & Rows.Count).End(xlUp).Row)
        n = 0
    End With

    ListBox1.Clear
    For i = LBound(Bd) To UBound(Bd)
        If Bd(i, 1) Like CbEleve & "*" Then
           n = n + 1: ReDim Preserve Tbl(1 To UBound(Bd, 2), 1 To n)
            For k = 1 To UBound(Bd, 2): Tbl(k, n) = Bd(i, k): Next k
        End If
    Next i
    ListBox1.Column = Tbl

    For i = 0 To ListBox1.ListCount - 1
        ListBox1.List(i, 6) = Replace(ListBox1.List(i, 6), ",", ".")
    Next i

End Sub

Je ne comprends pas pourquoi cette ligne provoque une erreur, pourtant je l'utilise dans d'autres formulaires sans problèmes.
Si vous pourriez m'éclairer (malgré qui fasse déjà jour 😀).

EDIT: j'ai trouvé. Il fallait initialiser la Listbox.

 

[Lone-wolf]

Re

@ChTi160 : j'ai mis le fichier. Mais comme je t'ai dit, j'ai utilisé ta macro pour voir et comme je n'ai pas vus de changement, j'ai remis la mienne.

 

[ChTi160]

Re
Normal ! dans la procédure que j'ai modifié , je modifie la Colonne 6
Alors que dans ton fichier c'est la 7 ème qui doit être modifiée.....
Donc il faut

Private Sub Lister()
  Dim x As Integer
  Dim DerLgn As Integer
    With ActiveSheet
         DerLgn = .Range("a" & Rows.Count).End(xlUp).Row
             Bd = .Range("a2:h" & DerLgn).Value
    End With
    n = 0   
    For i = LBound(Bd) To UBound(Bd)
        If Bd(i, 1) Like CbEleve & "*" Then
            n = n + 1: ReDim Preserve Tbl(1 To UBound(Bd, 2), 1 To n)
            For k = 1 To UBound(Bd, 2)
                Tbl(k, n) = IIf(k = 7, Replace(Bd(i, k), ",", "."), Bd(i, k))
            Next k
        End If
    Next i   
    ListBox1.Column = Tbl
End Sub

n'hésite pas
jean marie

 

[Lone-wolf]

Bonsoir jean marie, le Forum 🙂

@ChTi160 : cette fois c'est ok. Merci chef 😉

Est-ce que c'est possible d'avoir un coup de main concernant le post #6, s'il te plaît? Le formulaire concerné est UsfListe.

 

[ChTi160]

Bonjour Lone-wolf
Bonjour le fil,le forum
Je regarde cela des que possible.
Bonne journee
Jean marie