Bonjour,
Besoin d'aide, merci.
Je souhaite supprimer automatiquement les valeur 1.2.4 dans une même colonne.
Et cela ne fonctionne pas.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = "1" Or Cells(i, 2).Value = "2" Or Cells(i, 2).Value = "4" Then
Cells(i, 2).EntireRow.delete Shift:=xlUp
End If
Next
End Sub
A+
Besoin d'aide, merci.
Je souhaite supprimer automatiquement les valeur 1.2.4 dans une même colonne.
Et cela ne fonctionne pas.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(i, 2).Value = "1" Or Cells(i, 2).Value = "2" Or Cells(i, 2).Value = "4" Then
Cells(i, 2).EntireRow.delete Shift:=xlUp
End If
Next
End Sub
A+