X
Xavier
Guest
Bonjour,
J'avais trouvé il y a quelques temps un macro permettant d'afficher dans un combobox le nom (et ainsi de selectionner ) les differentes feuilles d'un dossier.
Le voici
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ComboBox1.AddItem sht.Name
Next sht
End Sub
Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
End Sub
Mes Interrogations sont:
1. Est ce que je dois y faire des modifications pour l'introduire dans un userform qui lui ne se trouve pas dans le fichier que j'aimerais traiter ?
2 Il m'indique qu'il existe une erreur de type "Subscript out of range" pour
Worksheets(ComboBox1.Text).Select comment puis je y remédier ?
Merci bcp et pardon pour les questions peues détaillées
XA
J'avais trouvé il y a quelques temps un macro permettant d'afficher dans un combobox le nom (et ainsi de selectionner ) les differentes feuilles d'un dossier.
Le voici
Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
ComboBox1.AddItem sht.Name
Next sht
End Sub
Sub ComboBox1_Change()
Worksheets(ComboBox1.Text).Select
End Sub
Mes Interrogations sont:
1. Est ce que je dois y faire des modifications pour l'introduire dans un userform qui lui ne se trouve pas dans le fichier que j'aimerais traiter ?
2 Il m'indique qu'il existe une erreur de type "Subscript out of range" pour
Worksheets(ComboBox1.Text).Select comment puis je y remédier ?
Merci bcp et pardon pour les questions peues détaillées
XA