Discussion :

[jauffray.delteil]

bonjour

j'ai un tableau avec 40 colonnes et "x" lignes
pour réduire ce tableau au strict nécessaire, je voudrais supprimer les lignes dont les colonnes 8 à 40 sont vides et arréter la macro quand la dernière ligne remplie est atteinte

exemple :
ligne 1 : colonnes 8 à 10 non vides --> ne rien faire et passer à la ligne suivante
ligne 2 : colonnes de 8 à 40 vides --> supprimer la ligne et revérifier la même
re ligne 2 : colonnes 11 à 15 non vides --> ne rien faire et passer à la ligne suivante
ligne 3 : etc...
ligne "x" : doit etre la dernière non vide

merci d'avance pour votre aide

[gFZT82]

Bonjour,

Tu peux essayer avec ce code.
Il supprime toutes les lignes de la feuille "Feuil1" qui satisfont la condition.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub SupprimeLignes()
Dim Ws As Worksheet
Dim MaPlage As Range
Dim DerLig As Long, x As Long
    Set Ws = Worksheets("Feuil1") 'A adapter
    DerLig = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row
    For x = DerLig To 1 Step -1
        Set MaPlage = Ws.Range(Cells(x, 8), Cells(x, 40))
        If Application.CountA(MaPlage) = 0 Then Ws.Rows(x).Delete
    Next x
    Set MaPlage = Nothing
    Set Ws = Nothing
End Sub

Cordialement.

[jauffray.delteil]

bonjour et merci, mais ca supprime tout....

en fait, ca marche trés bien, toutes mes cellules étaient vides