Discussion :

[shinji7800]

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

[Krovax]

l'astuce la plus simple est de parcourir le tableau a l'envers. Après j'ai jamais essayé de regardé le sens de parcour avec la commande for each
Désolé

[aalex_38]

Bonjour, la commande Find peut aussi être utile

[Invité]

Bonjour,

Pourquoi ne pas utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub suppression()
 Dim lngLimite&, i&
 lngLimite = Range("A65536").End(xlDown).Row
 
 For i = lngLimite To 1 Step -1
 
 If Cells(i, 1) = "Néant" Then
 Cells(i, 1).EntireRow.Select
 Selection.Delete Shift:=xlUp
 
 End If
 Next
End Sub

[shinji7800]

merci a vous tous pour votre participation,

effectivement Jacques_jean ta solution est beaucoup plus simple et fonctionnelle qui plus est


cependant pour ma culture quelqu'un pourrai répondre à ma question initiale ?


merci encore !