Supprimer des lignes si une cellule ne contient rien
Phatted
Messages postés
64
Statut
Membre
-
Phatted Messages postés 64 Statut Membre -
Phatted Messages postés 64 Statut Membre -
Bonjour,
J'ai mis une image pour illustrer ma question
Dans la colonne A j'ai un nombre parfois plusieurs fois le même
Dans la colonne B j'ai soit une suite de nombre soit rien
Mon but est de supprimer la ligne entière si au moins une des cellules en colonne B se trouvant en face du même numéro (en colonne A) est vide.
Dans mon exemple les lignes 2, 3, 4, 5 et 8 doivent être supprimées
Merci de votre aide.
J'ai mis une image pour illustrer ma question
Dans la colonne A j'ai un nombre parfois plusieurs fois le même
Dans la colonne B j'ai soit une suite de nombre soit rien
Mon but est de supprimer la ligne entière si au moins une des cellules en colonne B se trouvant en face du même numéro (en colonne A) est vide.
Dans mon exemple les lignes 2, 3, 4, 5 et 8 doivent être supprimées
Merci de votre aide.
A voir également:
- Supprimer des lignes si une cellule ne contient rien
- Supprimer rond bleu whatsapp - Guide
- Supprimer une page word - Guide
- Excel cellule couleur si condition texte - Guide
- Écrire plusieurs lignes dans une cellule excel mac - Guide
- Comment supprimer une application préinstallée sur android - Guide
Dans mon exemple en face du nombre 1112 dans la colonne B la ligne 3 et 5 sont vides donc toutes les lignes commençant par 1112 doivent être supprimées.
Autrement dit pour qu'une ligne ne soit pas supprimée il faut que toutes les occurrences identiques en colonne A se retrouve en face d'une cellule non vide en colonne B.
Sub suppr() Dim i, j, nbr As Long For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("B" & i) = "" Then nbr = Range("A" & i).Value For j = Range("A66536").End(xlUp).Row To 1 Step -1 If Range("A" & j).Value = nbr Then Rows(j).EntireRow.Delete End If Next j End If Next i End SubColle ce code dans l'interface VBA de la feuille en question et ça devrait faire l'affaire
Jc