accès refusé

T

tio bellou

Guest
bjr à tous!
j'affiche des colonnes avec des titres dans une list box.
Ensuite, je scan une feuille exel pour remplir un tableau. Ce tableau ("tabinter") doit venir s'ajouter à ma list box pour qu'au final, il apparaisse dans ma list box, un beau tableau de données qui sont rangées dans des colonnes avec des titres.
Seulement, quand je fais " list box.additem (tabinter) ", il me dis "erreur d'execution 70 : accès refusé " !!!
Quel désaroi!!! Je ne comprend pas!
Pouvez vous m'aidez?

voici mes 2 fonctions qui affichent tout d'abord les titres dans ma list box
puis mon tableau


1e fonction:

Function TitleTab()


If BpSyst.Caption = "actionneur" Then 'Système "actionneur"
AffSol.ColumnCount = 8
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "C7:J7"
Else 'Système "circuit"
If MultiPage1.Value = 0 Then 'Etat = "Avant"
AffSol.ColumnCount = 8
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "C4:J4"
Else 'Etat = "Après"
AffSol.ColumnCount = 5
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "K4:O4"
End If
End If

End Function


2e fonction:

Function Affichage()

'pipo = LBsyst.List(LBsyst.ListIndex)

Dim TabInter As Variant, TabSyst As Variant
Dim PosLig As Integer
Dim VarChoixSyst As String
Dim IndexTab As Integer

If FlagSyst = True Then VarChoixSyst = "circuit" Else VarChoixSyst = "actionneur"

PosLig = 10
IndexTab = 0
ReDim TabInter(10, 7)
j = 0


Do While Worksheets("Feuil7").Cells(PosLig, 2).Value <> ""
If Cells(PosLig, 1) = VarChoixSyst And Cells(PosLig, 2) = LBsyst.List(LBsyst.ListIndex) Then

For i = 3 To 10
TabInter(j, IndexTab) = Worksheets("Feuil7").Cells(PosLig, i).Value
IndexTab = IndexTab + 1
Next i
PosLig = PosLig + 1
j = j + 1
IndexTab = o
Else
PosLig = PosLig + 1
End If
Loop

AffSol.AddItem (TabInter)

End Function


j'espère avoir était assez clair pour que vous compreniez bien tout...
je vous remercie de passer qlq minutes pour moi!
sincerly,
tio bellou
 

Discussions similaires

Réponses
6
Affichages
268

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson