Bonjour,
J'ai crée 3 checbox le probleme il ne marche pas bien
CheckBox1
CheckBox2
CheckBox3
dans chaque checkbox j'ai mis ce code
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A47").Select
ActiveCell.FormulaR1C1 = "ste"
End If
If CheckBox1.Value = False Then
Range("A47").Select
ActiveCell.FormulaR1C1 = " "
End If
End Sub
merci pour votre aide
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI
Merci d'y penser dans tes prochains messages. |