Supprimer les lignes contenant moins de 7 valeurs Résolu/Fermé

Question

Bonjour,

J'ai sur Excel un tableau "à trous" entre la 20e et la 30e colonne (environ 2000 lignes), dont je voudrais supprimer les lignes si elles contiennent moins de 7 valeurs, tout en laissant le reste de ma feuille intouché. 
J'ai trouvé sur internet des programmes permettant de supprimer une cellule ou une ligne entiere si elle était vide, mais aucun avec ce type de condition, donc novice que je suis, j'aurais besoin d'un coup de main.

Je mets en pièce jointe mon fichier entier. Il comprend déjà un macro qui me permet d'aligner mes données comme souhaité, et je souhaiterais le compléter. 
https://cjoint.com/c/HFflcsLTPat

Merci d'avance.

danielc0 · Answer

Bonjour,

Est-ce que tu es sûr de tes numéros de colonnes ?

Cordialement.

Daniel

titeufdu89 · Answer

Bonjour,

Colle cette macro dans l'exporateur de projet visual basic dans la feuille concernée et exécute la.
Tu devrais obtenir le résultat escompté.

Sub supprimer_ligne()
Dim l, c, fin As Integer
Dim cpte As Integer

'détermine la fin du tableau en fonction de la colonne A
fin = Range("A66536").End(xlUp).Row 'peut être remplacé par un chiffre comme 2000

'pour chaque du tableau
For l = 1 To fin
cpte = 0

    'Pour chaque cellule entre les colonnes 20 et 30
    For c = 20 To 30 Step 1
        'si cellule non vide, incrémente les compteur
        If Cells(l, c) <> "" Or Cells(l, c) <> 0 Then
        cpte = cpte + 1
        End If
    Next c
    
    'si le compteur inférieur à 7
    If cpte < 7 Then
    'supprime la ligne
    Rows(l).Delete
    End If
 Next l

End Sub

Bonne journée

Supprimer les lignes contenant moins de 7 valeurs

2 réponses

Discussions similaires