ouvrir feuille via textbox
bonjour a vous tous
j'ai excel 2003
je m'explique j'ai un userform avec listbox de tous les onglets du classeur
et mon textbox recupere mon choix de feuilles du listbox et la je voudrais
que par bouton de commande la valeur du textbox1 ouvres la dite feuille
pour que je puisse enregistrer les valeurs du formulaire sur la feuille choisi sur le textbox peut etre que je me prends pas de la bonne façon mais je cite mes codes
pour activer les onglets ds listbox
Code:
1
2
3
4
5
6
| Private Sub UserForm_Initialize()
Dim sh
For Each sh In ActiveWorkbook.Sheets
Me.ListBox1.AddItem sh.Name
Next sh
End Sub |
pour le choix desire envoye sur textbox1
Code:
1
2
3
| Private Sub ListBox1_Click()
Me.TextBox1.Value = Me.ListBox1
End Sub |
et la je voudrais qand j'active le cmdactive le nom de la feuille du textbox remplace ou se copie directement au " nom de la feuille textbox1" du code
pour pouvoir enregistrere les cellules vouluees du formulaire test
bouton commande
Code:
1
2
3
4
|
Private Sub cmdactive_Click()
Sheets("valeur du testbox1").Range("A65536").End(xlUp).Offset(1, 0).Value = Me.TextBox1
Sheets("ou nom de la feuille textbox1").Range("B65536").End(xlUp).Offset(1, 0).Value = Me.TextBox2 |
j'espere que je suis assez clair et merci d'avance pour votre aide
