XL 2019 Supprimer la lignes quand toutes les cellules sont vides

Raimu · 6 Décembre 2021

Bonjour,

Je voudrais supprimer toutes les lignes quand toutes les cellules à droites sont vides, et ne conserver que les lignes où les cellules ne sont pas vides

Nom	a	b	c
Toto	1
tata		bonjour
tutu
titi	ok		cc

Dans l'exemple ci-dessus la ligne tutu doit être supprimé (cellule a,b et c vides)

Merci pour celui qui me donnera la solution
Cordialement à tous
Jean-Luc

Compte Supprimé 979 · 6 Décembre 2021

Bonjour,

VB:

  If Application.CountA(Rows(Selection.Row)) <= 1 Then
    Range("A" & Selection.Row).EntireRow.Delete
  End If

A+

Raimu · 6 Décembre 2021

BrunoM45 à dit:
If Application.CountA(Rows(Selection.Row)) <= 1 Then Range("A" & Selection.Row).EntireRow.Delete End If

Merci Bruno, mais je ne sais pas comment utiliser Visual Basic, pouvez-vous me donner un lien sur un tuto, par avance merci.
Bonne soirée

XL 2019 Supprimer la lignes quand toutes les cellules sont vides

Raimu

XLDnaute Nouveau

Compte Supprimé 979

Guest

Raimu

XLDnaute Nouveau

Discussions similaires