[RESOLU] Masque et demasque avec VBA (Pbléme de mise à jour)

[greg63]

Bonjour à tous

J'ai un petit probléme. Je suis avec mon fichier, je souhaite afficher et masquer les lignes non remplis

Je complète dans une première feuille les cases dans lesquelles je mets un O.
Lorsque j'active la macro dans ma seconde feuille aucun soucis

Par contre si je viens modifier ma première feuille (nouvelle case activée par un O) , en appuyant 2 fois sur le bouton mes lignes nouvellement activées restent masquées

Si je dois modifier en cours
Pour que ça marche je dois :

• Mettre mes O,
• activer la macro,
• Réactiver macro
• Faire mes modification
• Activer la macro

Sub MasqueDemasqueADR()
'Macro deux en un :
'on la lance une première fois; les lignes sont masquées
'on la lance une seconde fois: les lignes sont réaffichées
Application.ScreenUpdating = False
With Range("W16:W550")
.ClearContents
.FormulaR1C1 = "=IF(COUNTBLANK(RC[-1])=1,""$"","""")"
.Value = .Value
.SpecialCells(2, 2).Rows.Hidden = _
Not .SpecialCells(2, 2).Rows.Hidden
.Clear
End With
Application.ScreenUpdating = True
End Sub

La finalité, je veux qu'en appuyant 2 fois toutes mes lignes sélectionnées en premieres feuilles apparaissent sans avoir à utiliser le système décrit dans l'ordre au dessus.

Merci pour votre aide

 

[greg63]

Ou est il possible d'affecter une macro quand je clic ça me filtre mes "O" en colonne V

Si je réactive l'ensemble s'affiche vide + ceux avec un O