Suppression lignes ENTIEREMENT vides

Bonsoir.

Je cherche à supprimer plusieurs lignes entièrement vides, j'ai essayé avec atteindre cellules mais ca me supprime aussi certaines cellules hors de la ligne vide.

Dans le fichier ci joint ce sont les lignes 9 et 14 que je veux supprimer. Bien sur le fichier original mais des centaines de lignes.

Si ca peut aider ces lignes à supprimer font toujours la même hauteur.

Merci pour votre aide.

7sup.xlsx (14.81 Ko)

Bonjour,

Une tentative de réponse !...

Public Sub DeleteRows()
Dim lrow As Long, lastrow As Long
    With Worksheets("Suivi Estimation Stock")
        lastrow = .Cells(.Rows.Count, 7).End(xlUp).Row
        For lrow = lastrow To 9 Step -1
            If IsEmpty(.Cells(lrow, 7)) Then .Cells(lrow, 1).EntireRow.Delete
        Next lrow
    End With
End Sub

Bonsoir.

Merci mais là c'est trop pour moi je ne sais pas faire.

Salut Moreno,

Salut Jean-Eric

Jean-Eric a opté pour la colonne [G], moi pour la [L]...

A toi de savoir et adapter le code au choix avec la colonne dont tu es CERTAIN à 100% que les cellules sont TOUJOURS remplies d'une donnée.

Dans cette version, un double-clic en [L3] commande la suppression des lignes vides sur base des cellules vides trouvées en [L5:L...].

Code à coller tel quel dans le module VBA de la feuille à traiter.

  • ALT-F11 pour entrer dans l'éditeur VBA ;
  • double-clic sur le nom de la feuille à gauche ;
  • coller le code à droite ;
  • enregistrer en XLSM.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
On Error Resume Next
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L3")) Is Nothing Then
    Cancel = True
    Range("L5:L" & Range("L" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End If
Application.ScreenUpdating = False
On Error GoTo 0
'
End Sub

A+

4sup.xlsm (18.90 Ko)

Merci pour l'aide. Du coup je vous explique mieux car tout ne fonctionne pas.

Dans la colonne I je met l'addition de la colonne G+H mais ca me met erreur lorsque ce n est pas un nombre et si j'utilise sierreur ca ne fait pas l'addition si il manque un nombre dans G ou H. J'ai aussi un soucis de couleur dans les regles. SI il n y a rien ca met automatiquement orange au lieu de blanc.

Ci-joint nouveau tableau. Merci pour votre aide.

1test-sup-lign.xlsm (19.91 Ko)

Avec ce fichier là pardon

5test-sup-lign.xlsm (23.69 Ko)
Rechercher des sujets similaires à "suppression lignes entierement vides"