CheckBox et Userform

[tchouss56]

Bonjours,

Je voudrais quand je lance mon UserForm que les checkbox porte automatiquement le nom des personnels de la feuil1 et qui change si la feuil1 et modifier
Puis quand je coche les checkbox le nom apparaisse sur la feuil2.

Merci d'avance

 

[Eric C]

Re : CheckBox et Userform

Bonsoir le forum
Bonsoir tchouss56

pour la 1ère partie de ta question, essaie :

Private Sub UserForm_Initialize()
CheckBox1.Caption = [A2]
CheckBox2.Caption = [A3]
CheckBox3.Caption = [A4]
End Sub

Ensuite il faut "jouer" avec ceci :

Private Sub CheckBox1_Click()
Feuil2.[A1] = CheckBox1.Caption
End Sub

 

[tchouss56]

Re : CheckBox et Userform

Merci,

Premier question cela marche. Mais quand je décoche cela ne supprime le mon dans la case!
Par contre pour la deuxième si je coche le premier et le 3 checkbox cela me laisse un espace vide, comment faire pour ne pas en laisser d'espace vue que je l'affecte a une cellule.

Merci

 

[Eric C]

Re : CheckBox et Userform

Bonjour le forum
Bonjour tchouss56

Toujours pour la 1ère partie et afin que le caption disparaisse si la case est décochée :

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, [A2], " ")
End Sub

Bonne continuation

 

[tchouss56]

Re : CheckBox et Userform

Merci,

Mais se n'est pas la caption qui doit disparaitre, mais je garde cela pourra me servir.
Se que je voudrais "je lance mon userform je coche le checkbox la caption s'affiche puis que je décoche elle disparais.

 

[Eric C]

Re : CheckBox et Userform

Re,

Peut être ceci pour la 1ère partie :

Private Sub UserForm_Initialize()
CheckBox1.Caption = ""
CheckBox2.Caption = ""
CheckBox3.Caption = ""
End Sub
Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1, [A2], " ")
End Sub
Private Sub CheckBox2_Click()
CheckBox2.Caption = IIf(CheckBox2, [A3], " ")
End Sub
Private Sub CheckBox3_Click()
CheckBox3.Caption = IIf(CheckBox3, [A4], " ")
End Sub

 

[tchouss56]

Re : CheckBox et Userform

Ok je test ! Merci

 

[tchouss56]

Re : CheckBox et Userform

Test effectuer, Mais je ne veux pas modifier la caption du checkbox, je veux jouer sur l'affichage de la caption de la feuil2.
Merci

 

[tchouss56]

Re : CheckBox et Userform

J'ai trouver

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then Range("Feuil2!A2").Value = CheckBox1.Caption
If CheckBox1.Value = False Then Range("Feuil2!A2").Value = ""

End Sub

Merci

 

[Pierrot93]

Re : CheckBox et Userform

Bonjour,

une autre approche :

Private Sub CheckBox1_Click()
Range("Feuil2!A2").Value = IIf(CheckBox1, CheckBox1.Caption, "")
End Sub

bonne journée
@+