Discussion :

[eniotnaantoine]

Bonjour,
je cherche a supprimer une ligne si une cellule d'une certaine colonne (ici G) est vide.
En fait je fait je dois enregistrer des commandes d'une entreprise pouvant aller jusqu'à 5 produits, or si je n'ai que 4 produit la ligne du dernier produit correspondant à un 5éme produit reste entièrement vide. Merci d'avance pour votre aide

[unparia]

Bonjour
Un petit tour (sans doute) dans ton aide VBA à ces trois rubriques :
Range.SpecialCells, méthode
Range.EntireRow, propriété
Delete, méthode
Ces lectures devraient te permettre de mettre en oeuvre une solution rapide et efficace.

[EBRAG]

Bonjour a file (avec un seul "l")

Comme le dit fort justement Unparia, un petit travail personnel fait du bien de temps en temps.

Maintenant, par solidarité avec les fainéants, je propose la solution suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub SupprimerLignes()
Dim i As Long
For i = Range("A1").SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
  If Range("G" & i) = "" Then
    Range("G" & i).EntireRow.Delete
  End If
Next
End Sub

Allez ! sur ce, bonne journée dans la bonne humeur !