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.
1 réponse
-
Bonjour Phatted,
Je comprends pas trop, tu dis que dans ton exemple "les lignes 2, 3, 4, 5 et 8 doivent être supprimées"
Es-tu bien sûr de ces chiffres? Car j'arrive pas à comprendre la logique de suppression...
Jc-
Bonjour Titeuf,
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. -
-
-
Ok d'accord... désolé tu as dû me prendre pour imbécile mais je n'arrivais pas à comprendre ta demande mais cette fois je pense que c'est bon! Voici un code qui devrait fonctionner :
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 Sub
Colle ce code dans l'interface VBA de la feuille en question et ça devrait faire l'affaire
Jc -
-
