Supprimer un bout de ligne

[u_u stick]

Bonjour à tous.

Voilà j'ai un petit problème (sinon je serais pas là 🙄).

J'ai un tableau qui va de [I8:M100], dans les cellules de la colonne I, il y à écrit "OUI" ou "NON" selon la ligne.

J'ai un p'ti bout de code qui me permet de supprimer une ligne si la colonne I contient "NON" :

Dim I     As Long
Dim Plage As Range
Set Plage = Range("I8:I" & Range("I8").End(xlDown).Row)
For I = Plage.Cells.Count To 1 Step -1
  If Plage.Cells(I).Text = "NON" Then
    Plage.Cells(I).EntireRow.Delete
  End If
Next

Mon problème est que celà supprime la ligne entière et je voudrais juste que ça me supprime la plage allant de I à M !

Le problème viens du "EntireRow" je pense mais par quoi le remplacer ? j'ai essayé de mettre ma plage de cellule à la place mais ça me colle une erreure.

Merci de bien vouloir m'apporter votre aide 😉

 

[Raja]

Re : Supprimer un bout de ligne

Bonjour,

Le code suivant à tester :

Sub test()
  Dim Cel As Range
  For Each Cel In Range("I8:I" & Range("I8").End(xlDown).Row)
    If Cel.Text = "NON" Then
      Range(Cells(Cel.Row, 9), Cells(Cel.Row, 13)).Delete Shift:=xlUp
    End If
  Next
End Sub

 

[u_u stick]

Re : Supprimer un bout de ligne

Ca marche mais c'est étrange 😕.

Ca m'en supprime que 2 à la fois... faut donc que je relance la macro plusieurs fois pour que ça supprime tout.

 

[Raja]

Re : Supprimer un bout de ligne

Re,

Ce n'est pas normal. Il y a peut être un problème de cellules vides dans la colonne de recherche I. Envoi-nous le fichier, on jetera un coup d'oeil.

 

[u_u stick]

Re : Supprimer un bout de ligne

C'est étrange en fait, maintenant des fois ça m'en supprime pleins ensuite peu, des fois rien, des fois un seul... 😱

Je t'envoie le fichier dès que je trouve un moyen de l'uploader (chez moi la fonction de fichier joint du forum marche pas).

 

[mromain]

Re : Supprimer un bout de ligne

bonjour u_u_stick, Raja

tu peux déposer ton fichier sur CiJoint au pire.

a+

 

[u_u stick]

Re : Supprimer un bout de ligne

bonjour u_u_stick, Raje

tu peux déposer ton fichier sur CiJoint au pire.

a+

Merci

Voilà