atteindre une feuille d'apres une liste deroulante ComboBox.

[james51]

Bonjour,est ce que quelqu'un pourrait m'aider,j'ai creer un classeur avec 12 feuilles mensuelles et je voudrais atteindre ces feuilles apres avoir choisi dans une liste deroulante dans un userform.
Merci d'avamce.

 

[Papou-net]

Re : atteindre une feuille d'apres une liste deroulante ComboBox.

Bonjour james51,

Voici le code à entrer dans tes contrôles :

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Activate

End Sub

Private Sub UserForm_Activate()
ComboBox1.Clear
For f = 1 To Sheets.Count
  ComboBox1.AddItem (Sheets(f).Name)
Next

End Sub

Espérant t'avoir aidé.

Cordialement.

 

[james51]

Re : atteindre une feuille d'apres une liste deroulante ComboBox.

Bonjour james51,

Voici le code à entrer dans tes contrôles :

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Activate

End Sub

Private Sub UserForm_Activate()
ComboBox1.Clear
For f = 1 To Sheets.Count
  ComboBox1.AddItem (Sheets(f).Name)
Next

End Sub

Espérant t'avoir aidé.

Cordialement.

Merci beaucoup pour ta reponse clair et rapide,ca marche.
Bonne journee.