Cacher une colonne
Tonin39
Messages postés
75
Date d'inscription
mercredi 6 avril 2005
Statut
Membre
Dernière intervention
2 avril 2006
-
18 avril 2005 à 09:54
spa666 Messages postés 39 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 24 février 2006 - 18 avril 2005 à 10:50
spa666 Messages postés 39 Date d'inscription mardi 6 avril 2004 Statut Membre Dernière intervention 24 février 2006 - 18 avril 2005 à 10:50
1 réponse
spa666
Messages postés
39
Date d'inscription
mardi 6 avril 2004
Statut
Membre
Dernière intervention
24 février 2006
18 avril 2005 à 10:50
18 avril 2005 à 10:50
bonjour,
c est peut etre pas le plus simple, mais ca doit marcher
Dim moFeuilleCourante As Object
Dim moExcelApplication As Object
Set moExcelApplication = CreateObject("Excel.Application.8")
Set moFeuilleCourante = moExcelApplication.ActiveWorkbook.ActiveSheet
Set moFeuilleCourante = moFeuilleCourante.Parent.Sheets("feuille1")
moFeuilleCourante.Select
moFeuilleCourante.Columns("C:C").Select
moFeuilleCourante.Application.ActiveWindow.Selection.EntireColumn.Hidden
c est peut etre pas le plus simple, mais ca doit marcher
Dim moFeuilleCourante As Object
Dim moExcelApplication As Object
Set moExcelApplication = CreateObject("Excel.Application.8")
Set moFeuilleCourante = moExcelApplication.ActiveWorkbook.ActiveSheet
Set moFeuilleCourante = moFeuilleCourante.Parent.Sheets("feuille1")
moFeuilleCourante.Select
moFeuilleCourante.Columns("C:C").Select
moFeuilleCourante.Application.ActiveWindow.Selection.EntireColumn.Hidden
