Macro masquer/démasquer colonne

[good57]

Bonjour,

Je cherche à créer une macro qui me permettrait de masquer/démasquer toutes les lignes pour lesquelles la colonne B est vide, et ce, uniquement sur une plage donnée (ici : lignes 8 à 39)

Merci 🙂

 

[phlaurent55]

Re : Macro masquer/démasquer colonne

Bonjour good,

.......... sans ouvrir le fichier joint à la question
avec ce code unique qui permet de masquer et démasquer

Sub Bouton1_Clic()
Application.ScreenUpdating = False
For i = 8 To 39
If Cells(i, 2) = "" Then Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden
Next i
Application.ScreenUpdating = True
End Sub

à+
Philippe

 

[good57]

Re : Macro masquer/démasquer colonne

MERCI Philippe !!

 

[herve62]

Re : Macro masquer/démasquer colonne

C'est peut être cela que tu cherches ?
car ambigu : Col B vide ?
donc j'ai plutôt pensé que c'était lorsqu'il avait un "&" et rien dans les autres colonnes , non ?
tu dis lignes 8 à 39 ??? pas pigé
là c'est en activant la feuille 1 que la macro s'execute

 

[good57]

Re : Macro masquer/démasquer colonne

Merci Hervé !
Mais je voulais bien masquer les lignes lorsqu'il n'y avait PAS de "&".
Lignes 8 à 39, c'est juste pour que je puisse sélectionner la plage sur laquelle je veux que la macro s'applique.
En tout cas, merci !

 

[Si...]

Re : Macro masquer/démasquer colonne

salut

comme ici :

avec un contôle ActiveX (Case à cocher) pour un effet bascule surtout si la plage de & est figée

Private Sub CheckBox1_Click()
  Dim C As Range
  Application.ScreenUpdating = 0
  For Each C In [B8:B39]
    Rows(C.Row).Hidden = CheckBox1 And C = ""
  Next
End Sub

 

[good57]

Re : Macro masquer/démasquer colonne

Merci SI...
J'ai déjà adopté une précédente solution (je voulais effectuer cette action via un clique_bouton), mais je garde ta solution dans un coin de ma tête pour d'autres travaux !