[help] sélection de feuille
Résolu
bep42
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
-
27 juin 2007 à 17:54
bep42 Messages postés 27 Date d'inscription lundi 4 juin 2007 Statut Membre Dernière intervention 29 juin 2007 - 28 juin 2007 à 13:55
bep42 Messages postés 27 Date d'inscription lundi 4 juin 2007 Statut Membre Dernière intervention 29 juin 2007 - 28 juin 2007 à 13:55
A voir également:
- [help] sélection de feuille
- Vba changer de feuille - Forum Visual Basic 6
- Vba copier valeur cellule dans une autre feuille ✓ - Forum Visual Basic 6
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- [Vba] aller chercher des données dans une feuille excel ✓ - Forum Visual Basic
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
4 réponses
fiko81
Messages postés
381
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2010
3
27 juin 2007 à 21:41
27 juin 2007 à 21:41
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
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
fiko81
Messages postés
381
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
5 septembre 2010
3
27 juin 2007 à 17:59
27 juin 2007 à 17:59
Salut,
Si tu enregistres une macro, elle te donnera ça :
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Fiko ;-)
La reponse vous convient pensez > Accepter <
<hr />
Si tu enregistres une macro, elle te donnera ça :
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
Fiko ;-)
La reponse vous convient pensez > Accepter <
<hr />
bep42
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
27 juin 2007 à 18:22
27 juin 2007 à 18:22
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!
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!
bep42
Messages postés
27
Date d'inscription
lundi 4 juin 2007
Statut
Membre
Dernière intervention
29 juin 2007
28 juin 2007 à 13:55
28 juin 2007 à 13:55
merci pour ton aide fiko :p