control array

Question

bonjour voici une partie de mon code ... j'ai 34 champs détails et a partir d'un fichier excel , le programme va chercher les lignes mais le problème c'est qu'il ne s'arrête pas quand il rencontre un une ligne blanche dans le classeur il va jusque 34 lignes plus bas qq un peut il m'aider Merci. Dim l_Workbook As Excel.Workbook Dim l_Sheet As Excel.Worksheet Set l_Workbook = monxl4.Workbooks.Open(Chemin) Set l_Sheet = l_Workbook.Worksheets("AFICIO 1515.1515PS.1515F.1515MF") For i = 1 To 33 If l_Sheet.Cells(i + 8, 2).Value <> "" Then Exit For Txtdétails1(i).Text = l_Sheet.Cells(i + 8, 2).Value For i = 1 To 33 If l_Sheet.Cells(i + 8, 4).Value <> "" Then Exit For Txtprix1(i).Text = l_Sheet.Cells(i + 8, 4).Value Next i donc voilà j'aimerais qu'il n'affiche que les détails qu'il trouve dans le classeur jusque qu'à une ligne blanche!

Zlub · Answer

Salut,




' ===========================================

'   Compacter & Archiver la base de donn&#233;es

Public Sub CompactJetDatabase(ByVal Location As String, _

                             
Optional BackupOriginal As Boolean = True)

Dim strBackupFile As String

Dim strTempFile As String

    On Error GoTo CompactErr

    If Len(Dir(Location)) Then

     

        'cr&#233;ation de la copie de sauvegarde

       If BackupOriginal = True Then

           strBackupFile = App.path & "" & "backup.mdb"

           If Len(Dir(strBackupFile)) Then Kill strBackupFile

           FileCopy Location, strBackupFile

       End If



        'Definition de la base temporaire

       strTempFile = App.path & "" & "temp.mdb"

       If Len(Dir(strTempFile)) Then Kill strTempFile

       

       'DBEngine.CompactDatabase olddb, newdb, locale, options, password

       DBEngine.CompactDatabase Location,
strTempFile, ";pwd=" & dbPassWord, , ";pwd=" &
dbPassWord   ' Compacter la base courrante -> base temp

       Kill
Location                                   
' Supprimer la base courrante

       FileCopy strTempFile,
Location                  
' Copier base tmp -> base courrante

       Kill strTempFile

    End If

    MsgBox "La base de donn&#233;e est nettoy&#233;e", vbInformation, "Termin&#233;"

    Exit Sub

CompactErr:

    MsgBox "Une erreur est apparue lors du nettoyage de la base de donn&#233;es", vbInformation, "Erreur d&#233;tect&#233;e"

    Exit Sub

End Sub

++

Zlub

Zlub · Answer

d&#233;sol&#233; erreur ...

++

Zlub

Zlub · Answer

Salut,

Dim monxl4 As Excel.Application


Dim l_Workbook As Excel.Workbook


Dim l_Sheet As Excel.Worksheet


Dim i As Byte




Set monxl4 =  New Excel.Application 

Set l_Workbook = monxl4.Workbooks.Open(Chemin)

Set l_Sheet = l_Workbook.Worksheets("AFICIO 1515.1515PS.1515F.1515MF")


For i = 1 To 33

 If l_Sheet.Cells(i + 8, 2).Value =
 "" Then Exit For

 Txtd&#233;tails1(i).Text = l_Sheet.Cells(i + 8, 2).Value





Next i




For i = 1 To 33 

   If l_Sheet.Cells(i + 8, 4).Value=
   "" Then Exit For


 
Txtprix1(i).Text  = l_Sheet.Cells(i + 8, 4).Value


Next i



++

Zlub

kobejul08 · Answer

Salut,

je veux bien mais tu as r&#233;&#233;cris ce que j'avais d&#233;j&#224; mis non?
Et &#231;a ne marche pas!!

Chris_LaFouine · Answer

&#224; la place de tes For, met un :

i=0

While Not IsNull(l_Sheet.Cells(i + 8, 2).Value) And l_Sheet.Cells(i + 8, 2).Value <> "" And i<=33

    Txtd&#233;tails1(i).Text = l_Sheet.Cells(i + 8, 2).Value

    i=i+1

Wend



C'est pitete mieux

Zlub · Answer

Salut,

b'hein non pas tout &#224; fait le m&#234;me code que toi, voir les modif en bleu ...

chez moi &#231;a marche mais j'ai pas test&#233; avec un nom de feuille pareil ... mais je ne pense pas que &#231;a fasse planter...

++

Zlub

Control array

6 réponses

Discussions similaires