Supprimer des lignes vides

Re

Tant que tu ne nous enverras pas un fichier (et non une image) avec des données représentatives, on ne pourra plus rien pour toi.

10 "groupes" de données suffisent.

Nad

Autres explications en pièce-jointe :

Bonjour

Tu renvoies encore une image et qui plus est la même que précédemment, ce qui n'apporte rien de plus.

Bon sang ! Pourquoi refuses-tu d'envoyer un fichier excel (.xls) ?

Un dernier essai, après je laisse tomber.

Sub SupprimeVide()
Dim dlg As Long, derlg As Long, i As Long, j As Long
Application.ScreenUpdating = False

dlg = ActiveSheet.UsedRange.Rows.Count

For i = dlg To 1 Step -1

    If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
    If Cells(i, 1).Value Like ("*_*") Then Rows(i).RowHeight = 5

Next i

End Sub

Nad

Bonjour Nad et tous lecteurs,

Le dernier code est concluant est à permit d'enlever tous les blanc du haut.

Mais j'aimerais savoir quelles manip à faire pour les mêmes opérations mais dans Word ?

Merci pour ta réponse.

Re

N'oublie pas que tu es sur un forum excel.

Si tu n'as pas de réponse d'ici quelques jours n'hésite pas à poster ta demande sur un forum Word ......

Amicalement

Nad