Code suppression de ligne excel

tofing Messages postés 22 Statut Membre -  
Bidouilleu_R Messages postés 1209 Statut Membre -
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
A voir également:

2 réponses

Réponse 1 / 2
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
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
0
Réponse 2 / 2
melanie1324
 
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
0
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
bonjour mélanie,
le monsieur il a dit :" 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 "

ensuite il faut qu'il apprenne.... : )

quand tu postes un code tu voudrais clicker sur l'icone <..> pour me faire plaisir
cela rend l'identation du code plus lisible.

merci.
A+
R
0