Discussion :

[beholder2]

Voilà j'ai une fonction pour supprimer les lignes entières d'une feuille excel. Le critère de suppression est de rechercher dans une colonne indiquée les valeur des cellules nulles (rien dans la cellule quoi), et en réaction de supprimer la ligne entière.

Le problème c'est que la boucle ne supprime pas toutes les cellules vides trouvées... Le pire c'est qu'en relançant la fonction plusieurs fois d'affilé, au bout d'un moment on arrive au résultat escompté : il n'y a plus de ligne avec une cellule vide. Mais bon je ne vais pas m'amuser a relancer l'algorythme X fois, sachant que c'est relativement long tout de même...

alors si qqun connait la cause de cette "erreur"...

Voilà le code de la fonction de suppression :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub SupprimerVide(limit As Integer)
 
Dim j As Integer
 
For j = 1 To limit
        If Cells(j, 2).Value = "" Then
        Cells(j, 2).EntireRow.Delete
        End If
    Next j
End Sub

Merci d'avance

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

[ThierryAIM]

Ton algorithme n'est pas bon

si les lignes 3 et 4 sont vides, dans ta boucle, tu supprimes la ligne 3 ET tu incrémentes le compteur
Or la ligne 3 ayant été supprimée, la ligne 4 va la remplacer (et devenir ligne 3) mais ne sera pas supprimée puisque tu as incrémenté le compteur

Ce qui explique qu'après plusieurs passages, tu arrives à ce que tu veux

Revois ta copie

Me suis-je bien fait comprendre

[beholder2]

oui oui et avant ta réponse c'est justement à la conclusion à laquelle je suis arrivée.

Mais je n'arrive toujours pas à résoudre ce problème.

J'ai essayé de décrémenté j dans le boucle if (j = j-1), mais là ça donne une boucle infinie (oui quand il arrive aux dernieres lignes, sachant qu'il doit allez juste limite, il trouve toujours des cellules vides et donc tourne à l'inifni).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub SupprimerVide(limit As Integer, k As Integer)
 
Dim j As Integer
 
For j = 1 To limit
        If Cells(j, 1).Value = "" Then
        Cells(j, 1).EntireRow.Delete
j = j-1
        End If
    Next j
    'MsgBox h
End Sub

Alors j'ai tenté de mettre une boucle juste avant le if, et un goto cette boucle juste après avoir supprimé la ligne correspondante, mais j'avais également une boucle infinie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub SupprimerVide(limit As Integer, k As Integer)
 
Dim j As Integer
 
For j = 1 To limit
boucle:
        If Cells(j, 1).Value = "" Then
        Cells(j, 1).EntireRow.Delete
goto boucle
        End If
    Next j
    'MsgBox h
End Sub

Enfin derniere solution que j'ai envisagé, c'est d'incrémenter un nouvel entier z, et d'arréter la boucle quand le z serait égal à limite, mais là encore j'ai des trous... (et même beaucoup).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub SupprimerVide(limit As Integer, k As Integer)
 
Dim j As Integer
Dim z As Integer
z = 0
For j = 1 To limit
z = z + 1
        If Cells(j, 1).Value = "" Then
        Cells(j, 1).EntireRow.Delete
        ElseIf z = limit Then
        Exit Sub
        End If
    Next j
    'MsgBox h
End Sub

Donc je sèche toujours dessus

[ Balise code ajoutée par ridan ]
[ Pensez-y à l’avenir. Merci ]

[beholder2]

bon c'est résolu, c'etait juste une combinaison de l'ensemble des solutions trouvées précédemment ^_^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub SupprimerVide(limit As Integer, k As Integer)
 
Dim j As Integer
Dim z As Integer
z = 1
boucle1:
For j = z To limit
        If Cells(j, k).Value = "" Then
        Cells(j, k).EntireRow.Delete
        limit = limit - 1
        z = j
        GoTo boucle1
        End If
    Next j
    'MsgBox h
End Sub

[Theocourant]

Salut,

J'ai pensé à une boucle While ce qui permet d'être plus indépendant sur la définition de j :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub SupprimerVide(limit As Integer) 
 
Dim j As Integer 
 
   j = 1
   While j <= limit
        If Cells(j, 2).Value = "" Then 
             Cells(j, 2).EntireRow.Delete
             j = j - 1
        End If
        j = j + 1
   Wend
End Sub

Voilà

Bon courage

Théo

[beholder2]

je pense que ta solution engendrera une boucle infinie également, tout simplement parsque j n'atteindra jamais limite (en effet en bas de la page , de la ligne X à la ligne limite, il y aura des lignes vides. Donc j ne s'incrémentera plus jamais (la fonction va supprimer une ligne vide pour retomber inlassablement sur une ligne vide, et du coup ne bougera plus).

Il faut à tout prix décrémenter limite, c'est semble t'il la seule solution.

[Theocourant]

Très juste

Pars sur ça alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub SupprimerVide(limit As Integer) 
 
Dim j As Integer 
 
   j = 1 
   While j <= limit 
        If Cells(j, 2).Value = "" Then 
             Cells(j, 2).EntireRow.Delete 
             j = j - 1
             limit = limit - 1
        End If 
        j = j + 1 
   Wend 
End Sub

Bon courage

Théo

[ThierryAIM]

Code :

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

1
2
3
4
5
6
 
For j = limit To 1 Step -1
    While Cells(j, 1).Value = ""
        Cells(j, 1).EntireRow.Delete
    Wend
Next j

et ca, c'est pas plus simple :

[beholder2]

en gros tu pars de la fin pour remonter jusqu'au début c'est bien ça ?
Sinon je ne connaissais pas le "step -1" (je ne fais du VBa que depuis 3-4 jours ).

Bon je testerai si j'ai le temps mais j'ai d'abord un projet à finir dans les temps haha, donc moi du moment que ça marche sans erreurs je laisse comme ça ^_^.