Discussion :

[croky23]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pijaku]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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

[pijaku]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]))

]

[croky23]

merci à vous
ça fonctionne super
cordialement