supprimer ligne vide excel

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:

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

Qu'est ce que tu entends par 'bug' ?
Merci de donner des précisions sur l'erreur.

http://img230.imageshack.us/img230/4228/erreurjl1.jpg

voici mon erreur et le code que je mets est le suivant

Code:

1
2
3
4
5
6
7
8
9
10
 
'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()
                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
            End If
        Next cptExcel

La cellule que tu testes doit être de type numérique, donc le test avec = "" échoue. Regarde s'il n'existe pas une méthode IsEmpty (ou quelquechose dans le genre) à la place de value.

Et avec Nothing ou String.Empty ca ne marche pas ?

Merci les gars sa m'a supprimer une partie de mes lignes
et enfaite j'avais de fausse ligne vierge (y'avais des espaces et donc pas vierge) mais comme j'ai remarqué qu'elle était toujours après une de mes vrai lignes vierges j'ai pu faire une combine

allez je mets mon code au cas où sa peut en aider
(si vous arrivez pas à supprimer vos lignes regardez si elles sont bien vierges)
Code:

1 2 3 4 5 6 7 8 9 For cptExcel = 1 To 2000 'Step -1 Dim eff2 As Integer If obxl.Cells(cptExcel, 1).value = Nothing Then eff2 = cptExcel - 1 ' mes lignes remplie d'espace sont toujours avant mes lignes vierges, incrémentée un nouveau compteur ^^ obxl.Rows(cptExcel).delete() obxl.Rows(eff2).delete() End If Next cptExcel
sinon j'aurai une autre question si je veux supprimer une ligne avec un text précis je fais comment? vu que ma méthode du " " ne fonctionne pas