Discussion :

[PSAIMOND]

Bonjour,

J'ai un code VBA que je souhaitais utiliser pour supprimer une ou plusieurs lignes d'un tableau comportant une valeur spécifique (voir tableau que je joins) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub sup_ligne_tableau()
Dim cellule As Object
Sheets("Feuil4").Select
Range("a2").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cellule In Selection
If cellule = "A" Then
cellule.EntireRow.Delete 'detruit toute les cellules de la ligne
End If
Next
End Sub

Mon souci est le suivant : Cette macro fonctionne bien tant que la valeur "A" n'est pas présente plusieurs fois à la fin de ma liste, auquel cas, elle n'est pas supprimée. J'espère que quelqu'un saura m'expliquer pourquoi et me donner une solution qui évite ce problème. D'avance merci. Cordialement.