XL 2013 VBA checkbox avec renvoi de valeur/libéllé

[dokaz]

bonjour,

Je démarre les userform et je bloque sur les checkbox

J'ai 2 types de traitement souhaité :
je souhaite que lorsque je clique sur une prestation du userform, dans l'onglet Données d'entrée en C5 je souhaite avoir une valeur prédéfinie

je souhaite que le libellé de l'activité cochée aille dans l'onglet Données d'entrée en C4

N.B. : dans les 2 une seule checkbox sera cochée

Merci pour votre aide

 

[youky(BJ)]

Bonjour,
Essaye cette macro quelque peut modifiée.
Bruno

Private Sub CommandButton1_Click()
With Sheets("0. Données d'entrée")
.[C6] = TextBox1.Value
.[C7] = TextBox2.Value
For k = 3 To 8 'boucle sur les 6
If Controls("CheckBox" & k) = True Then .[C4] = Controls("CheckBox" & k).Caption
Next
.[C5] = IIf(CheckBox1.Value = True, CheckBox1.Caption, CheckBox2.Caption)
End With
With Sheets("1. Main d'oeuvre")
.[B15] = TextBox3.Value
.[B20] = TextBox4.Value
End With
With Sheets("2. Coûts Pièces et ST")
.[B25] = TextBox5.Value
.[C25] = TextBox6.Value
End With
Sheets("3. Tarif").Select
Unload Me
End Sub

 

[dokaz]

bonjour bruno, c'est parfait et j'ai bien noté tes modifs, c'est tellement plus propre.

Merci