[help] sélection de feuille

Résolu
Signaler
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
-
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
-
bonjour à tous!

voilà je n'arrive pas à sélectionner toutes les feuille de mon workbook à partir de la feuille 4 (comprise) jusqu'à la fin...comment dois-je faire? quel est le code svp???

4 réponses

Messages postés
381
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2010
3
Salut,
Tu peux tenter un truc comme ça :



Public Sub SheetsSelect()
Dim myArray() As String
Dim i As Integer

    For Each CurrentSheet In ThisWorkbook.Sheets
        If CurrentSheet.Name <> "Feuil1" And CurrentSheet.Name <> "Feuil2" And CurrentSheet.Name <> "Feuil3" Then
            ReDim Preserve myArray(i)
            myArray(i) =  CurrentSheet.Name
            i = i + 1
        End If
    Next CurrentSheet
    
    Sheets(myArray).Select

End Sub

 ,

----

(Coloration syntaxique automatique par Kenji)




 Fiko ;-)



La reponse vous convient pensez  > Accepter <
<hr />





<font color ="#80
Messages postés
381
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2010
3
Salut,
Si tu enregistres une macro, elle te donnera ça :
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

 Fiko ;-)

La reponse vous convient pensez > Accepter <
<hr />
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007

oui sauf le problème que j'ai oublié de préciser c'est que les feuille se créaient en onction de l'utilisateur qui remplit une UserForm relatant des repas pour la cuisine (une prise de commande). La feuille se créait dans le workbook et prends le nom du client rentré dans la UserForm. Alors celà dépend de ce que le client aura choisit (comme client parmis une liste déroulate)...

donc je n'ai pas les noms des feuilles à l'avance mais par contre je sais que toutes mes feuilles de commande créé par l'utilisateur seront stocké dans le workbook après la page 3...soit de la page 4 à la fin!
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007

merci pour ton aide fiko :p