Macro suprimant automatiquement des lignes vides

[Nikom]

Bonjour à tous et à toutes.

J'utilise un modele dans lequel figure un tableau.
Je souhaite suprimer les lignes vides dans ce tableau.

je sais que ce theme a déja été abordé dans le forum, et c'est la base de ma réflexion
cependant, la formule que j'utilise suprime les cellules vides et non les cellules avec une fontion (=""),

Voici la macro:


Sub Suprligne()
'
'

Sheets("feuil2").Range("B2:B8").SpecialCells xlCellTypeBlanks).EntireRow.Delete


'
End Sub



Je pense que c'est le "xlCellTypeBlanks" qui ne va pas, mais je ne vois pas quoi mettre à la place




merci de votre aide

Nikom

 

[Nikom]

re bonjour,


ci joint, le fichier exemlpe en question

merci

 

[Franck]

Bonjour,


POur corriger le problème de ce type, on peut utiliser en VBA la fonction isempty

Exemple :

sub aaa()


for i = 1 to [A1].rows.count

if isempty(cells(i,1)) then

entirerow(i).delete

end if
next i

cela devrait marcher en théorie...

Isempty(objet) permet de s'affranchir des formules présentes dans les cases ou des blancs types " ".

Cordialement

F.L

 

[Nikom]

Bonjour Franck, le forum

J'essaie cela tout de suite, je vous tien au courant.

merci beaucoup et à bientot

Nikom