Discussion :

[cchampion2fr]

je souhaiterai effacer les lgnes entieres de mon tableau si la valeur de la cellule est egale à 0.

le code ci dessous ne marche pas...

Code :

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

1
2
3
4
5
6
7
 
For h = 2 To 26
 
If Cells(h, k + 2).Values = 0 Then
Rows(h).Delete
End If
Next h

[youn1096]

Code :

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

1
2
3
4
5
6
7
8
For h = 2 To 26
 
If Cells(h, k + 2).Value = 0 Then
Rows(h).Delete
h = h-1
End If
Next h

value sans s

[cchampion2fr]

ca marche mais ca tourne en boucle...???!!!

[youn1096]

ajoute un autre compteur :

Code :

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

1
2
3
4
5
6
7
8
9
10
compteur=2
For h = 2 To 26
 if compteur = 27 then exit for
If Cells(h, k + 2).Value = 0 Then
Rows(h).Delete
h = h-1
End If
compteur=compteur +1
Next h

mais j'espère que quelqu'un a une meilleure réponse

[youn1096]

dans ce cas fait plutout

Code :

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

1
2
3
4
5
6
7
8
9
10
11
h=2
Do While h < 27
 
If Cells(h, k + 2).Value = 0 Then
Rows(h).Delete

End If
h=h+1
 
Loop

[cchampion2fr]

merci!!!

je sais pas si une meilleure reponse existe...

[neupont]

ca marche mais ca tourne en boucle...???!!!

Tu veux dire une boucle infinie ?
Il doit prendre les cellules vides pour du zéro.

Essaye ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
 
k = 2
For h = 2 To 26
 
If Not IsEmpty(Cells(h, k).Value) And Cells(h, k).Value = "0" Then
    Rows(h).Delete
    h = h - 1
End If
Next h
 
End Sub

[neupont]

j'ai oublié k+2 pour mes tests, songe à le rajouter.

en fait il semble que mettre des guillemets autour du zéro suffise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Sub test()
 
k = 2
For h = 2 To 26
 
If Cells(h, k + 2).Value = "0" Then
    Rows(h).Delete
    h = h - 1
End If
Next h
 
End Sub

[cchampion2fr]

je ne sais pas pourquoi mais la deuxieme solution ne fonctionne pas a 100%.

ca me garde des ligne dont la ligne marque div/0 dans une autre cellule.

je garde la premiere solution vu que ca marche