Hello tous le monde, j'aurai un peu besoins d'aide
J'aimerai supprimer des lignes dans un document excel (j'y importe des données texte)
et il faudrait que je supprime toutes mes lignes vierges

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'supprimer les lignes vides dans excel
        Dim cptExcel As Integer = 1
        ' boucle pour supprimer les lignes vides dans excel
        For cptExcel = 1 To 6000
            If obxl.Cells(cptExcel, 1).value = "" Then
                obxl.Rows(cptExcel).delete()
            End If
        Next cptExcel
j'ai voulu essayé de mettre la ligne suivante dans ma boucle:
'cptExcel = cptExcel - 1 ' Ne pas oublier d'enlever 1 au conteur car une fois un ligne supprimée le reste des lignes décrémentée de 1
mais une fois que je lance mon programme bug à cause de ça...

Donc si quelqu'un a une solution elle est la bienvenue