Bonjour le forum
Je reviens vers vous pour demander de l’aide
J’ai crée dans un userform une listbox automatique a partir d’un code récupéré sur internet
Ma listbox marche très bien et même trop bien =elle me récupère la totalité des feuilles de mon classeur et dans ce classeur j’ai une feuille nommé « original » qui ne devrait pas apparaitre
A partir du code si dessous comment es-que je peux faire ?
par avance merci pour vos réponse.
Je reviens vers vous pour demander de l’aide
J’ai crée dans un userform une listbox automatique a partir d’un code récupéré sur internet
Ma listbox marche très bien et même trop bien =elle me récupère la totalité des feuilles de mon classeur et dans ce classeur j’ai une feuille nommé « original » qui ne devrait pas apparaitre
A partir du code si dessous comment es-que je peux faire ?
par avance merci pour vos réponse.
Code:
en 1 dans thisworkbook***********************************************
Private Sub Workbook_Open()
AjouterElementMenu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
DeleteMenuItem
End Sub
en 2 dan userform (general)**************************************
Option Explicit
Public OriginalSheet As Object
Private Sub UserForm_Initialize()
Dim SheetData() As String
Dim ShtNum As Integer
Dim ShtCnt As Integer
Dim Sht As Object
Dim LisPost As Integer
Set OriginalSheet = ActiveSheet
ShtCnt = ActiveWorkbook.Sheets.Count
ReDim SheetData(1 To ShtCnt, 1 To 4)
ShtNum = 1
For Each Sht In ActiveWorkbook.Sheets
If Sht.Name = ActiveSheet.Name Then _
LisPost = ShtNum - 1
SheetData(ShtNum, 1) = Sht.Name
Select Case TypeName(Sht)
Case "WorkSheet"
SheetData(ShtNum, 2) = "Feuil"
SheetData(ShtNum, 3) = Application.CountA(Sht.Cells)
End Select
ShtNum = ShtNum + 1
Next Sht
With ListBox1
.List = SheetData
.ListIndex = LisPost
End With
End Sub
Private Sub ListBox1_Click()
Sheets(ListBox1.Value).Activate
End Sub
en 3 dans un module**********************************
Sub AjouterElementMenu()
Dim ViewMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton
'Supprimer le menu s'il existe déjà
Call DeleteMenuItem
'Trouver le Menu Affichage
Set ViewMenu = CommandBars(1).Controls("Affichage")
If ViewMenu Is Nothing Then
MsgBox "Impossible d'ajouter l'élément de menu !"
Exit Sub
Else
Set NewMenuItem = ViewMenu.Controls.Add _
(Type:=msoControlButton)
With NewMenuItem
.Caption = "&Mon menu"
.OnAction = "AficheFeuille"
End With
End If
End Sub