Effacer ligne si cellule = 0

[Ken Hutchinson]

Re-hello,

Vous allez voir je vais plus me passer de vous.

Je voudrais effacer des lignes si une donnée de cette colonne = 0

Explications dans le fichier...

 

[bertgrav]

Re : Effacer ligne si cellule = 0

bonjour,

pour la colonne b par exemple tu mets ce code

Sub efface_ligne()

For x = Range("b65536").End(xlUp).Row To 1 Step -1
If Range("b" & x).Value = 0 Then
Rows(x).Delete
End If
Next

End Sub

amicalement

chantal

 

[Staple1600]

Re : Effacer ligne si cellule = 0

Bonsoir

Une petite variante

Sub supprimevideCOLONNEB()
[COLOR="seagreen"]'inspiré par Tirex28[/COLOR]
Application.ScreenUpdating = False
With Range("B1", Range("B65536").End(xlUp)) 
[COLOR="SeaGreen"]'pour changer de colonne
'remplacer B par la lettre de la colonne choisie[/COLOR]
.AutoFilter field:=1, Criteria1:="=0"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

 

[Ken Hutchinson]

Re : Effacer ligne si cellule = 0

Salut

Bon je me suis mal expliqué. Ce n'est pas le résultat escompté. je me ré-explique dans le fichier...

 

[Staple1600]

Re : Effacer ligne si cellule = 0

Bonjour le forum




A tester

Sub Macro2()

Dim Rng As Range
Dim cell As Range
Set Rng = Range("A20", Range("IV20").End(xlToLeft))' a adapte à ton besoin
For Each cell In Rng
If cell.Value = 0 Then
    Range(cell, cell.End(xlUp)).Delete Shift:=xlToLeft
    End If
Next cell
End Sub

 

[Ken Hutchinson]

Re : Effacer ligne si cellule = 0

hum... ça marche pas comme je voudrais.

en fait il faudrait lui dire (à la macro) que quand une cellule du rang 20 est égale à 0 alors les lignes supérieures et cette même ligne 20 sont effacées...

et ça décale le reste vers la gauche...

Merci en tout cas de votre aide...

 

[Ken Hutchinson]

Re : Effacer ligne si cellule = 0

Bonjour le forum,

Comment çava en ce lundi ? ben moi pas super : je galère toujours sur ma macro...

Vous n'auriez pas une petite aide à me donner svp ?


Merci de votre aide en tout cas...

 

[Staple1600]

Re : Effacer ligne si cellule = 0

Bonjour


edit: si un puriste du code VBA pouvait , svp, me dire comment
faire une syntaxe moins tarabiscotée

Merci

Sub Macrotest()
Dim Rng As Range
Dim Rng2 As Range
Dim cell As Range
Dim Ncol As Integer
Set Rng = Range("A20", Range("IV20").End(xlToLeft))
Ncol = Rng.Columns.Count
Set Rng2 = Range("A20").CurrentRegion.Resize(19, Ncol)
For Each cell In Rng
If cell.Value = 0 Then Rng2.Cells.EntireRow.Delete
Next cell
Verif = MsgBox("Voulez-vous vraiment supprimer cette ligne?")
If Verif = vbOK Then [A1].EntireRow.Delete
End Sub

Un début de piste

A tester (pas sur le fichier original)
Avec données en A1:A19 (<>0) et A20=0

[COLOR=silver]Sub Macro2()[/COLOR]
[COLOR=silver]Application.ScreenUpdating = False[/COLOR]
[COLOR=silver]With Range("A1")[/COLOR]
[COLOR=silver]   If Not AutoFilterMode Then[/COLOR]
[COLOR=silver]       .AutoFilter 1, "<>0", Operator:=xlAnd[/COLOR]
[COLOR=silver]       .SpecialCells(xlCellTypeVisible).CurrentRegion.EntireRow.Delete[/COLOR]
[COLOR=silver]   End If[/COLOR]
[COLOR=silver]End With[/COLOR]
[COLOR=silver]Rows("1:1").Delete Shift:=xlUp[/COLOR]
[COLOR=silver]End Sub[/COLOR]