Copier le caption d' Optionbuttton dans label

[papattts]

Bonjour le forum,

avant tout, merci à tous pour les démos et autres codes qui nous rendent bien des services .

Voila mon problème ;

J'ai 2 optionbutton, Entrée et sortie et je voudrais quand je clic sur un des 2 buttons que le caption activé se recopie dans un label ( identique)

J'ai essayé
label15 = optionentrée.value
label15 = optionentrée . caption
idem pour sortie

mais ça me renvoie une erreur

Merci de votre aide 🙂

 

[Essem]

Re : Copier le caption d' Optionbuttton dans label

Salut papatts et le forum,

Voilà ma proposition:

Private Sub Entree_Click()
Label15.Caption = Entree.Caption
End Sub

Private Sub Sortie_Click()
Label15.Caption = Sortie.Caption
End Sub

S.v.p., me confirmer si j'ai bien compris ton besoin...

@+

Essem

 

[papattts]

Re : Copier le caption d' Optionbuttton dans label

Bonjour Essem
Bonjour le forum

Merci de t'étre penché sur mon problème, j'ai trouvé la soluce, la nuit porte conseil, surtout la douche (lol) .
le code :
Private Sub OptionEntrée_Click()
FrameEntree.Visible = True
Label15 = "ENTREE"
txtDate.SetFocus
End Sub

Private Sub OptionSortie_Click()
FrameEntree.Visible = True
Label15 = "RETOUR"
txtDate.SetFocus
End Sub

puis pour recopier les données :

With Sheets("Mouvement")
.Activate

li = .Range("A65536").End(xlUp).Row + 1
.Range("A" & li) = Me.Label15

bonne soirée
et longue vie au forum

papattts

L'expérience de chacun et le trésor de tous