Copier le caption d' Optionbuttton dans label

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

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