Discussion :

[mac4209]

Bonjour à tous,

Ma demande est un peu particulière, je vais donc essayé de m'exprimer correctement.

J'ai un formulaire sous word avec des cases à cocher (caseA, caseB....) . J'ai créer un bouton qui contient un code qui affecte un texte si la case est cochée (TexteA si caseA est cochée, TexteB si caseB est cochée...).

A la fin de mon code, j'ai fait une ligne pour afficher le texte des cases cochées dans une zone de texte que j'ai appelé "resultat". J'ai donc fait le code suivant :

Code :

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

FormFields("resultat").Result = TexteA & vbCrLf & TexteB

Quand les case A et B sont cochées, pas de problème. En revanche, lorsqu'il n'y a que la B de coché, j'ai un saut ligne avant (logique puisque j'utilise vbCrLf). Comment modifier mon code pour qu'il ai pas de saut de ligne si il n'y a pas de texteA ? Voici mon code entier si besoin :

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
Private Sub valider_Click()
Dim CaseA, CaseB As CheckBox
Dim TexteA, TexteB As String
 
FormFields("resultat").Result = ""
 
Set CaseA= ActiveDocument.FormFields("CaseeA").CheckBox
Set CaseB = ActiveDocument.FormFields("CaseB").CheckBox
 
If CaseeA.Value = True Then
 
    TexteA = "La case A est cochée"
 
End If
If CaseB.Value = True Then
 
    TextB = "La case B est cochée"
 
End If
 
FormFields("resultat").Result = TexteA & vbCrLf & TexteB
End Sub

Merci d'avance !

[mac4209]

J'ai fini par trouvé une solution ! Je joins le code pour ceux que ça intéresse

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
26
27
Private Sub valider_Click()
Dim ServiceA, ServiceB, ServiceC As CheckBox
Dim TextA, TextB, textC As String
 
FormFields("resultat").Result = ""
 
Set ServiceA = ActiveDocument.FormFields("ServiceA").CheckBox
Set ServiceB = ActiveDocument.FormFields("ServiceB").CheckBox
Set ServiceC = ActiveDocument.FormFields("ServiceC").CheckBox
 
If ServiceA.Value = True Then
 
    TextA = "service A est bon" & vbCrLf
 
End If
If ServiceB.Value = True Then
 
    TextB = "service B est ok" & vbCrLf
 
End If
If ServiceC.Value = True Then
 
    textC = "service C est bien"
 
End If
FormFields("resultat").Result = TextA & TextB & textC
End Sub