Discussion :

[ketchups]

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

[SaumonAgile]

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

[ketchups]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SaumonAgile]

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.

[Aspic]

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

[ketchups]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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