Conditions speciales et suppression de lignes

[moustic54]

Bonjour à tous,

J'ai un probleme et bien que des posts parlent de ce sujet, je ne parviens pas à trouver une solution.
Voilà je travaille régulierement sur un fichier qu'un collegue tient à jour et qui ne souhaite pas modifier celui-ci.
Au niveau de la conception, nombreuses lignes vides ou cellules fusionnées et je suis obligé de faire une copie à chaque fois et supprimer toutes les lignes vides. Le tableau fait plus de 2500 lignes.
J'aurai voulu faciliter cette pratique pour un gain de temps avec la possibilité de supprimer automatiquement les lignes dont les colonnes B et C ne sont pas renseignées mais je n'y parviens pas.
Je vous joins un petit extrait du tableau.

Merci d'avance pour vos propositions, je ne sais plus comment faire.

 

[aalex_38]

Re : Conditions speciales et suppression de lignes

bonjour,

Un exemple :

Sub essai_delete()
Dim Derlig As Long, i As Long, ws As Worksheet

Set ws = ThisWorkbook.Worksheets("Feuil1")
With ws
    Derlig = .Cells(Rows.Count, 2).End(xlUp).Row
    For i = Derlig To 2 Step -1
        If .Cells(i, 3) = Empty Then
            If .Cells(i, 2) = Empty Or .Cells(i, 2).MergeCells Then
                .Cells(i, 3).EntireRow.Delete Shift:=xlUp
            End If
         End If
    Next
End With
End Sub

 

[moustic54]

Re : Conditions speciales et suppression de lignes

Bonjour aalex

Merci pour ton aide, çà marche super.

Bonne journée à toi