Macro fonction resultat

[Fred]

Salut tout le monde,

Me voilà de retour (depuis ce matin !!).

Voilà, ce que j'ai besoin de faire est je crois très compliqué.

Mais je vous connais alors...

En fonction du resultat d'une cellule sur une feuille, j'aimerais aller soit vers la feuille suivante, soit vers une feuille particulière (jusque là ça va) mais ensuite il faudrait aller à la feuille suivant la 1ère feuille !!

Exemple:
Je suis feuille1:
Le resultat est 1, je vais feuille2 >> Donc je feuille2
Le resultat est 2, je vais feuille 11 mais je veux ensuite aller à feuille2 >> donc je fais Feuille11 - Feuille2.

Donc:
Si 1: >> Feuille2
Si 2: >> Feuille11 - Feuille2

Le truc c'est que je ne sais pas où je suis au début.

Ce que je veux dire, c'est que si je pars de feuille5:
si 1: >> Feuille6
Si 2: >> Feuille11 - Feuille6

Si je pars de Feuille8:
Si1: >> Feuille9
Si2: >> Feuille11 - Feuille9

J'espère que vous avez compris.

Merci infiniment pour votre aide.

Fred.

 

[Hervé]

bonsoir

Pas sur d'avoir tout compris.

re garde en pièce jointe :

si cellule a1=1 tu va sur la feuille suivante
si cellule a2=2 tu va sur la feuille 11 et sur la feuille précédente

Bizarre à faire, mais bon...

Salut
Hervé

 

[Robert]

Bonsoir Fred, bonsoir le forum,

Cette macro à placer au niveau ThisWorkbook dans un classeur contenant au moins 11 feuilles.

Dans n'importe quelle feuille tape en A1 la valeur 1 ou 2...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Byte 'déclare la variable x
x = ActiveSheet.Index 'définit la varaible x
'condition 1 : la cellule A1 de n'importe quelle feuille = 1
If Range("A1") = 1 Then
ActiveSheet.Next.Select 'sélectionne la feuille suivante
'Sheets(x + 1).Select 'c'est la même chose
MsgBox "Je suis à la feuille suivante"
End If 'fin condition 1
'condition 2 : la cellule A1 de n'importe qu'elle feuille = 2
If Range("A1") = 2 Then
Sheets(11).Select 'sélectionne la feuil11
MsgBox "Je suis en Feuil11"
Sheets(x).Select 'revient à la feuille de départ
MsgBox "Je suis revenu à la feuille de départ"
End If 'fin condition 2
End Sub

À plus,

Robert

 

[Robert]

Re Fred, Bonsoir Hervé

Nous nous sommes croisés... Étrange car tous les chemins mènent au forum...

À plus,

Robert

 

[Hervé]

salut

presque la même approche, tant mieux pour fred.

Salut
Hervé

 

[Fred]

Salut Robert et Hervé,

C'est presque ça sauf que quand je suis par exemple feuille5, si c'est 2 il va à feuille11 mais je veux qu'après feuille11 il aille à feuille6 alors que là il revient à feuille5.

Il fait: Feuille5-Feuille11-Feuille5
alors que je voudrais: Feuille5-Feuille11-Feuille6.

Merci pour votre aide.

Fred.

 

[Fred]

En fait j'ai trouvé comment faire en ajoutant +1 à votre macro.

Vous etes vraiment geniaux les gars.

Par contre, j evais être un peu lourd mais j'aimerais en fait precisemment qu'il fasse Feuille11, feuille12 et après qu'il revienne.

Donc ça: Feuille5-Feuille11-Feuille12-Feuille6.

Avant de revenir,il faudrait lui dire d'aller feuille suivante feuille11 mais ça je sais pas faire...

Encore merci pour votre aide.

 

[Fred]

Ca y est ça marche!!!!

Désolé de toutes ces questions.

Merci énormément pour votre aide, je pensais que ce n'etait même pas faisable.

Trop trop fort !!

Encore merci.

Fred.