Bonjour à tous,
toujours dans mon programme de gestion, dans mon tableau, les commandes s'insèrent avec toujour 1 à 3 lignes vierges d'intervalle; j'ai mis en place un système (grâce à l'aide trouver sur le forum) qui permet de réduire ces 'interlignes' à 1 avec le code suivant:
Dim vide As Range
For Each vide In Range('C4:C' & Range('C65536').End _
(xlUp).Row)
If vide.Value = '' Then
vide.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next vide
Mais ce code ne fonctionne pas parfaitement:
1) s'il y a 1 seule ligne vierge entre 2 commandes, elle est supprimée;
2)s'il y a plus d'une ligne vierge, elles sont otues supprimées sauf une;
si je relance une nouvelle fois la procédure, on revient au 1) et les lignes sont supprimmées.
Je voudrais que cette procédure n'agisse que dans les zones ou plus d'une ligne vierge se succèdent.
Je pensais utiliser la propriété 'Count', Mais je ne sais absolument pas coment m'en servir...
D'avance merci,
@ +
Toutou
toujours dans mon programme de gestion, dans mon tableau, les commandes s'insèrent avec toujour 1 à 3 lignes vierges d'intervalle; j'ai mis en place un système (grâce à l'aide trouver sur le forum) qui permet de réduire ces 'interlignes' à 1 avec le code suivant:
Dim vide As Range
For Each vide In Range('C4:C' & Range('C65536').End _
(xlUp).Row)
If vide.Value = '' Then
vide.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next vide
Mais ce code ne fonctionne pas parfaitement:
1) s'il y a 1 seule ligne vierge entre 2 commandes, elle est supprimée;
2)s'il y a plus d'une ligne vierge, elles sont otues supprimées sauf une;
si je relance une nouvelle fois la procédure, on revient au 1) et les lignes sont supprimmées.
Je voudrais que cette procédure n'agisse que dans les zones ou plus d'une ligne vierge se succèdent.
Je pensais utiliser la propriété 'Count', Mais je ne sais absolument pas coment m'en servir...
D'avance merci,
@ +
Toutou