Problème avec code supprimer ligne

[MOILEK2]

Je suis novice en vba main je me débrouille.

Je remercie Bruce68 pour son code, qui fonctionne bien.
Mais sur mon tableau la ligne 8 quand elle est vide elle disparais c'est ok
par-contre le problème quand elle est renseigner elle disparais aussi.

Pouvez-vous m’expliquer pourquoi?

Voici le code
Sub IMPRESSION_DEBIT()

For i = 6 To 20
If Range("D" & i) = "" Then ' Controle ligne par ligne la colonne D = ""
Rows(i & ":" & i).Select 'Cache la ligne si = ""
Selection.EntireRow.Hidden = True
End If
Next i


Rows("6:25").Select
Selection.EntireRow.Hidden = False

End Sub

Fichier exemple joint.

Merci d'avance du temps passé.

 

[Staple1600]

Re : Problème avec code supprimer ligne

Bonsoir


C'est normal non ?

Sub IMPRESSION_DEBIT()

For i = 6 To 20
If Range("D" & i) = "" Then ' Controle ligne par ligne la colonne D = ""
Rows(i & ":" & i).Select 'Cache la ligne si = ""
Selection.EntireRow.Hidden = True
End If
Next i


' * Rows("6:25").Select
' * Selection.EntireRow.Hidden = False ' ici est le problème

End Sub

Essaie ta macro en supprimant les lignes ou j'ai mis une étoile

EDITION: bonsoir Robert

 

[Robert]

Re : Problème avec code supprimer ligne

Bonsoir Moilek et bienvenu, Staple, bonsoir le forum,

Staple te fournit la réponse, je te propose une amélioration de ton code. Essaie d'éviter autant qu'il est possible les Select qui ralentissent considérable l'exécution du code. On peut remplacer :

For i = 6 To 20
If Range("D" & i) = "" Then ' Controle ligne par ligne la colonne D = ""
Rows(i & ":" & i).Select 'Cache la ligne si = ""
Selection.EntireRow.Hidden = True
End If
Next i

par :

For i = 6 To 20
     If Range("D" & i) = "" Then Rows(i).Hidden = True
Next i

 

[MOILEK2]

Re : Problème avec code supprimer ligne

Merci a staple1600 ta rectification et bien; mais j'ai besoin de récupérer le ligne aussi-to.

Robert ta réponse est impeccable pour moi.

Merci beaucoup a vous

Cordialement

LeK2