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

Lone-wolf · 9 Septembre 2018

Bonjour le Forum

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

VB:

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 · 9 Septembre 2018

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 · 9 Septembre 2018

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

VB:

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 · 9 Septembre 2018

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 · 10 Septembre 2018

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

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

Lone-wolf

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires