T
tio bellou
Guest
Bonjour à tous. Voila quelques jours que je suis face à un problème..
En fait, j'ai créé une list box dans laquelle je fais apparaitre des titres:jusque là, tout va bien! Seulement, quand je parcours ma feuille excel et que je demande à ce qu'il m'affiche certaines données de cette feuille dans les colonnes, ça coince!! Il ecrase la config avec les colonnes et m'affiche une les données dans une seule colonne et sans titre!!
Où sont mes erreurs?
Comment ajouter des données sans qu'il m'éfface les titres?
voila mon programme qui affiche les données:
Do While Worksheets("Feuil7").Cells(PosLig, 2).Value <> ""
If Cells(PosLig, 1) = VarChoixSyst And Cells(PosLig, 2) = LBsyst.List (LBsyst.ListIndex) Then
For i = 4 To 10
ReDim Preserve TabInter(IndexTab)
TabInter(IndexTab) = Worksheets("Feuil7").Cells(PosLig, i).Value
IndexTab = IndexTab + 1
PosLig = PosLig + 1
Next i
Else
PosLig = PosLig + 1
End If
Loop
En fait, j'ai créé une list box dans laquelle je fais apparaitre des titres:jusque là, tout va bien! Seulement, quand je parcours ma feuille excel et que je demande à ce qu'il m'affiche certaines données de cette feuille dans les colonnes, ça coince!! Il ecrase la config avec les colonnes et m'affiche une les données dans une seule colonne et sans titre!!
Où sont mes erreurs?
Comment ajouter des données sans qu'il m'éfface les titres?
voila mon programme qui affiche les données:
Do While Worksheets("Feuil7").Cells(PosLig, 2).Value <> ""
If Cells(PosLig, 1) = VarChoixSyst And Cells(PosLig, 2) = LBsyst.List (LBsyst.ListIndex) Then
For i = 4 To 10
ReDim Preserve TabInter(IndexTab)
TabInter(IndexTab) = Worksheets("Feuil7").Cells(PosLig, i).Value
IndexTab = IndexTab + 1
PosLig = PosLig + 1
Next i
Else
PosLig = PosLig + 1
End If
Loop