Text dans un userform

[Stéphane]

Bonjour à tous,

je suis en train de réaliser un userform, et je veux que lorsque j'appele mon userform, il apparaisse et qu'il me donne dans une zone de texte ou autre des informations d'une cellule excel (un commentaire).
Avec message box, je parviens à ce que je veux, mais je n'ai le choix que d'un bouton, alors que je veux lancer d'autres procédures par la suite en fonction du bouton appuyé.

Donc si qqn sait faire cela, merci beaucoup

--Stéphane

 

[Staple1600]

Bonjour

A titre d'exemple sommaire

Private Sub UserForm_Initialize()
TextBox1 = [A1]
End Sub

avec un userform contenant une TextBox nommée TextBox1
une valeur saisi en A1

 

[_Thierry]

Bonjour Stéphane, Staple, le UserForUm


Pour avoir une base je te propose de télécharger cette démo :

Lien supprimé

Qui elle même contient des liens de téléchargements vers
USF-Rudiments-Basic.zip Pour le B.A. BA sur les UserForms avec TextBox
USF-Rudiments-Basic-OptionButton.zip Pour une Prise en Main des Options Boutons
USF_ListBox_Rudiments_Basics.zip Pour le B.A. BA sur les ListBox
USF_ListBox_Rudiments_Basics_V02.zip Pour se servir d'une ListBox pour Incrémenter des Données
USF_ListBox_Rudiments_Basics_V03.zip Pour se servir des ListBox en Multi Select

Bon Appétit
@+Thierry

Message édité par: _Thierry, à: 21/07/2005 12:18

 

[Stéphane]

Merci Thierry et staple,

Impossible de lire les fichiers ZIP... C'est vraiment bête. Peux tu me donner le lien vers les fichiers Zip que tu indiques stp?

Ca marche bien ta méthode Staple, pour récupérer la valeur d'une cellule, mais pas pour récupérer un commentaire. Je ne vois pas trop pour quoi mais bon...
Je cherche

--Stéphane

 

[PascalXLD]

Bonjour

Avec la method de Staple pour récupérer le commentaire tu mets

Private Sub UserForm_Initialize()

TextBox1 = [A1].Comment.Text
End Sub

Bon courage