Renvoi vers une feuille de calcul à partir d'une ComboBox

[vcordier]

Bonjour,

Je souhaiterais, à partir d'une ComboBox regroupant les noms de feuilles de mon fichier Excel, définir un code qui me dirigerait automatiquement vers la feuille choisie dans la Box en centrant la fenêtre sur "A1"

J'ai déjà fait quelques essais, je parviens à atteindre la feuille voulue et à sélectionner A1 mais lorsque la feuille s'ouvre, la vue ne se centre pas en A1
Quelqu'un aurait il une réponse à ce problème?

Ci dessous, le code que j'ai testé:

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
If ComboBox1.Value = "Armentières" Then

Worksheets("Armentières").Activate


Worksheets("Armentières").Cells(1, 1).Select

'Worksheets("Armentières").Cells(1, 1).Activate

End If


End Sub

 

[ghu]

Re : Renvoi vers une feuille de calcul à partir d'une ComboBox

Salut,

Ton problème vient de Application.ScreenUpdating = False.

Si tu veux absolument conserver cette ligne tu dois ajouter un Application.ScreenUpdating = True à la fin de la macro

A+

 

[tototiti2008]

Re : Renvoi vers une feuille de calcul à partir d'une ComboBox

Bonjour à tous,

essaye de remplacer

Worksheets("Armentières").Cells(1, 1).Select

par

Application.Goto Worksheets("Armentières").Cells(1, 1), True

 

[vcordier]

Re : Renvoi vers une feuille de calcul à partir d'une ComboBox

Merci pour ces réponses,

j'ai finalement réussi résoudre le problème!

ce code fonctionne:

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False

If ComboBox1.Value = "Armentières" Then
Application.Goto Reference:=Worksheets("Armentières").Range("A1"), _
Scroll:=True