SELECTION DE FEUILLE

5 réponses

IMER09

19/12/2007 à 16:58

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

5 réponses

François

19/12/2007 à 17:41

bonjour,

For x = 1 To nb ' compte le nb de feuilles
If Sheets(x).Name <> "TOTO " And Sheets(x).Name <> "TOTO " Then
ActiveWorkbook.Sheets(x).Select
procedure
End If
Next x

Cela devrait faire l'affaire.

François

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

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

IMER09

19/12/2007 à 19:06

Merci François
--
IMER09

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

Pierre Archambault

20/12/2007 à 01:04

Salut IMER09

Essaie ceci:

Dim NbreFeuilles As Byte
Dim i As Byte
Dim Varr As Variant
Dim MesPages as String

NbreFeuilles = ActiveWorkbook.Sheets.Count
MesPages = ""
For i = 1 To NbreFeuilles
If ActiveWorkbook.Sheets(i).Name <> "zaza" or
ActiveWorkbook.Sheets(i).Name <> "toto" then
MesPages = MesPages & Chr(34) & ActiveWorkbook.Sheets(i).Name &
Chr(34) & ", "
endif
Next i
MesPages = Mid(MesPages, 1, Len(MesPages) - 2)
Varr = Evaluate("{" & MesPages & "}")
Sheets(Varr).Select

Pierre
-------------------------------------
"IMER09" a écrit dans le message de news:

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

zOrg2net

20/12/2007 à 11:01

Bonjour Pierre Archambault,

J'ai essayé ta solution, mais je suis surpris que le test sur les noms de
feuilles ne marche pas. Toutes les feuilles sont sélectionnées, même toto et
zaza. J'ai mis des flag pour comprendre, mais ça ne donne rien. Peut-être une
petite idée ??

zOrg2net
7OuNet
Le dicton du jour: Je crois que nos importations viennent de plus en plus de
l’étranger. (George W. Bush)

Salut IMER09

Essaie ceci:

Dim NbreFeuilles As Byte
Dim i As Byte
Dim Varr As Variant
Dim MesPages as String

NbreFeuilles = ActiveWorkbook.Sheets.Count
MesPages = ""
For i = 1 To NbreFeuilles
If ActiveWorkbook.Sheets(i).Name <> "zaza" or
ActiveWorkbook.Sheets(i).Name <> "toto" then
MesPages = MesPages & Chr(34) & ActiveWorkbook.Sheets(i).Name &
Chr(34) & ", "
endif
Next i
MesPages = Mid(MesPages, 1, Len(MesPages) - 2)
Varr = Evaluate("{" & MesPages & "}")
Sheets(Varr).Select

Pierre
-------------------------------------
"IMER09" a écrit dans le message de news:

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

IMER09

20/12/2007 à 22:24

Merci Pierre A
mais la solu de François me semble un peu moins compliq
Merci qd meme
--
IMER09

Bonjour Pierre Archambault,

J'ai essayé ta solution, mais je suis surpris que le test sur les noms de
feuilles ne marche pas. Toutes les feuilles sont sélectionnées, même toto et
zaza. J'ai mis des flag pour comprendre, mais ça ne donne rien. Peut-être une
petite idée ??

zOrg2net
7OuNet
Le dicton du jour: Je crois que nos importations viennent de plus en plus de
l’étranger. (George W. Bush)

Salut IMER09

Essaie ceci:

Dim NbreFeuilles As Byte
Dim i As Byte
Dim Varr As Variant
Dim MesPages as String

NbreFeuilles = ActiveWorkbook.Sheets.Count
MesPages = ""
For i = 1 To NbreFeuilles
If ActiveWorkbook.Sheets(i).Name <> "zaza" or
ActiveWorkbook.Sheets(i).Name <> "toto" then
MesPages = MesPages & Chr(34) & ActiveWorkbook.Sheets(i).Name &
Chr(34) & ", "
endif
Next i
MesPages = Mid(MesPages, 1, Len(MesPages) - 2)
Varr = Evaluate("{" & MesPages & "}")
Sheets(Varr).Select

Pierre
-------------------------------------
"IMER09" a écrit dans le message de news:

Bonjour a tous

j'utilise ce qui suit pour selectionner toute les feuilles

nb = Sheets.Count
For x = 1 To nb ' compte le nb de feuilles
ActiveWorkbook.Sheets(x).Select
procedure
Next

Tout fonctionne parfaitement,
Mais est il possible de ne pas selectionner les feuils toto et zaza
Je voudrai donc selectionner toute les feuils sauf toto et zaza

Merci
--
IMER09

SELECTION DE FEUILLE

5 réponses

Veuillez sélectionner un problème