[XL-2007] label changeant avec boutons [Résolu]

[grisan29]

bonjour a vous tous

comment puis je faire pour que sur un usf un label soit modifié en fonction du bouton qui sera appuyer
le code que j'y ai mis est hésitant a vouloir le faire

je joint un exemple

merci par avance

Pascal

[jfontaine]

Bonjour,

Dans un module tu déclares une variables Public qui contiendra le texte du label

Code :

Public StrLabel As String

Dans Userform2, Tu alimentes cette variables

Code :

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
StrLabel = " devis à :"
UserForm1.Show
End Sub
 
Private Sub CommandButton2_Click()
StrLabel = " facture à :"
UserForm1.Show
End Sub

Dans USerform1, tu utilises la variables dans Intialize pour mettre à jour le label

Code :

1
2
3
Private Sub UserForm_Initialize()
Label1.Caption = StrLabel
End Sub

[jfontaine]

Pas réveillé ce matin

Tout simplement comme cela

Code :

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
UserForm1.Label1.Caption = " devis à :"
UserForm1.Show
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Label1.Caption = " facture à :"
UserForm1.Show
End Sub

[grisan29]

bonsoir Jfontaine et bbil

jFontaine les 2 versions de code que tu a créer fonctionne bien dans mon fichier , un grand Merci

bbil merci de me rappeller que l'on ne doispas joindre de fichier au début du post désolé

cordialement

Pascal