Check + Label

Salut j'aimerais savoir comment faire pour que quand on coche un Check, un mot se met dans un Label. Si ce n'est pas clair, demandez plus d'explications, si ça l'est, et que vous ne savez pas, merci d'avoir lu et si c klair et ke vous connaissez la réponse dites la moi SVP ^^

Merci .

NuttyKizzy

C'est simple, voilà

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Caption = "Coché !"
Else: Label1.Caption = "Non Coché"
End If
End Sub
Adilou *.*

C'est simple, voilà

Private Sub Check1_Click() If Check1.Value = 1 Then Label1.Caption = "Coché !" Else: Label1.Caption = "Non Coché" End If End Sub

Adilou *.*

Oups, désolé pour la répétition...
Adilou *.*

ok, mais il y a plusieurs check, donc plusieurs mots, donc il faudrais kil n'éfface pas tu suis, kil mette à la suite ...

NuttyKizzy

OKAY Thanks a lot ...

NuttyKizzy

il faut faire un groupe de controle avec tes CheckBox
propriété index de 1 à n
propriété name identique pour tous

Private Sub Check1_Click(Index As Integer)
Dim i As Integer
Label1 = vbNullString
For i = 1 To Check1.Count
If Check1(i).Value = Checked Then
Label1 = Label1 & Check1(i).Caption & vbCrLf
End If
Next
End Sub

Daniel

bon je pense que j'ai compris ce que tu veux.
donc tu donnes à la propriété . tag de chaque Checkbox la valeur de ton mot

Check1.Tag = MonMot

Ensuite dans chaque sub Click() des checkbox tu colles le code suivant

If Check1 Then If InStr(1, Label1.Caption, Check1.Tag, vbTextCompare) Then Exit Sub Else Label1.Caption = Label1.Caption & " " & Check1.Tag End If Else If InStr(Label1.Caption, Check1.Tag) Then Label1.Caption = Replace(Label1.Caption, Check1.Tag, "") End If

en prenant bien soin de changer n° des check


voilà je crois avoir répondu à ton prob
@+ J.P.