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

  • Initiateur de la discussion Initiateur de la discussion greg63
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

greg63

XLDnaute Junior
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
VB:
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
825
Retour