tatagp
Messages postés1Date d'inscriptionvendredi 18 juin 2010StatutMembreDernière intervention18 juin 2010
-
Modifié par tatagp le 21/06/2010 à 15:13
Bonjour,
Je suis une "petite" utilisatrice de macros sous excel 2007,
j'ai un pb, dans un fichier avec plusieurs feuilles avec des fiches "employé", plus une feuille récap avec une macro qui me donne la liste des feuilles avec différentes informations dont j'ai besoin sous forme de tableau, j'ai besoin de masquer les feuilles lorque les salariés sont partis, et que ces derniers n'apparaissent plus dans la récap, hors lorque ces feuilles sont masquées, le salarié apparait toujours dans la récap. Quelqu'un aurait il une solution sans avoir à supprimer les feuilles ???? Merci
Voici ma macro pour info :
Sub MaMacro()
Dim I As Integer
ActiveWorkbook.Worksheets(1).Select
ActiveSheet.Range("A14").CurrentRegion.ClearContents
For I = 5 To ActiveWorkbook.Worksheets.Count
ActiveSheet.Range("A" & I + 16).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & Worksheets(I).Name & "'!A1", _
TextToDisplay:=Worksheets(I).Name
ActiveSheet.Range("b" & I + 16) = Worksheets(I).Range("e9")
ActiveSheet.Range("c" & I + 16) = Worksheets(I).Range("e10")
ActiveSheet.Range("d" & I + 16) = Worksheets(I).Range("e11")
ActiveSheet.Range("e" & I + 16) = Worksheets(I).Range("e12")
ActiveSheet.Range("f" & I + 16) = Worksheets(I).Range("e13")
ActiveSheet.Range("g" & I + 16) = Worksheets(I).Range("e14")
ActiveSheet.Range("h" & I + 16) = Worksheets(I).Range("e15")
ActiveSheet.Range("i" & I + 16) = Worksheets(I).Range("e17")
ActiveSheet.Range("j" & I + 16) = Worksheets(I).Range("e18")
ActiveSheet.Range("k" & I + 16) = Worksheets(I).Range("e19")
ActiveSheet.Range("l" & I + 16) = Worksheets(I).Range("e21")
ActiveSheet.Range("m" & I + 16) = Worksheets(I).Range("e22")
ActiveSheet.Range("n" & I + 16) = Worksheets(I).Range("e23")
ActiveSheet.Range("o" & I + 16) = Worksheets(I).Range("e24")
ActiveSheet.Range("p" & I + 16) = Worksheets(I).Range("e25")
ActiveSheet.Range("q" & I + 16) = Worksheets(I).Range("e26")
ActiveSheet.Range("r" & I + 16) = Worksheets(I).Range("e27")
ActiveSheet.Range("s" & I + 16) = Worksheets(I).Range("e29")
ActiveSheet.Range("t" & I + 16) = Worksheets(I).Range("e30")
ActiveSheet.Range("u" & I + 16) = Worksheets(I).Range("e31")
ActiveSheet.Range("v" & I + 16) = Worksheets(I).Range("e32")
ActiveSheet.Range("w" & I + 16) = Worksheets(I).Range("e33")
ActiveSheet.Range("x" & I + 16) = Worksheets(I).Range("e35")
ActiveSheet.Range("y" & I + 16) = Worksheets(I).Range("e34")
ActiveSheet.Range("aa" & I + 16) = Worksheets(I).Range("d46")
ActiveSheet.Range("ab" & I + 16) = Worksheets(I).Range("e37")
ActiveSheet.Range("ac" & I + 16) = Worksheets(I).Range("e38")
ActiveSheet.Range("ad" & I + 16) = Worksheets(I).Range("e39")
ActiveSheet.Range("ae" & I + 16) = Worksheets(I).Range("e41")
ActiveSheet.Range("af" & I + 16) = Worksheets(I).Range("e42")
ActiveSheet.Range("ag" & I + 16) = Worksheets(I).Range("e43")
ActiveSheet.Range("ah" & I + 16) = Worksheets(I).Range("e44")
ActiveSheet.Range("ai" & I + 16) = Worksheets(I).Range("n46")