Lire le nom des onglets

[Olette]

Bonjour,

Je souhaiterai réaliser une macro me permettant de voir si oui ou non une de mes feuilles s'appellent "Données".
Le cas échéant je vaux accéder à cette feuille sinon la créer.

La seule solution que j'ai trouvé jusque là, c'est de copier le nom de mes onglets sur une feuille et de les lire mais ce n'est pas très pratique.

D'autre part, quelqu'un sait il comment faire pour s'assurer que tous les noms d'onglets ont été lus ? J'arrive à passer d'onglet en onglet (activesheet.next.select) mais je ne sais pas comment lui dire de sélectionner le premier onglet (sachant que ce premier onglet a un nom qui peut changer) ?

Merci pour ces réponses

 

[wally]

Bonjour Olette et le forum,

Voici une possibilité. Si la feuille "Données" n'existe pas, elle est créée à la suite des feuilles existantes :

Sub Main()

Dim bFnd As Boolean
Dim oWsh As Worksheet

For Each oWsh In Worksheets
If oWsh.Name = "Données" Then
bFnd = True
End If
Next oWsh

If bFnd Then
Worksheets("Données").Select
Else
Worksheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = "Données"
End If

End Sub


Pour la seconde question (sélection du 1er onglet) :

Worksheets(1).Select


Slts

wally

 

[Olette]

Meric pour tout, c'est impeccable

 

[@+Thierry]

Hello Odette, Wally

Just for the Fun, une démo marrante pour les créations de feuilles à la volée et la sélection de feuille existante:

Fichier téléchargeable : Lien supprimé

Fil de Discussion : Lien supprimé

Bon Aprèm
@+Thierry