Discussion :

[Joris.F]

Bonjour,

Je souhaite faire des suppressions.

Si une cellule dans une colonne sélectionnée (de B6 à XLDown) contient les caractères "05" alors je veux supprimer les lignes de ces cellules. J'ai écris ça pour le moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Suppression_Alarmes()
 
Dim i As Integer
 
 
For i = Range("B6").End(xlDown) To 1 Step -1
 
If .Value Like "*05" Then .EntireRow.Delete
Next i
 
End Sub

Merci pour votre aide,

joris