Récupérer la valeur d'un label

Bonjour à tous ! :D

Je suis entrain de créer un petit programme, j'ai donc fouillé un peu partout dans VB (pas évident :?) mais là je ne sais pas !

Voilà ma question :

Comment récupérer, via une macro, le contenu d'un Label qui est géré par un SpinButton, et le tout à l'intérieur d'une Frame ?

Je pensai faire un truc du style : UserForm2.Label1.caption = ... Mais ca ne fonctionne pas et je suis un peu (beaucoup) perdu :calim2:

Merci d'avance pour vos réponses ;)

Salut,
Tu n'étais pas loin...si tu veux récupérer tu dois donner à la variable la "valeur" et non l'inverse donc :

Code:

---

MyLabel = UserForm2.Label2.Caption

---

MyLabel devrait te renvoyer la "valeur" du champ Caption de ton Label

A+

Merci de ta réponse ;)

Et donc je voulais savoir aussi, mon spinbutton il change le Caption de mon label automatiquement ou pas quand je l'incrémente ?

Re,
Ben impossible de te répondre, ça dépend du code que tu associe à ton SpinButton (enfin je crois)
A+

ok ok, parce que j'ai bien l'impression que ça ne fonctionne pas :cry:

Si quelqu'un sait m'expliquer comment ça marche je suis preneur... !

Merci !

Un spin buton a une valeur (value) un nom (name) mais pas de label. Donc nom c'est a toi de changer la valeur du label que tu place a coté dans la sub

Code:

---

1 2 3

Private Sub SpinButton1_Change() Label1.Caption = SpinButton1.Value End Sub

---

Merci pour le code !

Tout ne fonctionne toujours pas mais je pense avoir fait des erreurs dans mon code...

si tu parle de mon code, il faut avoir un spinbutton1 et un label 1 c'est difficile de se tromper. Après pour ce qui est des erreurs dans ton code on ne pourras pas vraiment t'aider si tu ne le donne pas. Mais oui tu doit avoir des erreurs puisque le code fait ce que tu lui demande (pas forcément ce que tu pense demander ;) )

Concernant les OptionButton ca fonctionne comment ?

J'en ai aussi et je suis pas sûr...

J'ai fait des trucs du genre :

Code:

---

1 2 3 4 5 6 7

If UserForm2.OptionButton12.Value = True Then CodeAbandon = "0"   If UserForm2.OptionButton13.Value = True Then CodeAbandon = "1"   End If

---

tu peux enlever le =true
a=b renvoie la valeur vrai ou faux
si a est un booléen
a=vrai
renvoie vrai si a=vrai et sinon renvoie Faux
Autant mettre directement
a
donc

Code:

---

1 2 3 4 5 6

If UserForm2.OptionButton12 Then CodeAbandon = "0" end if If UserForm2.OptionButton13 Then CodeAbandon = "1" End If

---

En gros sur le fonctionnement sil est coché il renvoie True sinon il renvoie False. Ya pas grand chose a dire de plus si ce n'est que bien entendu il y a des évènement associé (dans l'éditeur de macro place ton dans le code de ton userform, en haut il y a deux liste dans celle de gauche choisie ton option button dans celle de droite tu aura la liste des évènements disponible)

Pour plus d'info
http://silkyroad.developpez.com/VBA/...serForm/#LII-C

Merci pour le lien, j'ai trouvé ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Ctrl As Control   For Each Ctrl In Frame1.Controls If Ctrl.Object.Value = True Then MsgBox Ctrl.Object.Caption Exit For End If Next Ctrl End Sub

---

Par contre il y a une erreur je pense ce n'est pas CommandButton1 mais OptionButton1 !

Est-ce que je dois mettre ce code là pour chaque bouton ?

non ce n'est pas une erreur. Ce code se lance quand on clique sur commandebutton1

Après je ne sais pas ce que toi tu veux faire.... tu peux essayer de faire un fichier exemple simple et des essais, lire la totalité du tuto et essayer de faire quelque exemple pour comprendre. Et si ca ne suffit pas expliquer clairement ce que tu veux faire car la on a pratiquement 0 infos. Tu es parti de récupérer le contenue d'un label et la tu nous montre une macro qui affiche le texte des différent controe d'un userform. Personnellement je ne te suis pas.

En fait, dans ma macro je veux dire que si mon optionbutton est coché il faut documenter un fichier excel.
Je vais essayer d'ici demain de vous filer le fichier

Code:

---

1 2 3

if optionbutton1 then 'tu ouvre ton fichier end if

---

Après a toi de voir comment tu déclenche ta macro, si c'est en cliquand sur l'optionbutton en cliquant sur un autre bouton en fermant le user forme, en faisant croix croix rond carre haut bas et triangle deux fois (je suis sure que c'est possible de faire ca en interceptant les touches claviers :mouarf:)
Quoi qu'il en soit c'ets de ca que dépendra le nom de ta sub
pour connaitre la liste des évènement disponible
En haut de la zone ou tu tape ton code il y a deux liste celle de gauche te permet de choisir lobjet (ta feuille un bouton une liste) celle de droite les évènement associé cliquer dessus, passer la sourie le modifier double cliqué.... A chaque fois ca te crée la macro qui corespond a toi de mettre le bon code dedans

Voilà l'aspect de mon interface graphique !

Je met un bout de mon code concernant les optionbutton, je sais pas si mon code est correct...

Code:

---

1 2 3 4 5 6 7 8 9

If UserForm2.OptionButton3 Then UET = "Synthèse véhicule" Feuil4.Cells(19, 20) = "Synthèse véhicule" If UserForm2.OptionButton13 Then Feuil4.Cells(16, 2) = "Analyses en cours" Else Feuil4.Cells(16, 2) = "Questions abandonnées" End If End If

---

le code est corecte (enfin il me semble) Mais si je me souvient bien ton problème est le contenu du code ou le lancement de la macro?

Tu veux réaliser un truc, tu veux que cela se fasse QUAND? quand ou clique sur l'optionbuton ou quand on clique sur un bouton a la fin? (la deuxième solution me semble plus simple pour un formulaire

EN fait j'ai beaucoup de mal a suivre cette discuttion est ce que tu pourrais reprendre depuis le début. Quest ce que tu veux faire exactement et quest ce que tu n'arrive pas a faire?

Re !

Bon en fait mes boutons d'options fonctionnent, ce sont mes SpinButton qui ne fonctionnent pas...

J'ai ça comme code :

Code:

---

1 2 3 4 5

Private Sub SpinButton1_Change()   Label1.Caption = SpinButton1.Value   End Sub

---

Quand je veux récupérer la valeur du label je dois pointer vers le caption du label ou vers le SpinButton ? :/

Arf désolé je viens de voir qu'il y avait 2 pages de conversation :s

En fait, Je souhaite que l'utilisateur choisisse ses propres paramètres (voir le screenshot) et quand il click sur "Lancer le traitement" tous les paramètres soient prit en compte.

Pour le moment mes OptionButton sont prit en compte mais pas mes SpinButton !

Pour prendre en compte les spinbutton tu doit récupérer leur valeur.

Code:

---

valeur=spinbutton.value

---

Après a toi de faire ce que tu veux avec la valeur en question ;)

Oui c'est ce que je fais, mais quand je pointe vers ma "valeur" ça ne me ressort rien. Comme si le caption de mon label ne s'incrémentait pas en fonction du SpinButton ! Bizarre :calim2:

Ou se situe ton code?
essaye

Code:

---

1 2	valeur=userform1.spinbutton1.value msgbox valeur

---

Est ce que tu ferme ton userform avant de lancer ce code?