Combobox renvoyant cellules/feuilles differentes

Bonjour,

Totalement débutant en VBA mais devant m'y pencher pour ma nouvelle mission, je fais appel à vous.

Je souhaiterais créer un formulaire de saisie pour un utilisateur. Dans le premier onglet, l'utilisateur choisi la semaine (S1, S2, S3 ou S4) grâce à une combobox. Si il choisit S1, le curseur devra aller dans la cellule A1 de la feuille S1, si il choisit S2, le curseur devra aller dans la cellule A1 de la feuille S2...

J'ai crée une combobox et lui ai affecté la macro suivante :

Sub Macro1()

If combobox1.value = "S1" then 
   Sheets("S1").Select
   Range("A1").Select
Elseif combobox1.value = "S2" then
   Sheets("S2").Select
   Range("A1").Select
Elseif combobox1.value = "S3" then
   Sheets("S3").Select
   Range("A1").Select
Else
   Sheets("S3").Select
   Range("A1").Select
end if

End sub

Problème quand je clique sur S1 dans la combobox j'ai ce message : Erreur 424 objet requis. Je fais débogage et il me souligne en jaune la ligne If combobox1.value = "S1" then.

J'ai donc deux questions : comment corriger cette erreur, et en la corrigeant, cette macro est elle correcte?

(Ca doit surement etre bateau, mais malgré mes recherches je ne trouve pas de solutions, juste ca :

"si le paramètre n'est pas une plage: Message:erreur d'exécution 424:Objet requis).

Merci d'avance, @+

Salut le forum

Si ta Combobox est sur une feuille

If Sheets("Accueil").combobox1.value = "S1"

Mytå

Merci Myta.

J'ai suivi ta consigne et rajouté cela ca me donne ca :

Sub Macro1()

If Sheets("accueil")combobox1.Value = "S1" Then
   Sheets("S1").Select
   Range("A1").Select
ElseIf combobox1.Value = "S2" Then
   Sheets("S2").Select
   Range("A1").Select
ElseIf combobox1.Value = "S3" Then
   Sheets("S3").Select
   Range("A1").Select
Else
   Sheets("S3").Select
   Range("A1").Select
End If
End Sub

Malheureusement il me dit qu'il y a une erreur de syntaxe dans la première ligne.

Je joins mon fichier si ca peut permettre une réponse.

Merci d'avance

Salut le forum

Tu n'utilise pas une Combobox (Active x) mais une zone de liste combinée (Formulaire)

Dans ta Zone de liste va mettre comme cellule liée E1

If Sheets("accueil").Range("E1") = "S1" Then
   Sheets("S1").Select
   Range("A1").Select
ElseIf Sheets("accueil").Range("E1") = "S2" Then
   Sheets("S2").Select
   Range("A1").Select
ElseIf Sheets("accueil").Range("E1") = "S3" Then
   Sheets("S3").Select
   Range("A1").Select
Else
   Sheets("S3").Select
   Range("A1").Select
End If

Mytå

Merci Myta, ca marche.

Désolé pour la mauvaise formulation, je vais étudier la différence de syntaxe entre les 2.

@+