Sub MacroAuPifTestéeDansLeVide()
Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1
[F2].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)"
With Columns(6)
.SpecialCells(-4123, 2).EntireRow.Delete: .Clear
End With
End Sub
Excuse moi mais mon fichier étant tout bête, je n'ai même pas pense à le joindre. Voilà chose faite et merci d'avanceBonjour roni
Tu pourrais de donner la peine de joindre un fichier.
Edit: bonjour Jean Marie
Sub MacroAuPifTestéeDansLeVideDésormaisRempli()
Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1
[F3].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)"
With Columns(6)
.SpecialCells(-4123, 2).EntireRow.Delete: .ClearContents
End With
End Sub
Bonjour,
Je voudrai supprimer les lignes d'un tableau déjà trié par la colonne E avec comme condition 9 en colonne E et garder les autres lignes .
Merci d'avance
Re,
@roni
Apparemment tu as zappé le message#4, non ?
Car j'y avais posté une macro (qu'il suffisait de modifier un chouia) et qui fait ce que tu souhaites.
VB:Sub MacroAuPifTestéeDansLeVideDésormaisRempli() Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1 [F3].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)" With Columns(6) .SpecialCells(-4123, 2).EntireRow.Delete: .ClearContents End With End Sub
Re,
@roni
Apparemment tu as zappé le message#4, non ?
Car j'y avais posté une macro (qu'il suffisait de modifier un chouia) et qui fait ce que tu souhaites.
VB:Sub MacroAuPifTestéeDansLeVideDésormaisRempli() Dim Lig&: Lig = Cells(Rows.Count, 5).End(xlUp).Row - 1 [F3].Resize(Lig) = "=IF(RC[-1]=9,""Staple1600"",0)" With Columns(6) .SpecialCells(-4123, 2).EntireRow.Delete: .ClearContents End With End Sub
Sub delete_9()
On Error Resume Next
With Feuil1.Columns(5)
.Range(.Find(9), .Find(9, after:=.Cells(1, 1), searchdirection:=xlPrevious)).EntireRow.delete
End With
End Sub
Sub delete_9()
Dim deb As Range, fin As Range
With Feuil1.Columns(5)
Set deb = .Find(9, after:=.Cells(Rows.Count, 1), searchdirection:=xlNext)
Set fin = .Find(9, after:=.Cells(1, 1), searchdirection:=xlPrevious)
If Not deb Is Nothing Then .Range(deb, fin).EntireRow.delete
End With
End Sub
En fait le after devient l'équivalent d'un "before" quand searchdirection:=xlPrevious. Au début ça m'a aussi un peu chagriné.(par contre le xlPrevious me pertube)
Sub Supprimer()
If Application.CountIf([E:E], 9) Then Rows(Application.Match(9, [E:E], 0)).Resize(Application.CountIf([E:E], 9)).Delete
End Sub