Boucle qui masque ligne sous conditions

[jpmasclet]

Je voudrais savoir si quelqu'un saurait me dire comment faire une boucle qui va checker si dans la colonne B, il y écrit "OUI", si tel est le cas caché la ligne.

La zone est de la ligne 19 à 550.

Auriez vous une idée car je seche.


Merci par avance !

 

[pierrejean]

Re : Boucle qui masque ligne sous conditions

bonjour jpmasclet

Sub cache()
Application.ScreenUpdating = False
For n = 550 To 19 Step -1
 If ActiveSheet.Range("B" & n) = "OUI" Then
   Rows(n).Hidden = True
 Else
   Rows(n).Hidden = False
 End If
Next n
Application.ScreenUpdating = True
End Sub

 

[Hervé]

Re : Boucle qui masque ligne sous conditions

bonjour jpmasclet, salut pierrejean 🙂

Une autre syntaxe possible pour eviter le if then

Sub cache()
Dim n As Integer
 
Application.ScreenUpdating = False

For n = 550 To 19 Step -1
    Rows(n).Hidden = ActiveSheet.Range("B" & n) = "OUI"
Next n

Application.ScreenUpdating = True
End Sub

bye

 

[jpmasclet]

Re : Boucle qui masque ligne sous conditions

Super PierreJean, vraiment trop fort !!!!
Merci beaucoup !

Tua dois avoir un catalogue de ressource VBA qui doit etre gigantesque !!!

 

[did85]

Re : Boucle qui masque ligne sous conditions

Bonjour,

Je t'avais préparé aussi un bout de code avec 2 boutons pour afficher et masquer les lignes contenant OUI écrit de différentes façons.

Cordialement