Changer "rows" pour "columns" dans ma formule

cbg573 -  
Bonjour,

J'ai confectionné une formule qui fonctionne bien dans un de mes tableaux. Cependant, dans mon autre tableau, je dois faire la même chose mais avec des colonnes, et ça ne marche pas. Pouvez-vous m'aider SVP?

Formule qui fonctionne:
With Sheets("1")

.Rows("6:45").Hidden = False
.Rows(6 + Range("b5").Value & ":45").Hidden = True

End With

Formule qui ne fonctionne pas:
With Sheets("1")

.Columns("6:78").Hidden = False
.Columns(6 + Range("b1").Value & ":78").Hidden = True

End With

MERCI!

2 réponses

  1. michel_m Contributeur
    Bonjour

    essaies 

    Range(Columns(6), Columns(78)).EntireColumn.Hidden = False
    'ou
    'Columns("F:BZ").EntireColumn.Hidden = False
    deb = Range("B1")
    Range(Columns(deb), Columns(78)).EntireColumn.Hidden = True
    End Sub
    --
    Michel
    0
    1. cs_Le Pivert Contributeur
      Bonjour,

      Pour afficher les colonnes de A à L:

      2 manières: 

      Range(Columns(1), Columns(12)).Select
'ou
 Columns("A:L").Select
    Selection.EntireColumn.Hidden = False


      Pour cacher les colonnes de A à L: 

      Range(Columns(1), Columns(12)).Select
'ou
 Columns("A:L").Select
    Selection.EntireColumn.Hidden = True


      0