Bonsoir à tous,
voila, je vous explique mon souci. Je suis en train de créer un tableau de suivi budgétaire avec des bilans et différents marchés. Je souhaite que l'utilisateur puisse choisir la feuille dans laquelle il souhaite insérer son marché. J'ai donc utilisé la fonction INDIRECT, mais pour qu'elle fonctionne correctement, je souhaite mettre en bout de ligne un liste déroulante qui liste le nom des feuilles (onglets) existants. Comme cela, l'utilisateur choisit son onglets qui est répercuté dans la fonction INDIRECT et excel va chercher les données dans la bonne feuille.
Cependant, je ne sais pas comment créer automatiquement cette fameuse liste. J'ai vu sur beaucoup de forum des formules VBA mais je ne sais pas comment les utiliser.
Par exemple, j'ai trouvé ce qui suit :
Attribute VB_Name = "TypeFeuillesClasseur"
'liste toutes les feuilles d'un classeur et leur type
'(y compris les feuilles cachées)
'les différents types de feuille peuvent être :
' - Worksheet (feuille de calcul)
' - Chart (feuille de graphique)
' - DialogSheet (boite de dialogue Excel 5)
' - Excel4MacroSheet (feuille macro Excel 4)
' - Excel4IntlMacroSheet (feuille macro internationale Excel 4)
Sub ListSheetTypes()
'd'après Rob Bovey, mpep
Dim objSheet As Object
Dim szType As String, sousType As String
Sheets.Add
For Each objSheet In ActiveWorkbook.Sheets
i = i + 1
Cells(i, 1) = objSheet.Name
szType = TypeName(objSheet)
If szType = "Worksheet" Then
Select Case objSheet.Type
Case xlWorksheet
sousType = szType
Case xlExcel4MacroSheet
sousType = "Excel4MacroSheet"
Case xlExcel4IntlMacroSheet
sousType = "Excel4IntlMacroSheet"
End Select
Cells(i, 2).Value = sousType
Else
Cells(i, 2).Value = szType
End If
Next objSheet
End Sub
mais je ne sais pas faire appel à cette fonction.
Quelqu'un pourrait il m'aider et m'expliquer la démarche à suivre.
Merci par avance.
voila, je vous explique mon souci. Je suis en train de créer un tableau de suivi budgétaire avec des bilans et différents marchés. Je souhaite que l'utilisateur puisse choisir la feuille dans laquelle il souhaite insérer son marché. J'ai donc utilisé la fonction INDIRECT, mais pour qu'elle fonctionne correctement, je souhaite mettre en bout de ligne un liste déroulante qui liste le nom des feuilles (onglets) existants. Comme cela, l'utilisateur choisit son onglets qui est répercuté dans la fonction INDIRECT et excel va chercher les données dans la bonne feuille.
Cependant, je ne sais pas comment créer automatiquement cette fameuse liste. J'ai vu sur beaucoup de forum des formules VBA mais je ne sais pas comment les utiliser.
Par exemple, j'ai trouvé ce qui suit :
Attribute VB_Name = "TypeFeuillesClasseur"
'liste toutes les feuilles d'un classeur et leur type
'(y compris les feuilles cachées)
'les différents types de feuille peuvent être :
' - Worksheet (feuille de calcul)
' - Chart (feuille de graphique)
' - DialogSheet (boite de dialogue Excel 5)
' - Excel4MacroSheet (feuille macro Excel 4)
' - Excel4IntlMacroSheet (feuille macro internationale Excel 4)
Sub ListSheetTypes()
'd'après Rob Bovey, mpep
Dim objSheet As Object
Dim szType As String, sousType As String
Sheets.Add
For Each objSheet In ActiveWorkbook.Sheets
i = i + 1
Cells(i, 1) = objSheet.Name
szType = TypeName(objSheet)
If szType = "Worksheet" Then
Select Case objSheet.Type
Case xlWorksheet
sousType = szType
Case xlExcel4MacroSheet
sousType = "Excel4MacroSheet"
Case xlExcel4IntlMacroSheet
sousType = "Excel4IntlMacroSheet"
End Select
Cells(i, 2).Value = sousType
Else
Cells(i, 2).Value = szType
End If
Next objSheet
End Sub
mais je ne sais pas faire appel à cette fonction.
Quelqu'un pourrait il m'aider et m'expliquer la démarche à suivre.
Merci par avance.
