Changer "rows" pour "columns" dans ma formule

cbg573 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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 7904 Date d'inscription   Statut Contributeur Dernière intervention   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