Bonjour les gars,
je sollicite votre expertise pour pouvoir avancer dans mon projet.
Je fais un programme qui permet d'avoir les noms des onglets d'une feuille donnée, pour chaque onglet, les noms des colonnes positionnées en dessus du nom de l'onglet(feuille).
Mon problème est que je veux masquer à la sortie de la boucle des colonnes(boucle avec k) le nom des colonnes pour chaque onglet.
En gros les lignes sous chaque nom d'onglet.
Voici le bout de code:
Sub ouvrir2()
Dim monfichier, nom As String
Dim i, j, k, deb, tcol As Variant
Dim nom_feuille, Colname, Fichierchoisi As String
Dim WKB2 As Workbook
'Application.ScreenUpdating = False
ChDir "C:\"
monfichier = Dir("*.xlsx")
Workbooks.Open Filename:=monfichier
Fichierchoisi = Application.GetOpenFilename
If Fichierchoisi <> "" Then
Set WKB2 = ActiveWorkbook
End If
For i = 1 To WKB2.Worksheets.Count 'début boucle sur les onglets du classeur'
j = ThisWorkbook.Worksheets(1).Range("A1:C1").SpecialCells(xlCellTypeLastCell).Row + 1
nom_feuille = WKB2.Worksheets(i).Name 'récupérer le nom de l'onglet'
deb = j + 1
If nom_feuille <> "" Then
ThisWorkbook.Worksheets(1).Cells(j, 1).Value = nom_feuille
ThisWorkbook.Worksheets(1).Activate
ActiveSheet.CheckBoxes.Add(Cells(j, 2).Left, Cells(j, 2).Top, Cells(j, 2).Width, Cells(j, 2).Height).Select
With Selection
.Name = "Checkbox" & j
.Caption = "Selectionner"
.Value = xlOff
.OnAction = "Notre taf.xlsm!ouvrir2"
End With
End If
k = 1
'on va récupérer les entêtes des colonnes de la feuille '
For k = 1 To WKB2.Worksheets(nom_feuille).Range("A1").SpecialCells(xlCellTypeLastCell).Column
Colname = WKB2.Worksheets(nom_feuille).Cells(2, k)
ThisWorkbook.Worksheets(1).Cells((j + k), 3).Value = Colname
Next
Range(Cells(deb, 1), Cells((deb - 1 + k), 1)).Select
Selection.Entire.Hidden = True
Next
'Application.ScreenUpdating = True
End Sub
Merci d'avance.