Bonjour,
Je dois biffer certains mots ou portions de texte dans mon document. Actuellement j'utilise ceci:
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
 
If QuiEst.Value = True Then
   Selection.Tables(1).Cell(6, 1).Select
   Selection.HomeKey
   Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
   With Selection.Font
        .StrikeThrough = True
   End With
End If
 
If QuiNestPas.Value = True Then
   Selection.Tables(1).Cell(6, 1).Select
   Selection.HomeKey
   Selection.MoveRight Unit:=wdCharacter, Count:=14
   Selection.MoveRight Unit:=wdCharacter, Count:=17, Extend:=wdExtend
   With Selection.Font
        .StrikeThrough = True
   End With
End If
Y a t il mieux ? Ps : je n'ai pas très envie d'utiliser les signets.
D'avance merci pour vs suggestions