XL 2016 VBA suppression cellules selon condition

[Ramy]

Bonjour,

Je souhaiterai effectuer ceci:

pour les colonnes allant de A à C, supprimer le contenu des cellules A à C si la cellule A = "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides
De même, pour les colonnes allant de D à E, supprimer le contenu des cellules D à E si la cellule D= "non" Et décaler le contenu des cellules vers le haut pour pas avoir de cellules vides

Le code que j'ai fait en VBA me supprimer toute la ligne entière.

Sub MAcro()



Dim nblignes As Long

Sheets("Feuill1").Select
nblignes = Sheets("Feuill1").Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To nblignes
If Cells(i, 1) = "NON" Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If

Next

End Sub


Pourriez vous me dire comment je dois modifier ce code SVP?

Merci beaucoup par avance,

 

[laurent950]

Bonsoir Ramy

Sub MAcro()
Dim nblignes As Long
    Sheets("Feuill1").Select
    nblignes = Sheets("Feuill1").Cells(Rows.Count, "B").End(xlUp).Row

For i = 2 To nblignes
    If Cells(i, 1) = "NON" Then
        Range(Cells(i, 1), Cells(i, 3)).Delete Shift:=xlUp
    End If
    If Cells(i, 4) = "NON" Then
        Range(Cells(i, 4), Cells(i, 5)).Delete Shift:=xlUp
    End If
Next i
End Sub

 

[Ramy]

Merci beaucoup !
toutes mes excuses mais je viens de faire une erreur dans mon raisonnement. Je m’explique
En fait les lignes dont il y a un « 0 » sont susceptible d’évoluer en fonction de la mise à jour du fichier ... ce qui veut dire que les lignes doivent pas etre supprimer en fait et je viens de m’apercevoir de mon erreur

en fait ce qu’il me faudrait, c’est adapter mon code mais à la place de supprimer la ligne il faudrait juste me masquer la ligne

il faudrait du coup une autre macro qui démasque la ligne. Ça serait juste ça

quelqu’un saurait svp comment réadapter ma macro avec ceci svp ?

merciii beaucoup