Activer une autre feuille

Bonjour.
Je suppose que ta demande concerne VBA.
Sheets(ActiveSheet.Index + 1).Select
Cordialement.
Daniel
"Marie" <newsmaremy@club.fr> a écrit dans le message de news:
uQ8V0keMIHA.1184@TK2MSFTNGP04.phx.gbl...

Bonjour, voici ma question
Si une condition dans une feuille est remplie, je voudrais passer sur la
feuille suivante.
C'est la deuxième partie où je bloque : comment sélectionner la feuille
suivante (qui peut avoir n'importe quel nom) ?

Merci
Marie

Merci infiniment c'est exactement cela que je cherchais
Marie



"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
e28kVpeMIHA.4272@TK2MSFTNGP05.phx.gbl...

Bonjour.
Je suppose que ta demande concerne VBA.
Sheets(ActiveSheet.Index + 1).Select
Cordialement.
Daniel
"Marie" <newsmaremy@club.fr> a écrit dans le message de news:
uQ8V0keMIHA.1184@TK2MSFTNGP04.phx.gbl...

Bonjour, voici ma question
Si une condition dans une feuille est remplie, je voudrais passer sur la
feuille suivante.
C'est la deuxième partie où je bloque : comment sélectionner la feuille
suivante (qui peut avoir n'importe quel nom) ?

Merci
Marie

Bsr

Pour compléter l'excellente réponse de Daniel.C

J'ajouterai une petite touche pour gérer la possibilité de la dernière
feuille qui ne pourra pas gérer l'activation de la prochaine
inexistante:

If ActiveSheet.Index = Sheets.Count Then Exit Sub

En ajoutant cela au début du code de daniel, on évite cette
possibilité

Bonne soirée et à +

Pat REDNEF
Dim VBA as Longre

Je viens de penser à la même chose :-)

Sub Sélectionne_Feuille_Suivante()
Dim n As Long, pos As Long
n = ActiveWorkbook.Sheets.Count
pos = ActiveSheet.Index
If pos < n Then Sheets(pos + 1).Select
End Sub

Serge

<perso@patrickjacquart.fr> a écrit dans le message de news: 431c98b5-3a16-43c6-b633-c7d394427596@d4g2000prg.googlegroups.com...
Bsr

Pour compléter l'excellente réponse de Daniel.C

J'ajouterai une petite touche pour gérer la possibilité de la dernière
feuille qui ne pourra pas gérer l'activation de la prochaine
inexistante:

If ActiveSheet.Index = Sheets.Count Then Exit Sub

En ajoutant cela au début du code de daniel, on évite cette
possibilité

Bonne soirée et à +

Pat REDNEF
Dim VBA as Longre

bonjour Marie,

il y aussi :

ActiveSheet.Next.Select

isabelle

Bonjour, voici ma question
Si une condition dans une feuille est remplie, je voudrais passer sur la
feuille suivante.
C'est la deuxième partie où je bloque : comment sélectionner la feuille
suivante (qui peut avoir n'importe quel nom) ?

Merci
Marie

ps/ un peur aussi faire :

ActiveSheet.Previous.Select

isabelle

Bonjour, voici ma question
Si une condition dans une feuille est remplie, je voudrais passer sur la
feuille suivante.
C'est la deuxième partie où je bloque : comment sélectionner la feuille
suivante (qui peut avoir n'importe quel nom) ?

Merci
Marie

Bonjour Isabelle,

Quelle élégance!
Et pour prévoir le coup de la dernière feuille :

Sub Sélectionne_Feuille_Suivante()
On Error Resume Next
ActiveSheet.Next.Select
End Sub

Serge


"isabelle" <i@v> a écrit dans le message de news: %23QV4FHfMIHA.1168@TK2MSFTNGP02.phx.gbl...

bonjour Marie,

il y aussi :

ActiveSheet.Next.Select

isabelle

Bonjour, voici ma question
Si une condition dans une feuille est remplie, je voudrais passer sur la feuille suivante.
C'est la deuxième partie où je bloque : comment sélectionner la feuille suivante (qui peut avoir n'importe quel nom) ?

Merci
Marie

Bonjour Isabelle,

Quelle élégance!

merci gentilHomme de la haute ville :-)

Et pour prévoir le coup de la dernière feuille :

On Error Resume Next
ActiveSheet.Next.Select

oui, ou bien pour éviter le on error:

If ActiveSheet.Index < Sheets.Count Then ActiveSheet.Next.Select

dit donc garnotte tu nous avais pas dit que tu avais signé un contrat avec les Boys
(épisode d'hier), cachottier va, ;-)

isabelle