text dans un texbox si checkbox =true (multi choix)

Version imprimable

Bonjour
si un checkbox = true cela envoie un text dans un texbox
j'ai 8 checkbox et un text différent a envoyer
jusqu'a simple
mais g la possibilité de mettre plusieurs checkbox true et je voudrai concatainer les text dans mon texbox
ce qui donne
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Private Sub change_intitulé() If Me.A1 = True Then If Me.A2 = False Then If Me.A3 = False Then If Me.A4= False Then If Me.A5= False Then If Me.A6= False Then If Me.A7= False Then Me.INTITULE = "TR" End If End If End If End If End If End If End If If Me.A1 = True Then If Me.A2 = True Then If Me.A3 = False Then If Me.A4 = False Then If Me.A5= False Then If Me.A6 = False Then If Me.A7= False Then Me.INTITULE = "TR & CV"
ETC etc
cela fonctionne mais cela me fait un code de deux page
il y a surement plus a faire
merci de m'éclairer
svp

Bonjour,

Applique une procédure événementielle à chacune de tes checkbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub A1_Click()
    If A1 = True Then
        Me.INTITULE = Me.INTITULE & "TR"
    Else
        Me.INTITULE = Replace(Me.INTITULE, "TR", "")
    End If
End Sub
Private Sub A2_Click()
    If A2 = True Then
        Me.INTITULE = Me.INTITULE & "ES"
    Else
        Me.INTITULE = Replace(Me.INTITULE, "ES", "")
    End If
End Sub
'etc...

21/11/2016, 14h39
croky23

merci
encore un petit détail a régler
il se peut que 2, 3 etc textbox soit true et ainsi avoir plusieurs info marquées dans intitulé
comment mettre un espace entre 2 infos dans mon intitulé ?
merci

Ta question est ma foi fort simpliste.
Y as tu pensé?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub A1_Click()
    If A1 = True Then
        Me.INTITULE = Me.INTITULE & " TR"
    Else
        Me.INTITULE = Replace(Me.INTITULE, " TR", "")
    End If
End Sub
Private Sub A2_Click()
    If A2 = True Then
        Me.INTITULE = Me.INTITULE & " ES"
    Else
        Me.INTITULE = Replace(Me.INTITULE, " ES", "")
    End If
End Sub
'etc...

Code:

1
2
3
4
5
Me.INTITULE= array("","A1 ")(abs([A1]))
Me.INTITULE= Me.INTITULE & array("","A2 ")(abs([A2]))
Me.INTITULE= Me.INTITULE & array("","A3 ")(abs([A3]))
Me.INTITULE= Me.INTITULE & array("","A4 ")(abs([A4]))
Me.INTITULE= Me.INTITULE & array("","A5 ")(abs([A5]))

]

21/11/2016, 15h45
croky23

merci à vous
ça fonctionne super
cordialement