Macro masquer/démasquer colonne

phlaurent55

Nous a quittés en 2020

Repose en paix

• 28 Juillet 2015

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 28 Juillet 2015

• #3

Re : Macro masquer/démasquer colonne

MERCI Philippe !!

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 28 Juillet 2015

• #4

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

 

Pièces jointes

• Masquer-Démasquer.xlsm

  17.3 KB · Affichages: 23

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 28 Juillet 2015

• #5

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 !

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Juillet 2015

• #6

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

Code:

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

 

Pièces jointes

• Masquer-Démasquer lignes.xlsm

  21.2 KB · Affichages: 29

Vote positif 0 Vote négatif

good57

XLDnaute Occasionnel

• 28 Juillet 2015

• #7

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 !

 

Vote positif 0 Vote négatif