Sub SupprimeLignes()
Dim deb As Integer, fin As Integer, i As Integer
deb = Range("F1").End(xlDown).Row - 1
fin = Range("B" & Rows.Count).End(xlUp).Row
Rows("1" & ":" & deb).Delete
For i = Range("B" & fin).Row To 3 Step -1
If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete
Next i
End Sub
Sub a()
Dim i&, DL&
Application.ScreenUpdating = False
DL = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To DL
If Application.CountBlank(Cells(i, "A").Resize(, 6)) = 6 Then
Cells(i, "H") = "X"
End If
Next
Columns("H:H").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub
Sub b()
Dim DL&
Application.ScreenUpdating = False: DL = Cells(Rows.Count, "B").End(xlUp).Row
Range("H1:H" & DL).FormulaR1C1 = "=REPT(22,COUNTBLANK(RC[-7]:RC[-2])=6)*1"
Columns(8).SpecialCells(-4123, 1).EntireRow.Delete: Columns(8).Delete
End Sub
If (IsNumeric(Range("C" & i)) And Range("C" & i) <> "") = False Then Rows(i).Delete
Peux-tu prendre le temps de répondre à mes questions, stp ?Re à tous
MASS JIPE
Tu as essayé mes macros?
Et quel est ta réponse à mes questions concernant tes critères du suppression ?
Bonjour à tous
MASS JIPE
Quel est le critère exacte pour supprimer la ligne
Les cellule de A à F d'une ligne doivent être vides?
Les cellules B et C d'une ligne doivent être vides?
Sub SupprimeLignes()
Application.ScreenUpdating = False
Dim deb As Integer, fin As Long
deb = Range("K1").End(xlDown).Row - 1
fin = Range("C" & Rows.Count).End(xlUp).Row
Rows("1" & ":" & deb).Delete
Range("L2:L" & fin).FormulaR1C1 = "=IF(ISNUMBER(RC[-4]),"""",""X"")"
Range("L2:L" & fin) = Range("L2:L" & fin).Value
Columns("L:L").SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
End Sub
Sub mC()
Dim DL&
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
DL = Cells(Rows.Count, "C").End(xlUp).Row
With Range("M1:M" & DL)
.Value = "=IF(COUNTBLANK(RC[-12]:RC[-2])=11,""$$$"",0)"
.Value = .Value
End With
Columns(13).SpecialCells(2, 2).EntireRow.Delete
Columns(13).Delete
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub