Eliminer lignes si cellule vide

D

David

Guest
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
 
R

Robert

Guest
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
 
L

LaurentTBT

Guest
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

Guest
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
 

Discussions similaires

Réponses
4
Affichages
186