sélection d'une cellule

[benmx]

Re bonjour

Jai réaliser un menu déroulant pour accéder plus facilement au titre principaux dans ma feuille.
Mais lorsque je sélectionne par exemple le 2ème titre il se met au milieu de la page alors que j'aimerais qu'il soit en haut de la page!

voici le code de la macro:

Sub Zonecombinée10_QuandChangement()
'nom de la variable
Dim choix
'caractéristiques variables
choix = Sheets('Feuil2').Range('Q4').Value

If choix = 1 Then
Sheets('Feuil2').Range('A5').Select
ElseIf choix = 2 Then
Sheets('Feuil2').Range('A20').Select
ElseIf choix = 3 Then
Sheets('Feuil2').Range('A31').Select
ElseIf choix = 4 Then
Sheets('Feuil2').Range('A48').Select
ElseIf choix = 5 Then
Sheets('Feuil2').Range('A72').Select
ElseIf choix = 6 Then
Sheets('Feuil2').Range('A90').Select
ElseIf choix = 7 Then
Sheets('Feuil2').Range('A103').Select
ElseIf choix = 8 Then
Sheets('Feuil2').Range('A116').Select
Else
Sheets('Feuil2').Range('A1').Select

End If
End Sub



merci @+

 

[Creepy]

Bonsoir le Forum, BenMx,

Voici ta réponse. De plus j'ai réecrit le code en plus propre!

@+

Creepy

Sub Zonecombinée10_QuandChangement()
'nom de la variable
Dim Choix As Integer
'caractéristiques variables

With Sheets('Feuil2')
    Choix = .Range('Q4').Value
    Select Case Choix
    Case 1
        Application.GoTo Reference:=[A5], Scroll:=True
    Case 2
        Application.GoTo Reference:=[A20], Scroll:=True
    Case 3
        Application.GoTo Reference:=[A31], Scroll:=True
    Case 4
      Application.GoTo Reference:=[A48], Scroll:=True
    Case 5
        Application.GoTo Reference:=[A72], Scroll:=True
    Case 6
        Application.GoTo Reference:=[A90], Scroll:=True
    Case 7
        Application.GoTo Reference:=[A103], Scroll:=True
    Case 8
        Application.GoTo Reference:=[A116], Scroll:=True
    Case Else
        Application.GoTo Reference:=[A1], Scroll:=True
    End Select
End With

End Sub

 

[benmx]

merci

bonne soirée!!