Suppression des lignes a moitie vide

Résolu/Fermé
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 29 juil. 2011 à 23:16
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 - 31 juil. 2011 à 14:24
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

4 réponses

Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
29 juil. 2011 à 23:45
Tu fais un tri, afin de rassembler les lignes à moitié vides ; tu les sélectionnes toutes ensemble ; tu les supprimes.
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
Modifié par amine69500 le 30/07/2011 à 00:04
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
0
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 17 096
30 juil. 2011 à 00:41
Désolé, mais ce n'était pas du tout ta question !

Et moi, je n'y connais rien en macros ...
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
30 juil. 2011 à 00:54
merci
0
amine69500 Messages postés 418 Date d'inscription lundi 8 juin 2009 Statut Membre Dernière intervention 25 août 2013 12
31 juil. 2011 à 14:24
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
0