erreur d'execution - 35600 - index hors limite

[GADENSEB]

Bonsoir,

J'ai cette erreur sur la ligne "ici l'erreur"
J'arrive pas à résoudre.

QQn aurait une idée ?

Sub IniListview()
Dim Lastline As Long
Dim LastCol As Long
 
'Dim i As Single, j As Single
Dim i, j As Integer
Dim BaseDD() As Variant
 
Dim Ws As Worksheet
Set Ws = Worksheets("BASE EMPLOI")
 
With Ws
     Lastline = .Columns(1).Find("*", , , , xlByRows, xlPrevious).Row
     LastCol = .Rows(1).Find("*", , , , xlByRows, xlPrevious).Column
 
     BaseDD = .Range(.Cells(1, 1), .Cells(Lastline, LastCol))
End With
 
With LISTBDD
     For i = LBound(BaseDD, 1) To UBound(BaseDD, 1)
          .ColumnHeaders.Add , , i, "100"
          For j = LBound(BaseDD, 2) To UBound(BaseDD, 2)
               .ListItems(.ListItems.Count).ListSubItems.Add BaseDD(i, j) -----> ici l'erreur
          Next j
     Next i
End With
End Sub

 

[GADENSEB]

Re : erreur d'execution - 35600 - index hors limite

Bonjour à tous,

Oula je reviens aprés jours d'absence et je trouve toutes vos réponses


Du coup je refait le point :

du coup je garde le code de Dranreb

Sub IniListview()

' propriété View de la ListView sur 0 - lvwIcon au lieu de 3 - lvwReport

Dim BaseDD() As Variant, L As Long, C As Long, LstIt As MSComctlLib.ListItem
With ThisWorkbook.Worksheets("BASE EMPLOI")
   L = .[A60000].End(xlUp).Row
   C = .[A1].End(xlToRight).Column
   BaseDD = .[A1].Resize(L, C).Value: End With
With LISTBDD
   With .ColumnHeaders: .Clear
      For C = 1 To UBound(BaseDD, 2)
         .Add Text:=BaseDD(1, C), Width:=100: Next C: End With
   .ListItems.Clear
   For L = 2 To UBound(BaseDD, 1)
      Set LstIt = .ListItems.Add(Text:=BaseDD(L, 1))
         For C = 2 To UBound(BaseDD, 2)
            'LstIt.ListSubItems.Add Text:=BaseDD(L, C): Next C, L: End With
            LstIt.ListSubItems.Add Text:=CStr(BaseDD(L, C)): Next C, L: End With
End Sub

tout en sachant que ceci pose un léger problème :
quand je filtre la listview via la listbox cela créer des filtres dans la base de données qui ne s'envont pas quand je réinitialise la listview ......


---> comment corriger ça ?


@ Regueiro :

Ton post 28 est super par contre cela ne fonctionne pas sur la ligne

   CodeBaseValue = .List(.ListIndex, 1)          'X correspond au numéro de colonne dont tu veux l'information

dans Sub LISTBDD_DblClick()

Bonne journée

Seb

 

[GADENSEB]

Re : erreur d'execution - 35600 - index hors limite

@ Regueiro
Je teste ton code (et fichier) sur le post 28


J'ai une erreur de compilation membre de méthode ou de données introuvable sur .ListIndex

with LISTBDD
     CodeBaseValue = .List(.ListIndex, 1)          'X correspond au numéro de colonne dont tu veux l'information

Est-ce normal ?

Bonne aprem

seb