Récuperer nom Feuille

[Stt]

Bonsoir à tous,

ma question est très simple, comment peut-on récuperer le nom de l'ensemble des feuilles d'un classeur dans une variable de type "array"
et ceci afin de réaliser une boucle de vérification de la présence de cette feuille

Merci par avance

Stt

 

[@+Thierry]

Bonsoir Stt, le Forum

Pas vraiment sûr d'avoir compris, si un code récupère le Nom des Feuilles Une à Une de ton Classeur soit par une boucle, je ne vois pas ce qu'une boucle supplémentaire de vérification pourras trouver comme différence ? En plus il n'est pas vraiment nécessaire de faire une "Array" pour ceci, mais bon... Pour le Fun voici un code, (j'envoie le résultat dans le Debug.Print) :

Sub ArrayDesFeuilles()
Dim MyArray() as String
Dim i As Byte

For i = 1 To Worksheets.Count
ReDim Preserve MyArray(i)
MyArray(i) = Worksheets(i).Name
Next

'(activer la fenêtre d'exécution pour le Débug.print)
For i = 1 To UBound(MyArray)
Debug.Print MyArray(i)
Next
End Sub


Ceci dit un code comme çà liste tes feuilles tout aussi bien sans avoir besoin de faire une Array :

Sub ListFeuilles()
Dim WS As Worksheet
Dim Msg As String

For Each WS In Worksheets
Msg = Msg & WS.Name & vbCrLf
Next

MsgBox "Voici Les Feuilles " & vbCrLf & Msg
End Sub

Bon travail et bonne soirée
@+Thierry

 

[@Christophe@]

Bonsoir,

Voici un petit code beaucoup plus simple que d'utiliser ton array!

Option Explicit
Dim existe As Boolean
Dim WS As worksheet

Sub testEx()
existe = False
For Each WS In Worksheets
If WS.Name = "Feuil4" Then existe = True
Next WS
If existe = True Then MsgBox "Valid sheet name." Else MsgBox "Unvalid sheet name!"
End Sub

Bonne soirée

@Christophe@

 

[@Christophe@]

Re

Oups, je t'avais pas vu @Thierry

Content de te croiser mon ami

Bonne soirée

@Christophe@