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.  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
    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