Supprimer les lignes qui n'ont pas de valeurs en cellule A
Résolu
kgigant
Messages postés
202
Date d'inscription
Statut
Membre
Dernière intervention
-
kgigant Messages postés 202 Date d'inscription Statut Membre Dernière intervention -
kgigant Messages postés 202 Date d'inscription Statut Membre Dernière intervention -
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
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 rond bleu whatsapp - Guide
- Impossible de supprimer une page word - Guide
- Partage de photos en ligne - Guide
- Fichier impossible à supprimer - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
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.
bizarre que ça ne fonctionne pas, le code est bon, il doit supprimer les lignes qui n'ont pas de valeur en A...
Cordialement.
Bonjour,
tout simplement
attention! "" résultat d'une formule ne veut pas dire aucune valeur !....
aucune valeur=vide
Michel
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