Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub suppression()

    Dim lngLimite As Long
    Dim rngCellule As Range, rngPlage As Range

    lngLimite = xlFlReponse.Range("A1:A65536").End(xlDown).Row
    Set rngPlage = xlFlReponse.Range("A1:A" & lngLimite)

    For Each rngCellule In rngPlage
    
    If rngCellule.Value = "Néant" Then
         rngCellule.EntireRow.Select
         Selection.Delete Shift:=xlUp
         rngCellule = rngCellule.Address - 1
        
    End If
    Next

End Sub

bonjour,

j'aimerai supprimer les lignes d'une feuille dans lesquelles "Néant" se trouve dans la colonne A

j'ai donc fait le programme ci-dessus, le souci est avec "rngCellule", car quand plusieurs "Néant" se succèdent, mon programme ne les détecte pas, du au faite que je supprime la ligne en entier, et que je décalé le reste du classeur d'une ligne.

j'ai pensé, qu'il fallait avant la fin du "if", décrémenter "rngCellule", mais je ne sais pas comment m'y prendre

faut-il utiliser "set" ?


merci pas avance pour votre aide !


coordialement