Eliminer lignes si cellule vide

[David]

Bonjour,

Je débute sous excel alors je viens chercher un peu d'aide.

J'ai un tableau. Colonnes : A - B - C - D

Dans ma colonne C, j'ai des cellules vides. Je voudrais que si 1 cellule est vide, la ligne soit effacé après un clic sur un bouton.
(En comment à partir de la ligne 11)
Je sais faire un bouton ;-) mais pas la macro 🙁.

Si quelqu'un peut m'aider. Merci

 

[Robert]

Salut David, Salur le forum

le code suivant devrais te convenir car il efface à partir de la ligne 11 toutes les lignes dont la colonne C est vide.

Attention c'est sans retour possible! Fais une copie de ton fichier avant de lancer la macro au cas où elle ne correspondrait pas à ce que tu veux.

le code :

Public Sub effac11()
Dim plage As String
plage = Range("A11:A" & Range("A65536").End(xlUp).Row).Address
For Each cel In Range(plage).Offset(0, 2)
If cel.Value = "" Then
cel.EntireRow.Delete
End If
Next cel
End Sub

À plus,

Robert

 

[Minick]

Salut,

Ya ca aussi

Sub Nettoyer()
Sheets("Feuil1").Range("c11:c65536").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

@+

Minick

 

[LaurentTBT]

Bonsoir à tous.

J'interviens juste pour signaler à Robert que sa macro pose problème lorsque plusieurs cellules vides se suivent.
Ce problème nous a justement donn pas mal de fil à retordre à Moa et à moi, cf ce fil:
Lien supprimé

Par contre Minick me donne de nouvelles idées pour ce même fil!

Bonne soirée.

 

[@+Thierry]

Bonsoir Vite fait LaurentTBT, Minick, Robert, David, Le Forum

La solution proposée ici par Minick est déjà référencée pour la Database XLD Lien supprimé

Et le problème rencontré pour Laurent et Moa doit être le même que celui de @Christophe@ à l'époque...

Comme quoi tout n'est qu'éternel recommencement !!! 🙂

Bonne Soirée
@+Thierry

 

[alkin]

sa pourras peut etre t aider et c simple !!!


Sub Macro1()
For i = 1 To 7608
line3:
If Cells(i, 5) = "n" Then
Rows(i).Delete
If Cells(i, 5) = "n" Then
GoTo line3
End If
End If
Next i
End Sub

 

[alkin]

a la place de n tu met blank