Bonsoir à tout le monde;
J'arrive pas à supprimer des lignes d'un tableau en appliquant un critère; voila 2 essais que j'ai effectué
Ceci ne marche pas ( pourtant je me suis basée sur une macro): j'ai de slignes avec un "2" en 4ieme colonne encore présent, je ne sais pas pourquoi
2ieme code:
Celui la fait beuger excel à chaque fois ...
Ce que je veux au final c'est pas de ligne vide dans le tableau, mais que les lignes supprimées soient remplacées en " remontant" les lignes suivantes ( d'ou le Selection.Delete Shift:=xlUp dans le premier code)
Merci de m'aider
J'arrive pas à supprimer des lignes d'un tableau en appliquant un critère; voila 2 essais que j'ai effectué
Code:
For s = 2 To 300
If Sheets("carac").Cells(s, 4) <> 2 Then
Rows(s & ":" & s).Select
Selection.Delete Shift:=xlUp
End If
Next s
2ieme code:
Code:
Sub suppr()
Dim i As Integer
For i = 2 To 30
If Sheets("carac").Cells(i, 4) <> 2 Then
Rows(i).Delete
i = i - 1
End If
Next
End Sub
Ce que je veux au final c'est pas de ligne vide dans le tableau, mais que les lignes supprimées soient remplacées en " remontant" les lignes suivantes ( d'ou le Selection.Delete Shift:=xlUp dans le premier code)
Merci de m'aider