Changer "rows" pour "columns" dans ma formule

cbg573 Messages postés 7 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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!
A voir également:

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Statut Contributeur 3 318
 
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
Réponse 2 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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