[WD-2003] Ajout de texte à partir d'une CheckBox [Résolu]

[Betadine]

Bonjour,

Je cherche à afficher automatiquement du texte dans une textbox sur un document word après avoir coché une CheckBox (que j'ai placé dans une Form) et validé avec un bouton.
Jusqu'ici, je n'arrive à afficher le texte que si la textbox se situe dans la Form... et pas dans le document word.

Et si je coche plusieurs des CheckBox, j'aimerai que le texte s'écrive à la suite de celui déjà contenu dans la textbox, et n'écrase pas son ancien contenu

Quelqu'un saurait-il m'aiguiller ?

D'avance, Merci Beaucoup.

[Heureux-oli]

Salut,

Je suppose que c'est un UserForm ?

Code :

Me.MonTextBox.Value  = "aaaa" & "bbbb"

Tu peux aussi travailler avec une chaîne.

Code :

1
2
3
4
5
6
7
Dim monTxt as String
 
If Me.CaseACocher1 Then monTxt = monTxt & "CaseACocher1"
If Me.CaseACocher2 Then monTxt = monTxt & "CaseACocher2"
....
 
Me.MonTextBox.Value = monTxt

[Betadine]

Oui, tout à fait, c'est une UserForm,

Mais je me demande où placer les codes des macros, car il y a une page de code réservée au document word, et une page de code réservée à la UserForm. N'y a t il pas la possibilité de mettre les codes tous ensembles ?

[Heureux-oli]

Salut,

Il est beaucoup plus facile de laisser les instructions de code dans le module auquelles elles se rapportent.

Donc, le code du UserForm dans le module du UserForm et le code du document dans le module ThisDocument.

[Betadine]

Bonjour,

J'ai plus ou moins trouvé un moyen d'arriver à mes fins, mais je bloque sur des détails assez agaçant...

Pour l'instant, si je coche la checkbox et que je clique sur OK, le texte apparait. Et si je décoche, j'aimerai que ce qui se trouve entre les deux signets (c'est à dire tout ce qui se trouve entre "Panier a salade" et "Prix") soit effacé. C'est sur ce point que je butte, car je n'arrive pas à supprimer tout, notamment quand je note la macro plusieurs fois de suite...

Auriez-vous une idée ?

Le document Word est sous la forme suivante.
------------------------
Panier a salade
(signet1)
Carottes
Carottes
Carottes

(signet2)
Prix
------------------------



Voici mon code ci dessous.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub OK_Click()
 
Dim Variable1 As String
 
Variable1 = "Carottes"
 
'Déclaration des signets
Const SignetDebut As String = "signet1"
Const SignetFin As String = "signet2"
 
'Déclaration variable Range
Dim Signet1Rge As Range
Dim Signet2Rge As Range
Dim EffaceRge As Range
 
'Si la checkbox1 est cochée, alors effacer le contenu déjà présent et écrire le contenu de la variable1
If CheckBox1.Value = True Then
    'Assignation des variables
    With ActiveDocument
    Set Signet1Rge = ThisDocument.Bookmarks("SignetDebut").Range
    Set Signet2Rge = ThisDocument.Bookmarks("SignetFin").Range
 
    'Assignation du texte à supprimer
    Set EffaceRge = ThisDocument.Range(Signet1Rge.End, Signet2Rge.End)
 
    'Suppression du texte entre les deux signets
    EffaceRge.Delete
    End With
 
    'Ecrit le texte contenu dans la variable au début du 1er signet
    ThisDocument.Bookmarks("SignetDebut").Select
    Selection.TypeText Text:=Variable1 & vbCr
 
'Sinon, on se contente d'effacer le contenu sans écrire la variable1
Else
    'ThisDocument.Bookmarks("SignetDebut").Select
    'Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Set Signet1Rge = ThisDocument.Bookmarks("SignetDebut").Range
    Set Signet2Rge = ThisDocument.Bookmarks("SignetFin").Range
    Set EffaceRge = ThisDocument.Range(Signet1Rge.End, Signet2Rge.Start)
    EffaceRge.Delete
 
End If
End Sub

[Heureux-oli]

Salut,

La FAQ : http://word.developpez.com/faq/index...rs_PlageSignet

Donne ceci :

Code :

1
2
ActiveDocument.Range(ActiveDocument..Bookmarks("sig1").Range.Start, _
ActiveDocument.Bookmarks("sig2").Range.End).Select

Dans ton cas, cela devient :

Code :

1
2
3
ActiveDocument.Range(ActiveDocument..Bookmarks("SignetDebut").Range.Start, _
ActiveDocument..Bookmarks("SignetFin").Range.End).Select 
Selection.Delete

[Betadine]

Il doit y avoir quelque chose qui cloche, car lorsque j'utilise ce code adapté à ce que j'ai fait, le fait de ne rien cocher et de cliquer sur OK supprime... mais seulement caractère par caractère...