CheckBox et Userform

tchouss56 · 28 Mai 2013

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 · 28 Mai 2013

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 · 28 Mai 2013

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 · 29 Mai 2013

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 · 29 Mai 2013

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 · 29 Mai 2013

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 · 29 Mai 2013

Re : CheckBox et Userform

Ok je test ! Merci

tchouss56 · 29 Mai 2013

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 · 30 Mai 2013

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 · 30 Mai 2013

Re : CheckBox et Userform

Bonjour,

une autre approche :

Code:

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

bonne journée
@+

CheckBox et Userform

tchouss56

XLDnaute Nouveau

Pièces jointes

Eric C

XLDnaute Barbatruc

tchouss56

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

tchouss56

XLDnaute Nouveau

Eric C

XLDnaute Barbatruc

tchouss56

XLDnaute Nouveau

tchouss56

XLDnaute Nouveau

tchouss56

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Discussions similaires