B
benmx
Guest
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 @+
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 @+