Onglets de classeur

5 réponses

STEN83

14/01/2007 à 22:39

Bonjour, est-il possible de récuperer le nom des onglets d'un classeur dans
une cellule et par la suite s'en servir comme liste pour ouvrir les
différentes feuilles.
Merci
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

5 réponses

François

14/01/2007 à 22:48

Bonsoir,

Laurent Longre a donné dans EXCELABO la réponse suivante :

http://www.excelabo.net/xl/nommer.php#nomfeuille

à savoir mettre dans la cellule :

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)

Cordialement

François

"STEN83" a écrit dans le message de news:

Bonjour, est-il possible de récuperer le nom des onglets d'un classeur
dans
une cellule et par la suite s'en servir comme liste pour ouvrir les
différentes feuilles.
Merci
--
Le partage du savoir contribue à l'amélioration de la condition humaine!
Merci à tous

Garette

14/01/2007 à 22:58

Bonsoir,

Sans Macro, sans formule ...
Si tu veux acceder aux feuilles du classeur, tu peux faire un clic-droit sur
les boutons de navigation des onglets (les petits triangles noirs à gauche
de Feuil1, Feuil2 ...).
Ca affiche la liste des onglets présents dans le classeur.

François

14/01/2007 à 23:12

sinon pour récupérer le nom de toutes les feuilles dans la colonne AA, tu
peux faire :

Sub liste_feuilles()

Dim sh As Worksheets, n As Integer

For n = 1 To Sheets.Count
Cells(n, 27) = Sheets(n).Name
Next
End Sub

Ne reste plus qu'à faire une validation sur cette liste ...
et par macro, il suffit d'ajouter pour l'avoir en AB1 :
Range("AB1").Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=
_
xlBetween, Formula1:="=$AA$1:$AA$3"
End With
par exemple ...

Cordialement

François

"Garette" a écrit dans le message de news:

Bonsoir,

Sans Macro, sans formule ...
Si tu veux acceder aux feuilles du classeur, tu peux faire un clic-droit
sur les boutons de navigation des onglets (les petits triangles noirs à
gauche de Feuil1, Feuil2 ...).
Ca affiche la liste des onglets présents dans le classeur.

François

14/01/2007 à 23:14

ou plus justement,

Range("AB1").Select
With Selection.Validation
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator: _
xlBetween, Formula1:="=$AA$1:$AA$"&n
End With

...

"Garette" a écrit dans le message de news:

Bonsoir,

Sans Macro, sans formule ...
Si tu veux acceder aux feuilles du classeur, tu peux faire un clic-droit
sur les boutons de navigation des onglets (les petits triangles noirs à
gauche de Feuil1, Feuil2 ...).
Ca affiche la liste des onglets présents dans le classeur.

LSteph

14/01/2007 à 23:37

Bojour ,
D'accord avec Garette, mais juste pour s'amuser
donc alt+F11, insère un userform dedans mets une combobox
puis ajoute le code suivant dans les modules indiqués
referme vbe et doubleclic dans n'importe quelle feuille:

'''''****dans thisworkbook****

Private Sub Workbook_SheetBeforeDoubleClick(ByVal sh As Object, _
ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub

'''''*****userform1*****
Private Sub ComboBox1_change()
Sheets(Me.ComboBox1.Text).Activate
End Sub

Private Sub UserForm_Initialize()
Dim sh As Object
ComboBox1.Clear
For Each sh In ActiveWorkbook.Sheets
ComboBox1.AddItem sh.Name
Next
ComboBox1 = ActiveSheet.Name
End Sub
'''''****************************
'Cdlt

'lSteph

Bonjour, est-il possible de récuperer le nom des onglets d'un classeur dans
une cellule et par la suite s'en servir comme liste pour ouvrir les
différentes feuilles.
Merci

Onglets de classeur

5 réponses

Veuillez sélectionner un problème