Suppression des lignes a moitie vide
Résolu
amine69500
Messages postés
471
Statut
Membre
-
amine69500 Messages postés 471 Statut Membre -
amine69500 Messages postés 471 Statut Membre -
Bonjour,
une question:
j'ai tableau ( A1: R1000) avec des lignes a moitie vides
je souhaiterais savoir comment je peut faire pour supprimer les lignes a moitie vides
merci de votre aide
cordialement
une question:
j'ai tableau ( A1: R1000) avec des lignes a moitie vides
je souhaiterais savoir comment je peut faire pour supprimer les lignes a moitie vides
merci de votre aide
cordialement
A voir également:
- Suppression des lignes a moitie vide
- Forcer suppression fichier - Guide
- Moitié a4 - Guide
- Supprimer page word vide - Guide
- Caractere vide - Guide
- Partager des photos en ligne - Guide
4 réponses
Tu fais un tri, afin de rassembler les lignes à moitié vides ; tu les sélectionnes toutes ensemble ; tu les supprimes.
merci pour votre aide
mais si je mets une macro qui me permet de supprimer dans un 1 er temps les lignes dans le nombre de cellule vide est supérieure 16
ça serait quoi
cordialement
mais si je mets une macro qui me permet de supprimer dans un 1 er temps les lignes dans le nombre de cellule vide est supérieure 16
ça serait quoi
cordialement
la macro pour supprimer les lignes a moitie vides est :
(le nombre de cellule vide est a compléter en feuil3 F3)
Sub SupprLignesVides()
Dim DerniereLigne As Long
Dim Compteur As Long
DerniereLigne = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For Compteur = DerniereLigne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(Compteur)) = Sheets(3).Range("F3").Value _
Then Rows(Compteur).Delete
Next Compteur
End Sub
cordialement
(le nombre de cellule vide est a compléter en feuil3 F3)
Sub SupprLignesVides()
Dim DerniereLigne As Long
Dim Compteur As Long
DerniereLigne = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
For Compteur = DerniereLigne To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(Compteur)) = Sheets(3).Range("F3").Value _
Then Rows(Compteur).Delete
Next Compteur
End Sub
cordialement
