Suppression des lignes inutiles dans une table

[drareg78]

Bonjour aux membres du forum.

J'ai supposé ici une table de 3 colonnes (mais qui pourrait devenir par la suite X colonnes) et de z Lignes. Dans la mesure ou toutes les lignes peuvent ne pas être toutes documentées, comment par une simple macro supprimer les lignes inutiles. pour ne conserver que la partie documentée.
Craignant toujours de n'être pas suffisament explicite, je vous joint un petit fichier test.

Merci d'avance pour votre aide

 

[Staple1600]

Re : Suppression des lignes inutiles dans une table

Bonjour

A tester

Sub test1()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 6 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 3).Resize(, 3)) = 3 Then
If Not Cells(i, 3).Resize(, 3).Interior.ColorIndex = xlNone Then
Rows(i).Delete
End If
End If
Next
End Sub

Et celle-ci qui au résultat légèrement différent

Sub test2()
Dim i As Long
For i = ActiveSheet.UsedRange.Rows.Count To 6 Step -1
If Application.WorksheetFunction.CountBlank(Cells(i, 3).Resize(, 3)) = 3 Then
Rows(i).Delete
End If
Next
End Sub

 

[drareg78]

Re : Suppression des lignes inutiles dans une table

Bonjour à tous.

Un grand merci pour ton aideSapple1600, c'est exactement ce que je souhaitais faire. Il ne me reste plus qu'à comprendre comment tu as fais.