cco86260
Messages postés166Date d'inscriptiondimanche 22 janvier 2012StatutMembreDernière intervention30 juillet 2015
-
Modifié par cco86260 le 10/09/2014 à 16:26
cco86260
Messages postés166Date d'inscriptiondimanche 22 janvier 2012StatutMembreDernière intervention30 juillet 2015
-
25 sept. 2014 à 08:28
Bonjour à tous,
je cherche a cacher les feuilles "matrice" et "vierge" pour qu'elles ne fassent pas parti du bilan.. voici le code :
Sub bilan(control As IRibbonControl)
'Ici je déclare mes variables Dim wk1 As Workbook Dim wk2 As Workbook Dim sh As Worksheet Dim Nom_Feuille As String Dim total As String Dim hzc As String Dim trpen As String Dim nuit As String Dim rep As String Dim ClasseurPath As String Dim l As Integer
Set wk1 = ThisWorkbook l = 4 'ouverture du classeur Set wk2 = Workbooks.Open(ClasseurPath)
For Each sh In wk1.Worksheets
Nom_Feuille = sh.Name ' c'est ici que je cherche a cacher les feuilles... mais ça ne fonctionne pas, il me les affiche quand même dans le bilan... Select Case UCase(sh.Name) Case "MATRICE", "VIERGE" Case Else End Select
'Copie des noms des feuilles dans une colonne wk2.Sheets(1).Cells(l, 1).Value = Nom_Feuille 'copie des nombres totales d'heure de chantiers total = sh.Range("CW18").Value wk2.Sheets(1).Cells(l, 2).Value = total 'copie des nombres totales d'heures en ZC hzc = sh.Range("CW21").Value wk2.Sheets(1).Cells(l, 3).Value = hzc 'copie des nombres totales de travaux pénibles trpen = sh.Range("CW23").Value wk2.Sheets(1).Cells(l, 4).Value = trpen 'copie des nombres totales d'heure de nuits nuit = sh.Range("CW25").Value wk2.Sheets(1).Cells(l, 5).Value = nuit l = l + 1 Next
'Fermeture du second classeur 'wk2.Close
End Sub
Merci pour vos réponses...
A bientôt
Christian
--
A voir également:
Comment cacher des feuilles lors de la création d'un bilan
cco86260
Messages postés166Date d'inscriptiondimanche 22 janvier 2012StatutMembreDernière intervention30 juillet 20152 11 sept. 2014 à 08:05
Salut jordane45,
Je n'ai pas du comprendre son fonctionnement alors..., si tu te souviens, c'est un code que j'ai eu lors de la création de l'USF To_PDF, afin que les feuilles "MATRICE" et "VIERGE" n'apparaisse pas dans la ListBox...
Je vois bien l'exemple que tu m'as fourni, mais il n'est pas assez clair dans ma pauvre tête, lol
Je vais voir avec mon ami google, il va bien me dire quelque chose...lol.
Bonne journée
Christian
--
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 11 sept. 2014 à 18:03
Peut-être comme ceci ?
For Each sh In wk1.Worksheets If sh.Name <> "MATRICE" And sh.Name <> "VIERGE" Then 'ton code Else sh.Visible = xlSheetHidden ' ou xlSheetVeryHidden End If Next
jordane45
Messages postés37868Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention 8 décembre 2023343 11 sept. 2014 à 18:08
Bon...deux choses. ..
1 - le fait de masqer une feuille n'empêchera pas ta macro de la mettre dans ton rapport...
2 - ....relis toi...penses tu qu'une feuille puisse avoir DEUX noms en même temps (AND)
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 11 sept. 2014 à 19:41
S'il ne veut pas les masquer, il n'a qu'à ne rien faire.
J'ai lu ceci qui m'a peut-être mis sur la mauvaise piste
' c'est ici que je cherche a cacher les feuilles...
Pour le <> AND <>, je ne vois pas le problème.
Ça empêche de considérer ces deux feuilles dans son traitement. C'est ça qu'il veut, il me semble...
jordane45
Messages postés37868Date d'inscriptionmercredi 22 octobre 2003StatutModérateurDernière intervention 8 décembre 2023343 11 sept. 2014 à 19:47
Oupsss... je n'avais pas vu les <> .... je ne sais pas pourquoi mais sur le coup j'ai cru voir des =
....donc oui ton IF est bon.... tout comme son select case... le truc c'est qu'il doit plcer correctement son code....
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201822 11 sept. 2014 à 20:08
;)
cco86260
Messages postés166Date d'inscriptiondimanche 22 janvier 2012StatutMembreDernière intervention30 juillet 20152 25 sept. 2014 à 08:28
Oups,
sincèrement désolé, un grand merci, la solution a fonctionné à merveille, par contre j'aurais pu dire merci plutôt... vraiment désolé...