Discussion :

[ozaland]

Bonjour à tous,

Je suis débutant en vba et j'aurais besoin d'un coup de main.
Dans mon fichier, l'utilisateur est amené à choisir entre deux mots et j'aimerais en fonction de son choix me rendre automatiquement sur une des feuilles du fichier Excel.

Je vous joins un fichier exemple plus explicite.
Si vous avez une idée pour la macro (ou toutes autres astuces) je suis preneur.

merci
oza

[MarcelG]

Bonjour à toi, Bonjour au Forum,

Tout d'abord, sois le bienvenu su ce Forum.

Pour le code affecté à ta forme, tu peux utiliser

- soit la méthode IIF car 2 possibilités

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Sub essai()
'Défininition de la variable
Dim choixfeuil As Worksheet
'Affectation d'uun objet à cette variablre donc méthode Set
Set choixfeuil = IIf(Sheets("Feuil1").Range("H9").Value = "Q", Sheets("Feuil3"), Sheets("Feuil2"))
'Activation de la feuille choisie
choixfeuil.Activate
'Variable vidée
Set choixfeuil = Nothing
End Sub

- soit la méthode Select Case que tu peux généraliser à autant de cas possibles (2 et plus)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub essai2()
'Défininition de la variable
Dim choixfeuil As Worksheet
'Affectation d'uun objet à cette variablre donc méthode Set
Select Case Sheets("Feuil1").Range("H9").Value
    Case "Q": Set choixfeuil = Sheets("Feuil3")
    Case "CA": Set choixfeuil = Sheets("Feuil2")
End Select
'Activation de la feuille choisie
choixfeuil.Activate
'Variable vidée
Set choixfeuil = Nothing
End Sub

Personnellement, je préfère la 2ème méthode.

Reviens si nécessaire.