Supprimer les lignes qui n'ont pas de valeurs en cellule A

Résolu/Fermé

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 13 févr. 2013 à 10:51
kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 15 févr. 2013 à 11:18

Bonjour,

Je sais que ce sujet a déjà été traité, mais la réponse qui a été donnée ne me convient pas. J'ai mit le lien ci dessus :

https://forums.commentcamarche.net/forum/affich-2338854-excel-macro-effacer-ligne-ayant-a-vide

Les codes qui sont proposé dans cette discussion n'ont pas l'air de marcher.
Rappel je cherche un code qui me supprime toutes les lignes de mon tableau qui n'ont pas de valeur en A.

code testé :

Sub efface_A_vide()
Dim l As long
For l = Cells(65356, 1).End(xlUp).Row To 1 Step -1
If Cells(l, 1).Value = "" Then Cells(l, 1).EntireRow.Delete
Next l
End Sub

A voir également:

Supprimer les lignes qui n'ont pas de valeurs en cellule A
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Aller à la ligne dans une cellule excel - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide

2 réponses

Réponse 1 / 2

chossette9 Messages postés 4239 Date d'inscription lundi 20 avril 2009 Statut Contributeur Dernière intervention 12 septembre 2014 1 308
13 févr. 2013 à 11:03

Bonjour,

bizarre que ça ne fonctionne pas, le code est bon, il doit supprimer les lignes qui n'ont pas de valeur en A...

Cordialement.

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 302
Modifié par michel_m le 13/02/2013 à 11:14

Bonjour,

tout simplement

Sub Supprimer_si_vide() 
    Dim Ligne As Long 
    On Error Resume Next 
    Ligne = Columns("A").Find("*", , , , , xlPrevious).Row 
    Range("A2:A" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End Sub

attention! "" résultat d'une formule ne veut pas dire aucune valeur !....
aucune valeur=vide
Michel

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
15 févr. 2013 à 11:18

l'erreur viens de là ! mais cellule sont vide mais il y a une formule. merci

Discussions similaires

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters