CheckBox cocher selon valeur dans une cellule

[wrap food]

Bonjour à tous

je sèche encore sur un problème .....

J'ai un userfrom avec un checkbox ... pour commencer ( au finial j'en aurais 160...)

je voudrais que si la cellule L5 est égal à "PR saisie" le checkbox soit coché.
et qui si le checkbox est vide ( donc la cellule L5 est vide ) l'opérateur puise la cocher et alors la cellule L5 se remplisse avec "PR saisie"

J'ai créé ce code ci-dessous, mais cela ne fonctionne pas

Private Sub CheckBox1_Click()
[L5] = IIf(CheckBox1, "PR saisie", "")
If [L5].Value = "PR saisie" Then CheckBox1.Value = True
End Sub

Pourriez-vous m'aider

Par avance
merci

Cdt

 

[jecherche]

Re : CheckBox cocher selon valeur dans une cellule

Bonjour,

À tester ... ajoute :

Private Sub UserForm_Initialize()
  If [L5].Value = "PR saisie" Then CheckBox1.Value = True
End Sub

Jecherche

 

[job75]

Re : CheckBox cocher selon valeur dans une cellule

Bonjour wrap food, jecherche,

Private Sub CheckBox1_Change()
[L5] = IIf(CheckBox1, "PR saisie", "")
End Sub

Private Sub UserForm_Initialize()
CheckBox1 = [L5] = "PR saisie"
End Sub

A+