Supprimer une cellule avec condition
Bonjour le Forum ,
j'ai rencontré un problème en vba excel, je veut supprimer une cellule qui aboutit à une condition
voici mon code
Sub range1()
Dim ActiveRange As Range
'use autofilter feature
ThisWorkbook.Sheets(1).Range("A1").AutoFilter
'ThisWorkbook.Sheets(2).range("A8").AutoFilter 2, "Setup"
Set ActiveRange = ThisWorkbook.Sheets(1).Range("F2:F5")
Set OS = Sheets(1)
For I = 1 To 4
ActiveRange.Offset(0, I - 1).Select 'decalage à droite
Selection.SpecialCells(xlCellTypeVisible).Select
DL = Sheets(1).Range("A" & Application.Rows.Count).End(xlUp).Row
If Range("select").Offset(0, I).Value = "Negatif" Then
For J = DL To 2 Step -1
If (ActiveCell.Offset(J, I).Value < 0) Then
ActiveCell.Offset(J, I).Clear
ActiveCell.Offset(J, I).Interior.Color = RGB(200, 0, 100)
End If
Next
End If
Next
'ThisWorkbook.Sheets(1).Range("A1").AutoFilter
End Sub
Merci d'avance pour l'aide !
Sub range1()
Dim ActiveRange As Range
Dim i, k As Integer
'use autofilter feature
ThisWorkbook.Sheets(1).Range("A1").AutoFilter
'ThisWorkbook.Sheets(2).range("A8").AutoFilter 2, "Setup"
Set ActiveRange = ThisWorkbook.Sheets(1).Range("F2:F5")
Set OS = Sheets(1)
For i = 1 To 4
ActiveRange.Offset(0, i - 1).Select 'decalage à droite
Selection.SpecialCells(xlCellTypeVisible).Select
DL = Sheets(1).Range("A" & Application.Rows.Count).End(xlUp).Row
If Range("select").Offset(0, i).Value = "Negatif" Then
For J = DL To 2 Step -1
Cells(J, ).Value = k
Cells(J, i + 5).Select
If k < 0 Then
ActiveCell.Clear
ActiveCell.Interior.Color = RGB(200, 0, 100)
End If
Next
End If
Next
'ThisWorkbook.Sheets(1).Range("A1").AutoFilter
End Sub