Discussion :

[cimbra55]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[laetitia]

bonjour cimbra55 le forum si j ai compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(TextBox1.Value).Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1

[cimbra55]

gros merci
j'avais essayé avec " " et toute sorte de (( ))
quad c'etais si simple merci encore de ton aide