Code suppression de ligne excel

Question

Bonjour,

J'aimerais savoir s'il est possible de supprimer automatiquement les lignes d'un tableau dont les valeurs situé en colonne D (commence en D3) sont vides ou égales a 11

Pour celles > 11 j'ai trouvé ce code mais ça ne marche pas

Dim I     As Long
Dim Plage As Range
Set Plage = Range("D3:D" & Range("D3").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
  If Plage.Cells(I).Value=”“ Then
    Plage.Cells(I).EntireRow.Delete
  End If
Next

Je suis novice excel alors soyez indulgent :)

Merci d'avance pour votre aide

Bidouilleu_R · Answer

Salut,

essaye ce code c'est plus clair pour toi?



Sub EffaceLigne()


Dim I As Long
Dim NbLigne As Long
NbLigne = Range("D3").CurrentRegion.Rows.Count + 2
' le nombre de ligne

For I = 3 To NbLigne   ' la plage à parcourir

        If Cells(I, 4) = "" Or Cells(I, 4) = 11 Then
        'si la cellule est ="" (vide) ou = à 11
            Cells(I, 4).EntireRow.Delete
            I = I - 1
        End If

Next


End Sub

melanie1324 · Answer

Bonjour,

pour quelle colonne, tu as toujours des données?
remplace la valeur de j dans laquelle tu as toujours des données.
Dans le code fourni, je considère que tu as toujours des données dans la colonne A

sub suppression

j=1
i=4

do while cells(i,j) <> ""
a=cells(i,4)
if a= "" then
rows(i).Delete Shift:=xlUp
i=i-1
else
if a+1-1 = 11 then
rows(i).Delete Shift:=xlUp
i=i-1
end if
end if
i=i+1
loop
end sub

Code suppression de ligne excel

2 réponses

Discussions similaires

Newsletters